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Foreword 


Rexx is a very underrated programming language; elegant in design, simple syntax, easy to learn, use 
and maintain, yet as powerful as any other scripting language available today. 


In 1979, Mike Cowlishaw, IBM fellow, designed a “human-centric” programming language, Rexx. 
Cowlishaw’s premise was that the programmer should not have to tell the interpreter what the 
language syntax was in each program they wrote; that was the job of the interpreter. So unlike most 
other programming languages, Rexx does not suffer from superfluous, meaningless punctuation 
characters throughout the code. 


Since the release of Rexx outside of IBM, Rexx has been ported to virtually all operating systems and 
was formally standardised with the publishing of the ANSI Standard for Rexx in 1996. In late 2004, IBM 
transferred their implementation of Object REXX to the Rexx Language Association under an Open 
Source license. This event signalled a new era in the history of Rexx. 


This book provides a comprehensive reference and programming guide to the Rexx programming lan- 
guage. It shows how to use the most popular implementations of Rexx and Rexx external function pack- 
ages and is suited to both the programmer learning Rexx for the first time as well as the seasoned Rexx 
developer requiring a single, comprehensive reference manual. 


Rexx has had a major influence on my life for the past 20 years since I wrote my first XEDIT macro in 
Rexx. In the last 10 years I have maintained the Regina Rexx interpreter, ably assisted by Florian Grofse- 
Coosmann, and in my remaining spare time have developed several Rexx external function packages 
(and my XEDIT-like text editor, THE). However, like many developers of open source products, I have 
never quite documented the products as completely as they deserve. 


This is the book I would have liked to write if I had had the time. I’m glad Howard had the time! 


Mark Hessling 


Author of Rexx/SQL, Rexx/gd, Rexx/DW, 
Rexx/CURL, Rexx/Curses, Rexx/Wrapper, 
Rexx/Trans, 

The Hessling Editor (THE), Maintainer of Regina, 
Rexx/Tk, PDCurses, http://www. rexx.org/ 


Foreword to the 2™ Edition 


The release of the 2nd edition of The Rexx Programmer’s Reference is a testament to the passion that 
Howard and the majority of users have for Rexx and the longevity of the Rexx programming 
language itself. 


As software technologies change over the years, Rexx easily incorporates those new technologies 
due to its exceptional design. This flexibility to change does not come at the expense of breakage of 
existing code as is so common in most other programming languages. As a result, new program 
development using Rexx is as viable now as it was when Rexx first appeared, and existing code still 
runs unchanged as reliably now as when it was first developed. 


This edition includes new content and changes that reflect the current state of Rexx. 


I hope I’m around for the 3rd edition of The Rexx Programmer's Reference! 


Mark Hessling 


Author of Rexx/SQL, Rexx/gd, Rexx/DW, Rexx/CURL, Rexx/Curses, Rexx/Wrapper, Rexx/Trans, 
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Introduction 


Of all the free scripting languages, why should you learn Rexx? Rexx is unique in that it combines power 
with ease of use. Long the dominant scripting language on mainframes, it is definitely a “power” 
language, yet it is also so easy to use that its popularity has expanded to every conceivable platform. 
Today Rexx developers use the language on Windows, Linux, Unix, BSD, Macs, mainframes and many 
dozens of other systems . . . and, there are many free and open source Rexx interpreters available. 
Here’s the Rexx story in a nutshell: 

CL] Rexx runs on every platform under nearly every operating system. 

So, your skills apply anywhere . . . and your code runs everywhere. 


CL] Rexx enjoys a strong international standard that applies to every Rexx interpreter... 


from cell phones and handhelds to PCs to servers to mainframes. 


Oo 


Rexx is as easy as JavaScript or PHP, yet about as powerful as Java or Perl. 


LI Rexx’s large user community means: 
Ll Many free interpreters optimized for different needs and environments 


O1_ A vast array of free interfaces and tools 


C1 Good support 


CL] Rexx comes in object-oriented versions as well as versions that are Java-compatible 
(one even runs on the Java virtual machine!) 


You may be wondering why ease of use is so important in a programming language. A truly easy 
language is easy to use, learn, remember, and maintain. The benefits to beginners are obvious. With 
Rexx, you can start coding almost immediately. There are no syntax tricks or language details to 
memorize before you begin. And, since Rexx is also a power language, you can rest assured that you 
won't run out of capability as you learn and grow with it. Read the first few chapters in this book, and 
you'll be scripting right away. Continue reading, and you'll mature into advanced scripting before you 
finish. 


If you are an experienced developer, Rexx offers more subtle benefits. You will be more productive, of 
course, as you free yourself from the shackles of syntax-driven code. More important is this: simplicity 
yields reliability. Your error rate will decline, and you'll develop more reliable programs. This benefit is 
greatest for the largest systems and the most complicated scripts. Your scripts will also live longer because 
others will be able to understand, maintain, and enhance them. Your clever scriptlets and application 
masterpieces won't die of neglect when someone else takes over and maintains your code. 


Few easy languages are also powerful. Now, how does Rexx do that? 


Introduction 


Rexx surrounds its small instruction set with an extensive function library. Scripts leverage operating 
system commands, external interfaces, programs, and functions. Rexx is a “glue” language that ties it all 
together. Yet the language has few rules. Syntax is simple, minimal, flexible. Rexx doesn’t care about 
uppercase or lowercase or formatting or spacing. Rexx scripts don’t use special symbols and contain no 
punctuation. 


Power does not require coding complexity! 


If you’ve worked in the shell languages, you'll breathe a sigh of relief that you’ve found a powerful 
language in which you can program now and then without trying to recall arcane language rules. If 
you've struggled with the syntax of languages such as Bash, Korn, Awk, Perl, C++, or the C-shell, you'll 
enjoy focusing on your programming problem instead of linguistic peculiarities. And if you’ve ever had 
to maintain someone else’s code written in one of those languages, well... you might really be thankful 
for Rexx! 


This book contains everything you need to know to get started with Rexx. How to freely download and 
install an appropriate interpreter. How to program in standard "classic" Rexx and object-oriented Rexx. 
How to program Windows, Linux, Unix, Macs, Androids, and mainframes. How to program in the Java 
environment with object-oriented Rexx, or a Rexx-based language called NetRexx. How to script 
operating system commands, control Web servers and databases and graphical user interfaces (GUIs) 
and Extensible Markup Language (XML) and Apache and ... you name it. 


Everything you need is in this one book. It’s a Rexx encyclopedia. It teaches standard Rexx so that your 
skills apply to any platform—from cell phones to desktops and laptops to midrange servers to 
mainframes. Yet it goes beyond the basics to cover interface programming and advanced techniques. 
The book starts out easy, based on coding examples throughout to make learning fast, simple, and fun. 
But it’s comprehensive enough to cover advanced scripting as well. You can freely download all the 
Rexx interpreters, tools, and interfaces it covers. Welcome to the world of free Rexx ! 


Who This Book Is For 


xvi 


This book is for anyone who wants to learn Rexx, or who already works with Rexx and wants to expand 
his or her knowledge of the language, its versions, interfaces, and tools. How you use this book depends 
on your previous programming or scripting knowledge and experience: 


C) If you are a complete beginner, you'll find Rexx easy to learn. This book will tell you 
everything you need to know. It’s a progressive tutorial based on coding examples, so you 
won't get lost. You'll be able to handle almost any programming problem by the end of the 
book. 


C) If you are an experienced programmer, you can quickly learn Rexx by reading the tutorial 
chapters. You'll be programming immediately. As the book progresses into tutorials on 
interfaces to databases, Web servers, GUIs, and the like, you'll learn to program Rexx in the 
context of the larger environment. 
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C1 If you are a systems administrator or support person, you'll learn a language that applies to a 
wide variety of situations and can be a great tool. This book covers the interfaces, tools, and 
varieties and implementations of Rexx you'll need to know. It doesn’t stop with the basics. It 
explores the advanced features you'll want to use. 


C] = If you already script Rexx, you will be able to expand your knowledge. You'll learn about free 
Rexx interfaces and tools with which you may not be familiar. You'll learn Rexx programming 
in new environments, such as object-oriented scripting, scripting in the Java environment... 
and even how to program Rexx in mainframe emulation on your personal computer. You'll 
find this complete reference the only Rexx book you'll ever need. 


What This Book Covers 


This book teaches standard Rexx, quickly and simply. It emphasizes coding examples. It teaches you 
what you need to know to work with Rexx on any platform. You'll know a language that runs 
everywhere and applies to almost any programming problem. 


Beyond the Rexx language proper, this book covers all the major interfaces into Web servers, SQL 
databases, GUIs, XML, JSON, graphics processing, and the like. It describes many of the free tools that 
are available to make scripting with Rexx easier and more productive. 


The book covers a number of free Rexx interpreters. Most meet the international standards for Rexx, yet 
each adds its own special features and extensions. The book tells where to download each interpreter, 
shows how to install it, and demonstrates how to leverage its particular strengths. 


All the Rexx interpreters, tools, and interfaces this book covers are free or open source. One exception is 
IBM mainframe Rexx, which comes bundled with IBM’s operating systems. 


Ultimately, this book covers not only Rexx scripting, but the whole world of Rexx programming across 
all environments and interfaces, and with all Rexx interpreters. 


How This Book Is Structured 


Take a quick look at the table of contents, and you will see that this book is broken down into three 
broad sections: 


CL] The book begins with a progressive tutorial that covers the basics of the Rexx language. These 
eventually lead into more advanced scripting topics, such as how to write portable code and 
using optimal coding style. The last chapters of this section (Chapters 15 through 18) cover the 
most common Rexx interfaces and tools. These introduce and demonstrate how to code scripts 
that interface to operating systems, SQL databases, Web servers, GUIs, XML, and other tools. 
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CL) The second section of the book describes the different Rexx interpreters and the unique 
advantages of each. These chapters apply Rexx to different environments and include tutorials 
on object-oriented Rexx, cell phone scripting, programming in Java environments, and many 
other topics. All include complete example programs. 


C) Finally, the book contains a comprehensive reference section in its appendices. You won’t 
need any other book to script Rexx. 


What You Need to Use This Book 


You need nothing beyond this book. All its examples were all run using freely downloadable Rexx 
interpreters, tools, and interfaces. The chapters tell you where to download any interpreters, tools, and 
interfaces the book demonstrates, as well as how to set up and install them. Most of the examples in this 
book were run under Windows and/or Linux, but you can work with this book with Rexx running any 
operating system you like. 


Download the Example Code 


We recommend that you download the source code for all of the examples in this book from 
www.RexxInfo.org. All our downloads are free and require no registration or email address. 


Conventions 


We've used a number of conventions throughout the book. 


Boxes like this one hold important, not-to-be-forgotten information that is directly 
relevant to the surrounding text. 


Concerning styles in the text: 


C1 We italicize important words when we introduce them. 
C1 We show keyboard strokes like this: Ctrl-A. 


L} We show filenames, URLs, variable names, and code within the text like this: my_file.txt. 


Cl We present code in two different ways: 


In code examples we highlight new and important code with a gray background. 


The gray highlighting is not used for code that’s less important in the present 
context, or that has been shown before. 
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The Rexx language is not case-sensitive, so its instructions and functions can be encoded in uppercase, 
lowercase, or mixed case. For example, the wordlength function can be encoded as wordlength, 
WordLength, or WORDLENGTH. This book uses capitalization typical to the platforms for which its sample 
scripts were written, but you can use any case you prefer. 


Due to the typesetting software used in preparing this book, in a few places in the text, quotation 
marks might appear as forward-leaning or backward-leaning. Please consider the leftmost 
examples as equivalent to the vertical quotation marks that Rexx requires: 


‘Hello’ ‘Hello’ ‘Hello’ “Hello” Correct: 'Hello' "Hello" 


Only vertical single or double quotation marks will run correctly when coded in a Rexx program. 


Reporting Errors 


Thousands of programmers used the first edition of this book and reported no errors beyond a few typos. 
Our goal is to match this level of quality in this 2™ edition. This new edition has been reviewed by many 
experts from the Rexx Language Association. 


However, updating for this new edition required working off the 1" edition's PDF files -- an error-prone 
process, especially when working with code in text boxes and frequent font changes. So, try as we might to 
catch them, errors introduced by typesetting could slip through. 


If you find an error, please contact the author via his website at www.RexxInfo.org and report it. We'll 
correct the digital edition immediately, and the print edition as soon as the next printing. Thank you for 
your help in making this the best possible resource for Rexx programmers. 


Online Resources 


The website www.RexxInfo.org is a one-stop shop for all things Rexx. It offers free downloads for all 
Rexx interpreters and tools, articles, sample code, information, links, and other resources. Its reference 
section offers quick online lookup for all Rexx language instructions, functions, classes, and methods, and 
also a full set of free manuals for all Rexx products, including all IBM manuals. 


Appendix A on "Resources" describes many other good sources of Rexx information. 


What’s New in the 2" Edition? 


This is a fully revised 2™ edition of a book originally published in 2005. 


Completely new content in this edition includes: the Introduction; chapters 1, 19, 22, 24, 25, 
and 27; and, appendices A, I, L, N, O, P, Q, R, S, T, U, V, W, X, Y, and Z. Of course, all other 
content has been updated as appropriate. 


xix 


Introduction 


Much new material has been added in this edition including: 


OOOOOOKOOHOOHOO 


Java integration 

Using JSON 

Array I/O 

Advanced parsing 

Android programming 

Rexx on single board computers 

SQLite programming 

Equivalence charts for Rexx <--> Bash 
Equivalence charts for Rexx <--> Python 


Sample job interview questions 


Readers have also asked for more coverage of mainframe Rexx, so we've added: 


El 


OoOoOcdcgvwodoo 


Using EXECIO 

How to write ISPF edit macros 

How to run Rexx in batch 

Rexx on personal computers that emulate mainframes 

Equivalence charts for IBM mainframe REXX <--> ANSI-1996 standard Rexx 


Equivalence charts for Rexx <--> Clist 


Much new content has been provided in new appendices, rather than chapters, due to typesetting constraints. 


We've retained coverage of a few topics that are less important than previously. This includes the 
chapters on the out-of-support interpreters Reginald, r4, and roo!, and the brief discussion of 
Windows CE. We've kept this content because some readers requested it. It's clearly marked in 
the text. If it is not of interest to you, please just skip it. 


Among Rexx’s great benefits are its strong language standards and remarkable stability. Thus it hasn’t been 
necessary to modify or update the book's code examples. The proof is in the product -- you can rely on Rexx to 
run mature code without difficulty or disruption. 


Note that this edition does not always reflect the latest names of a few rebranded products. For example, it may 
refer to the Db2 database under its older name of "DB2". 


And remember that website addresses do change. If one this book suggests becomes obsolete, just use your 


search engine to find the material you seek. 
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Introduction to Scripting 
and Rexx 


Overview 


Before learning the Rexx language, you need to consider the larger picture. What are scripting 
languages? When and why are they used? What are Rexx’s unique strengths as a scripting 
language, and what kinds of programming problems does it address? Are there any situations 
where Rexx would not be the best language choice? 


This chapter places Rexx within the larger context of programming technologies. The goal is 
to give you the background you need to understand how you can use Rexx to solve the 
programming problems you face. 


Following this background, the chapter shows you how to download and install the most popular 
free Rexx interpreter on your Windows, Linux, Unix, BSD, or Apple computer. Called Regina, this 
open-source interpreter provides a basis for your experiments with Rexx as you progress in the 
language tutorial of subsequent chapters. 


Note that you can use any standard Rexx interpreter to learn Rexx. So, if you have some other 
Rexx interpreter available, you are welcome to use it. We show how to download and install 
Regina for readers who do not already have a Rexx interpreter installed, or for those who would 
like to install an open-source Rexx on their PC. 


Why Scripting? 


Rexx is a scripting language. What's that? While most developers would claim to “know one when 
they see it,” a precise definition is elusive. Scripting is not a crisply defined discipline but rather 
a directional trend in software development. Scripting languages tend to be: 


(1 = High level — Each line of code in a script produces more executable instructions — it 
does more — than an equivalent line encoded in a lower-level or “traditional” 
language. 
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Glue languages — Scripting languages stitch different components together — operating 
system commands, graphical user interface (GUI) widgets, objects, functions, or service 
routines. Some call scripting languages glue languages. They leverage existing code for higher 
productivity. 


Interpreted — Scripting languages do not translate or compile source code into the 
computer’s machine code prior to execution. No compile step means quicker 
program development. 


Interactive debugging — Interpreted languages integrate interactive debugging. This 
gives developers quick feedback about errors and makes them more productive. 


Variable management — Higher-level scripting languages automatically manage variables. 
Rexx programmers do not have to define or “declare” variables prior to use, nor do they 
need to assign maximum lengths for character strings or worry about the maximum number 
of elements tables will hold. The scripting language handles all these programming details. 


Typeless variables — Powerful scripting languages like Rexx even relieve the programmer of 
the burden of declaring data types, defining the kind of data that variables contain. Rexx 
understands data by usage. It automatically converts data as necessary to perform 
arithmetic operations or comparisons. Much of the housekeeping work programmers 
perform in traditional programming languages is automated. This shifts the burden of 
programming from the developer to the machine. 


Figure 1-1 contrasts scripting languages and more traditional programming languages. 


Scripting Versus Traditional Languages 


Scripting 


Traditional 
-- High level -- Lower level 
-- Interpretive -- Compiled 
-- More productive -- More detail-oriented 
-- Varying degrees of -- Manual variable management 
automatic variable management -- Pre-declared variables 
-- Shifts burden to the machine -- More programmer effort 
-- “Glue” languages -- “Coding” languages 
-- Acceptable execution speed -- Optimize execution speed 
Examples-- Rexx, Perl, Python, Examples-- C++, C, COBOL, 
JavaScript, others Java, Go, others 
Figure 1-1 


On the downside, scripting requires greater machine resources than hand-coded programs in 
traditional, compiled languages. But in an era where machine resources are less expensive than ever and 
continue to decline in price, trading off expensive developer time for cheaper hardware makes sense. 
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Hardware performance increases geometrically, while the performance differential 
between scripting and compiled languages remains constant. 


Here’s how hardware addresses scripting performance. The original IBM PC ran an 8088 processor at 
4.77 MHz. It executes less than a hundred clauses or statements of a Rexx script every second. Current 
personal computers execute millions of Rexx clauses per second. 


Just for fun, this table shows how much faster a standard Rexx benchmark script runs on typical PCs 
at various times. Later in this chapter, we'll show you how to benchmark your own computer against 
the numbers in this table: 


YearMake Processor SpeedMemory ee Rexx ease. per 
1982 IBMPC — 8088 4.77 Mhz 320 KB DOS 6.2 Mansfield 70 

Zenith 8088-2 8 Mhz 640 KB DOS 6.2 Mansfield 95 
1988 Clone 386/DX 25Mhz 2MB DOS 6.2 BRexx 3,600 
1993 Clone 486/SX 25Mhz 8 MB Windows 3.1 BRexx 6,000 
1998 Gateway PentiumIl 266Mhz 512 MB Red Hat 8 Regina 180,000 
2005 Clone Celeron 2.6Ghz 1GB Windows XP Regina 1,100,000 
2010 Lenovo Core2Duo 2*3.0Ghz 4GB Windows 7 Regina 4,545,455 
2014 Dell i5-3350p 4*3.1Ghz 8 GB Windows 8.1 ooRexx 3,030,303 
2017 HP 8570p i7-3520m 8*2.9Ghz 8 GB Win 7 Ent. ooRexx 7,363,893 
2019 Dell Vostro i7-3770 8*3.4Ghz 8 GB Linux Mint 19 = BRexx 8,498,672 
2022 Gigabyte amd3900x 3.8Ghz 32GB Win 10 Pro Regina 9,250,694 
2023 Acer amd6800u -2.7Ghz = 16GB Windows 11 ooRexx 13,636,364 
2023 Apple M1 3.2Ghz 16GB Ventura 13.3.1 Regina 22,233,751 


Source- author's hands-on tests and contributions by members of the Rexx Language Association. 


The bottom line is that the program that consumes over an hour on a decades-old 8088 runs in a split 
second on a modern desktop. While the table ignores subtle factors that affect performance, the trend 
is clear. For most programming projects, trading machine cycles for labor costs makes sense. Why not 
use a more productive tool that shifts the burden to the machine? 


Labor-saving benefits extend beyond program development to maintenance and enhancement. Experts 
like T. Capers Jones estimate that up to 75 percent of IT labor costs are devoted to program maintenance. 
An easy-to-read, easy-to-maintain scripting language like Rexx saves a great deal of money. 
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Sometimes, you'll hear the claim that scripting languages don’t support the development of large, 
robust, “production-grade” applications. Years ago, scripting languages were primitive and this charge 
rang true. But no longer. IT organizations routinely develop and run large applications written in Rexx 
and other scripting languages. The author has run across many large production business applications 
consisting of tens of thousands of lines of code. You can run an entire enterprise on scripts. 


Why Rexx? 


The distinguishing feature of Rexx is that it combines ease of use with power. Its goal is to make scripting 
as easy, fast, reliable, and error-free as possible. Many programming languages are designed for 
compatibility with older languages, the personal tastes of their inventors, the convenience of compiler- 
writers, or machine optimization. Rexx ignores extraneous objectives. It was designed from day one to 
be powerful yet easy to use. 


One person invented Rexx and guided its development: Michael Cowlishaw of IBM’s UK laboratories. 
Cowlishaw gave the language the coherent vision and guiding hand that ambitious software projects 
require to succeed. Anticipating how the Internet community would cooperate years later, he posted 
Rexx on the internet of its day, IBM’s VNET, a network of tens of thousands of users. Cowlishaw 
solicited and responded to thousands of emailed suggestions and recommendations on how people 
actually used early Rexx. The feedback enabled Cowlishaw to adapt Rexx to typical human behavior, 
making Rexx a truly easy-to-use language. 


Ease of use is critical — even to experienced developers — because it leads to these benefits: 


LI Low error rate — An easy-to-use language results in fewer bugs per program. Languages that 
rely on arcane syntax, special characters and symbols, and default variables cause more errors. 


C1 Reliability — Programs are more reliable due to the lower error rate. 


LI Longer-lived code — Maintenance costs dictate the usable life span of code. Rexx scripts are 
much easier to maintain than scripts written in languages that rely on special characters and 
complex syntax. 


Ll Reduced cost — Fast program development, coupled with a low error rate and high reliability, 
lead to reduced costs. Ease of maintenance is critical because up to three-quarters of IT 
professionals engage in maintenance activities. Code written by others is easier to understand 
and maintain if it is written in Rexx instead of syntax-driven languages like the Linux shell 
languages or Perl or Awk or C++. This reduces labor costs. 


LI Higher productivity — Developer productivity soars when the language is easy to work with. 
Scripting in Rexx is more productive than coding in either lower-level compiled languages 
or syntax-based shell languages. 


Ll Quicker testing — Interpretive scripting languages lend themselves to interactive testing. 
Programmers get quick feedback and can easily trace program execution. Combined with 
the low error rate of an easy-to-use language, this means that less test time is required. 


Ll Easy to learn — An easy-to-use language is easier to learn. If you have programmed in any 
other programming or scripting language, you can pick up Rexx very quickly. 
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Ll Easy to remember — If you write only the occasional program, you'll find Rexx easy to 
remember. Languages with special characters and quirky syntax force you to review 
their rules if you only script now and then. 


C1 Transfer skills — Since Rexx is easy to work with, developers find it easy to adapt to platform 
differences or the requirements of different interfaces. Rexx has a strong platform- 
independent standard. As well, many Rexx interfaces and tools are themselves cross-platform 
products. 


Power and Flexibility 


That Rexx is easy to learn and use does not mean that it has limited features or is some sort of 
“beginner’s language.” Rexx competes, feature for feature, with any of the other major scripting 
languages. If it didn’t, it certainly would not be the primary scripting language for mainframes, nor 
would it have attained the widespread use it enjoys today on so many other platforms. Nor would there 
be thousands of Rexx users distributed around the world. 


Ease of use and power traditionally force language trade-offs. It is easy to get one without the other, but 
difficult to achieve both. Rexx is specifically designed to combine the two. It achieves this goal through 
these principles: 


LI] Simple syntax — Some very powerful languages rely extensively on special symbols, 
nonobvious default behaviors, default variables, and other programming shortcuts. But there 
is no rule that power can only be achieved in this manner. Rexx eschews complex “syntax 
programming” and encourages simpler, more readable programming based on English- 
language keyword instructions and functions. 


LC) = Small command set, with functions providing the power — Rexx has a small core of only two dozen 
instructions. This simplicity is surrounded by the power of some 70 built-in functions. A well- 
defined, standard interface permits Rexx to call upon external function libraries. This allows 
you to extend the language yourself, and it means that many open-source extensions or 
libraries of routines are freely available. Rexx scripts also wield the full power of the operating 
system because they easily issue operating system commands. 


LC) = Free-form language — Rexx is not case-sensitive. It is a free-form language and is about as 
forgiving concerning placement of its source text as a programming language can be. This 
permits programmers to self-describe programs by techniques such as indentation, readable 
comments, case variations, and the like. Rexx relieves programmers from concern about 
syntax and placement, and lets them concentrate on the programming problem they face. 


LI Consistent, reliable behavior — Rexx behaves “as one would assume” at every opportunity. Its 
early user community provided feedback to one “master developer” who altered the 
language to conform to typical human behavior. As the inventor states in his book defining 
Rexx: “The language user is usually right.” Rexx was designed to encourage good programming 
practice and then enhanced by user feedback to conform to human expectations. 


CL) Modularity and structured programming — Rexx encourages and supports modularity and 
structured programming. Breaking up large programming problems into discrete pieces and 
restricting program flow to a small set of language constructs contributes greatly to ease of 
use and a low error rate when developing large applications. These principles yield simplicity 
without compromising power. (Chapters 3 and 8 explore them.) 


Chapter 1 


O 


Fewer rules — Put the preceding points together, and you'll conclude that Rexx has fewer 
rules than many programming languages. Developers concentrate on their programming 
problem, not on language trivia. 


Standardization — While there are many free Rexx interpreters, nearly all adhere to the Rexx 
standards. This makes your scripts portable and your skills transferable. A standardized 
language is easier to use than one with numerous variants. Rexx has two strong, nearly 
identical standards. One is defined in the book The Rexx Language, or TRL-2, by Michael 
Cowlishaw (Prentice-Hall, 1990, second edition). The other is the 1996 standard from the 
American National Standards Institute, commonly referred to as ANSI-1996. The ANSI-1996 
specification is a true superset of TRL-2 that adds just a few important language features. 


Free and Open Source 


As we'll describe below, you can select from a good number of different Rexx interpreters. They come in 
both open source and commercial versions. If you prefer a free and open source (or FOSS) product, there 
is always a Rexx interpreter available for your platform. 


The vast majority of Rexx tools are free and open source, too. Hundreds of them cover every 
conceivable need, from graphical user interfaces to databases, from telecommunications to 
development environments, to almost every other category you can imagine. 


Universality 


Rexx is a universal language. It runs on every platform, from cell phones and handhelds, to laptops and 
desktops, to servers of all kinds, all the way up to the largest mainframes and supercomputers. 


Here are the many platforms on which free Rexx interpreters run: 


O 


O 


Oo 


O 


All versions of Windows, Linux, Unix, BSD, Apple operating systems and macOS, and all 
IBM operating systems. 


Cell phones and tablets running Android and other various kinds of handhelds 
Single board computers and embedded systems applications 


IBM servers (i-series, pSeries, POWER/PowerPC, Linux for Z, OpenEdition/Unix System 
Services), Amiga-derived systems (AmigaOS 4 or AOS4, MorphOS, AROS, aeROS or 
AEROS), DOS-family systems (MS-DOS, PC-DOS, FreeDOS, all others), OS/2-derived systems 
(eCS and ArcaOS), plus OpenVMS, QNX, and others 


Many other lesser-used platforms too numerous to list 
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The benefits of a universal language are several. Among them: 


O1 Your skills apply to any platform 


CL] Your scripts run on any platform 


Here’s an example. A site that downsizes its mainframes to Linux servers could install free Rexx on the 
Linux machines. Rexx becomes the vehicle to transfer personnel skills, while providing a base for 
migrating scripts. 


As another example, an organization migrating from procedural to object-oriented programming (OOP) 
could use free Rexx as its cross-platform entry point into OOP. Standard, procedural Rexx is a true subset 
of object-oriented Rexx. 


A final example: a company runs a data center with mainframes and Unix servers, uses Windows on the 
desktop, and programs Android tablets for field agents. Rexx runs on all these platforms, making 
developers immediately productive across the whole range of company equipment. Rexx enables a 
mainframer to program a handheld, or Windows developer to script under Unix. 


A standardized scripting language that is freely available across a wide range of systems yields 
unparalleled skills applicability and code portability. 


Typical Rexx Applications 


Rexx is a general-purpose language. It is designed to handle diverse programming needs. Its power 
gives it the flexibility to address almost any kind of programming problem. Here are examples. 


CL) Asa “glue” language — Rexx has long been used as a high-productivity “glue” language for 
stitching together existing commands, programs, and components. Rexx offers a higher-level 
interface to underlying system commands and facilities. It leverages services, functions, 
objects, widgets, programs, and controls. 


Ll Automating repetitive tasks — Rexx scripts automate repetitive tasks. You can quickly put 
together little scripts to tailor the environment or make your job easier. Rexx makes it easy 
to issue commands to the operating system (or other environments or programs) and react 
to their return codes and outputs. 


Ll Systems administration — Rexx is a high-level, easy-to-read, and easy-to-maintain way to script 
system administration tasks. By its nature, systems administration can be complex. 
Automating it with an easily understood language raises system administration to a higher, 
more abstract, and more manageable level. If you ever have to enhance or maintain systems 
administration scripts, you'll be thankful if they’re written in Rexx instead of some of the 
alternatives! 


L) Extending the operating system — You typically run Rexx scripts simply by typing their name 
at the operating system’s command prompt. In writing scripts, you create new operating 
system “commands” that extend or customize the operating system or programming 
environment. 
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Application interfaces — Rexx scripts can create flexible user interfaces to applications 
programmed in lower-level or compiled languages. 


Portable applications — Rexx’s standardization and extensive cross-platform support make it a 
good choice for applications that must be ported across a range of systems. Its readability and 
ease of maintenance make it easy to implement whatever cross-platform enhancements may 
be desired. For example, while Rexx is the same across platforms, interfaces often vary. 
Standardizing the scripting language isolates changes to the interfaces. 


Prototyping and exploratory programming — Since Rexx supports quick development, it is ideal 
for developing prototypes, whether those prototypes are throw-aways or revisable. Rexx is 
also especially suitable for exploratory programming or other development projects apt to 
require major revision. 


Personal programming — An easy-to-use scripting language offers the simplicity and the 
speedy development essential to personal programming. PCs and handheld devices often 
require personal programming. 


Text processing — Rexx provides outstanding text processing. It’s a good choice for text 
processing applications such as dynamically building commands for programmable 
interfaces, reformatting reports, text analysis, and the like. 


Handheld devices — Small devices require compact interpreters that are easy to program. 
Rexx is useful for handheld devices of various kinds, including mobile and smart phones. 


Migration vehicle — Given its cross-platform strengths, Rexx can be used as a migration 
vehicle to transfer personnel skills and migrate legacy code to new platforms. 


Macro programming — Rexx provides a single macro language for the tools of the 
programming environment: editors, text processors, applications, and other languages. 
Rexx’s strengths in string processing play to this requirement, as does the fact it can easily 
be invoked as a set of utility functions through its standardized application programming 
interface, or API. 


Embeddable language — ANSI Rexx is defined as a library which can be invoked 
from outside applications by its standard API. Rexx is thus a function library that 
can be employed as an embeddable utility from other languages or systems. 


Mainframe support — Rexx is the default scripting language for several operating 
systems. Mainframe systems like z/OS, z/VM, and VSE/n are examples. Not only is 
Rexx the most popular scripting language on these systems, it is also the only high- 
level language that links into many subsystems essential to managing and 
administering them. 


Mathematical applications — Rexx performs computations internally in decimal arithmetic, 
rather than in the binary or floating-point arithmetic of most programming languages. The 
result is that Rexx always computes the same result regardless of the underlying platform. 
And, it gives precision to 999999 decimal places! But Rexx is not suitable for all 
mathematical applications. Advanced math functions are external add-ins rather than 
built-in functions for most Rexx interpreters, and Rexx performs calculations slowly 
compared to compiled languages optimized for these tasks, such as Fortran or Julia. 
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What Rexx Doesn’t Do 


There are a few situations where Rexx may not be the best choice. 


Rexx is not a systems programming language. If you need to code on the machine level, for example, to 
write a device driver or other operating system component, Rexx is probably not a good choice. While 
there are versions of Rexx that permit direct memory access and other low-level tasks, languages like 
C/C++ or assembler are more suitable. Standard Rexx does not manipulate direct or relative addresses, 
change specific memory locations, or call PC interrupt vectors or UEFI/BIOS service routines. 


Rexx is a great tool to develop clear, readable code. But it cannot force you to do so; it cannot save you 
from yourself. Chapter 12 discusses “Rexx with style” and presents simple recommendations for 
writing clear, reliable code. 


Scripting languages consume more processor cycles and memory than traditional compiled languages. 
This affects a few projects. An example is a heavily used transaction in a high-performance online trans- 
action processing (OLTP) system. The constant execution of the same transaction might make it worth 
the labor cost to develop it in a lower-level compiled language to optimize machine efficiency. 


Another example is a heavily computational program in scientific research. Continual numeric 
calculation might make it worthwhile to optimize processor cycles through a computationally oriented 
compiler. 


A final example might be where you’re writing part of an operating system that is in constant use. In 
this case it might be worth investing the extra effort to develop the code in a low-level language like an 
assembler, or at least a fast compiled language (like C), to gain maximum efficiency and the quickest 
possible execution time. 


In most other situations, for most other applications, our profession has reached the consensus that 
scripting languages are plenty fast enough. And they are so much more productive! This is why 


the shift to scripting has been one of the biggest software trends since the turn of the century. 


If you’re interested in reading further about the evolution towards scripting, chapter 19 explores this 
in some detail. 


Figure 1-2 summarizes the kinds of programming problems to which Rexx is best suited as well as those 
for which it may not be the best choice. 
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When to Use Rexx 


-- Highest productivity 


-- Quick development -- Optimal execution speed 
-- Glue language is required 
-- Prototyping 


-- Systems administration -- Systems-level programming 


-- OS extensions 
-- Portable applications 
-- Migrations off the mainframe 
-- Embedded programming 
-- Handheld programming 
-- Text processing 
-- Interactive development 
and debugging 


Figure 1-2 


Which Rexx? 


There are many free implementations of what we refer to as standard or classic Rexx. This is Rexx as 
defined by the TRL-2 or ANSI standards mentioned earlier. There are also two object-oriented supersets 
of classic procedural Rexx. And, there is NetRexx, the free Rexx-like language that runs in a Java Virtual 
Machine and presents a complementary or an alternative to Java for developing applications. Which 
Rexx should you use? 


The first half of this book teaches classic Rexx. It applies to any standard Rexx interpreter on any platform. 
Once you know standard Rexx you can easily pick up the extensions unique to any Rexx interpreter. 
You can also easily learn interface programming, how to use Rexx tools and packages, object- 
oriented Rexx, NetRexx, or any Rexx variant. After all, the whole point of Rexx is ease of learning! 


This table summarizes the major Rexx interpreters. All are free and available at no cost (except for IBM's Rexx 
Compiler). Most are open source, while a few are proprietary and come bundled with an operating system. 


They are distributed either as easy-to-install packages, directly executable binaries, or source code. 
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Interpreter Platforms Cost & Licensing 

Regina Nearly everywhere Free, open source, GNU Library or 
(except mainframes) LGPLv2 

Open Object Rexx Windows, Linux, Unix, BSD, Free, open source, GPLv2, CPL 1.0 


(aka “ooRexx”) 


macOS 


Open Object Rexx for Android Android 


(aka "ooRexx for Android") 


Free, open source, Apache 2.0 


BRexx Linux, Unix, BSD, macOS, Free, open source, GPLv2 
Android, Windows, DOS 

BRexx370 Mainframes Free, open source, GPLv2 

Rexx/imc BSD, Unix, Linux Free, open source, no warranty 

IBM REXX Mainframes Bundled, Proprietary license 

IBM REXX Compiler Mainframes Proprietary license 

Rexxoid Android Free, open source 


(aka “Rexx for Android”) 


NetRexx 


Anywhere with a Java 


Free, ICU License 


Virtual Machine 
ARexx Amiga-derived systems Free, bundled, license varies 
CREXX z/VM, others soon Free, MIT license 
R4 (out of support) Windows Free. Limited warranty 
Roo! (out of support) Windows Free. Limited warranty 
Reginald (out of support) Windows Free. No warranty 


All these interpreters meet the TRL-2 Rexx language standard. The single exception is NetRexx, which is 
best termed a “Rexx-like” language. Any standard Rexx you have installed can be used for working with 
the sample code in the first half of this book. This includes all the previously listed interpreters (except 
NetRexx), as well as standard Rexx interpreters bundled with mainframe or other operating systems. 


To get you up and programming quickly, we defer closer consideration of the unique strengths of the 
various Rexx interpreters and the differences between them. 


(If you need to know more right now, skip ahead to Chapter 19. That chapter discusses the evolution 
of Rexx and the roles it plays as a scripting language. It describes all the free Rexx interpreters above 
and presents the strengths of each. Chapters 20 through 30 then show how and where to download 
and install each Rexx interpreter. They describe the unique features of each and demonstrate many of 
them in sample scripts.) 


If you’re new to Rexx, we recommend starting with Regina Rexx. Regina Rexx is a great place to start for 
several reasons: 


C1 Popularity — Regina is the most widely used free Rexx. Its large user community makes 
it easy to get help on public forums. More interfaces and tools are tested with Regina 
than any other Rexx implementation. 
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LI Runs anywhere — Rexx is a platform-independent language, and Regina proves the 
point. Regina runs on almost any operating system including those in these families: 
Windows, Linux, Unix, BSD, macOS, and many lesser-used systems. 


Ll Meets all standards — Regina meets all Rexx standards including the TRL-2 
and ANSI- 1996 standards. 


CL] Well Documented — Regina comes with complete documentation that precisely 
and fully explains the product. 


Ll Open source — Regina is free and open source and distributed under the GNU Library 
General Public License. A few Rexx interpreters are free but not open source, as shown 
in the preceding table. 


The code examples in this book all conform to standard Rexx and were tested using Regina Rexx under 
Windows and/or Linux. Run these scripts under any standard Rexx in any environment. A few scripts 
require a specific operating system. For example, those in Chapter 14 illustrate how to issue operating 
system commands and therefore are system-specific. Other scripts later in the book use specific open- 
source interfaces, tools, or interpreters. Where we present examples that run only in certain environments, 
we'll point it out. 


To get you ready for the rest of the book, the remainder of this chapter shows you how to download 
and install Regina under Windows, Linux, Unix, BSD, and macOS. You need only install Regina if you 
don’t already have access to a Rexx interpreter. 


Downloading Regina Rexx 
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For a free download of Regina Rexx, go to the Regina project homepage at SourceForge at 
https://sourceforge.net/projects/regina-rexx/. Click on the Files tab on the horizontal menu 
to access the downloads page at https: //sourceforge.net/projects/regina-rexx/files/. 


From the Files page, you can click on regina-documentation and download Regina's two PDF product 
manuals. You'll probably want to download the files for the latest product release. 


Also on the Files page, you can also click on regina-rexx to download the product itself. Again, you'll 
encounter a list of releases. Pick the latest one. 


Now you'll face a screen with a long list of downloadable files. (There are so many files because Regina 
runs on so many different platforms.) Scroll down and you'll see the files grouped by operating 
system. You'll see groupings for Windows, Linux, macOS, BSD, and Others. 


Once you find the group of downloads for your operating system, it's a simple matter of selecting 
which download matches your specific computer. 


Okay, let's walk through the exact install steps you need to follow to install for Windows, Linux, and 
other systems like macOS, BSD, and Unix. 
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Installing Regina On Windows 


From the list of downloadable files at the SourceForge project webpage, scroll down to the Windows 
group. 

Your goal is to select the correct Windows download for your computer. You want each column in the 
table to match your computer's specifications. 


Select the entry in the Architecture column that matches your computer: x86_64 for 64-bit Windows on 
Intel processors, x86 for 32-bit Windows on Intel processors, or arm64 for 64-bit ARM processors. The 
Format column tells what kind of install format you're downloading. 


For example, for my computer I selected the file Regina__w64.exe (the underscores represent a variable 
product release number). That's for 64-bit Windows on Intel computers. The Format entry describes 
this as a "Self-installing executable." Perfect! That makes for a very easy Windows installation. 


Once you've downloaded the proper file, double-click on it to start the installation. You'll proceed 
through a standard Windows install. Accept the defaults all the way through. 


This installs Regina's Demos, Development Kit, and Documentation, along with the interpreter itself. It 
requires very little space (less than ten megabytes). 


The Windows default install directory willbe C:\ Program Files\rexx.org\Regina for 64-bit Intel 
architecture and ARM processors, and C:\Program Files (x86) \rexx.org\Regina for 32-bit Intel 
architecture processors. 


The default install will also add the Regina installation directory to your PATH variable and include 
the REGINA_HOME environmental variable. These settings enable you to easily run Regina scripts 
without any additional steps. 


Another screen will prompt you for the filename extensions for your Regina scripts. Traditionally, 
Regina scripts use filename extension of . rexx, so select that. 


A final screen asks whether you want to install and optionally auto-start the Regina Stack Service. The 
stack is a general-purpose data structure that Regina programs can use to pass or temporarily store data. 
(Chapter 11 describes the stack in detail.) For learning purposes, it's convenient to install this service. 


That's it! You're done. Now, you can navigate to your Windows' installed Program List and see the 
ReginaRexx entry. Beneath it will appear its list of components. 


Remember those computer benchmarks on page 5? Let’s benchmark your computer and see how it 
compares. This will also verify that Regina is installed and working properly. 
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Select ReginaRexx from the Windows Program list. Under the ReginaRexx entry, pick Regina Rexx Demos. 
Then click on the program Rexxcps. The program will run in a command window and give you a 
benchmark you can directly compare to those on page 5. 


So, you can run any Rexx program with the file extension of .rexx simply by double-clicking its filename. 


Or you can run programs from the command line. Assuming you've navigated to the directory containing 
the program you want to run, (or that your PATH environmental variable contains that directory), you can 
enter its full filename to runit: rexxcps.rexx 


The filename extension of .rexx tells Windows to run the file using Regina Rexx. Or you can run a file 
by explicitly invoking the Regina interpreter. Since you've already set the filename extension within 
Windows, you can either specify the full or partial filename. Either will work: 


regina TeEXXCpsS.rexx or regina LTexXXCps 


What about entering just the filename, but without its extension? Windows can't run this program 
because it doesn't know it should invoke Regina to run it. So this will not work: rexxcps 


Installing Regina on Linux / Unix / BSD / macOS 
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There are several ways to install Regina on Linux and similar computers, such as those running macOS, 
Unix, and BSD. Perhaps the quickest and easiest is to use your distribution’s package manager, its software 
interface for installing and removing software products. 


Example package managers include Ubuntu’s Software Center, the Synaptic Package Manager, APT, DNF, 
YUM, and ZYPP. The one you have available depends on which Linux distribution you run. All have easy- 
to-use GUI interfaces. 


Most Linux package managers connect to large repositories of software products. Just search for Regina in 
that list of installable programs, and then select and install Regina using the package manager’s graphical 
interface. 


In most cases, the package manager will direct you to download two Regina files. One is for the 
interpreter itself, and the other is for its library. For example, using Synaptic Package Manager directed 
me to download the files regina-rexx, and its library, 1ibregina3. (The exact file names may vary 
in your case.) The point is that the package manager will often automatically direct you to download 
more than a single file to install Regina. Just download these files and double-click to install them. 


If you're on a Mac and use HomeBrew, you can install simply by: brew install regina-rexx 


Installing Regina with your operating system’s package manager is quick and easy. But it does have one 
possible downside. Sometimes repositories don’t contain the latest release of the software. 
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Thus, you may want to install Regina directly from its permanent project homepage at 
SourceForge.net. This is the same SourceForge webpage mentioned in the above discussion on 


“Installing Regina on Windows.” The web address for downloading Regina files is: 
https://sourceforge.net/projects/regina-rexx/files/. 


Once there, you can download the product documentation by selecting the directory regina- 
documentation, and the product itself by choosing regina-rexx. 


We recommend downloading the two Regina manuals available under the regina-documentation 
directory. You may have need of them later. 


In the regina-rexx directory, you'll want to select the current release. There you'll view a very long product 
list. Scroll down to the section labelled Linux. This reduces the downloads to a more manageable list. 


To find the file to download, scroll through the list under the label Operating System and locate yours. 
(If you can't find an exact match, pick the one closest to your system. For example, someone running a 
Debian-based distribution that is not explicitly listed could use the Debian packages.) 


Once you've located your operating system, ensure that the Architecture and 32bit or 64bit columns 
match your system. The rightmost column will then tell you which kind of package is involved: Debian, 
RPM, Alpine, or whatever. 


Now you'll need to download and install two packages. One will be Regina’s library package, while the 
second is the interpreter itself. 


Here’s an example. At the time of writing, I ran Linux Mint 21.2. I found that Linux Mint did not appear in 
the list of Operating Systems in the Linux section. A quick web search showed that Mint 21.x is based on 
Ubuntu 22. So I downloaded the files for Ubuntu 22. They worked fine. 


Just as when you install via your Linux package manager, you'll likely need to install two files. I installed 
these two (the underscores contain the variable product release numbers): 


libregina3 -amd64-Ubuntu-22.04.deb 
regina-rexx -amd64-Ubuntu-22.04.deb 


As always with package manager files, you just double-click to install them. So first I installed the library 
. deb, then next, the regina-rexx package. Done! 


Afterwards, you'll want to test the install to ensure it worked correctly. Let's run the benchmarking 
program that produced the table on page 5. You can benchmark your computer against those in the table. 


The benchmarking program is called rexxcps. With the default Regina extension of . rexx, that means the 
full name of this program is rexxcps.rexx. Use your operating system's Search function to locate this 


program. Then open a terminal window, change to the directory where it resides, and execute it: 


regina LTeEXXCPs or regina rexXCps.rexx 
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If Regina can’t find the program to run it, you can run it by specifying that it resides in the current 
directory: 


regina ./rexxcps or regina ./rexxcps.rexx 


Manual Installation From Source Code 


If the simple "package install" we describe above didn't work for you, or if you have an uncommon 
system not included in Regina's list of package installs, here we'll describe a simple, generic approach 
that will work for almost any Unix-derived operating system, including the macOS. 

Where slight differences exist between systems, the Regina Install Notes will tell you what you need to 
know. These typically reside in INSTALL* or README* files. They download with the product. Be sure to 
read those instructions! 


To install Regina under any Linux, Unix, BSD, or macOS operating system, use the root user ID and 
download the source file into an empty directory. 


The source file will be compressed. It will thus end in one of these file name extensions: 
.tar.bz2,.tar.gz, .tgz, .tar, or .zip. To uncompress this file, just double-click on the file name. 


If double-clicking produces a second compressed file (such asa .tar file), double-click on that file. 


You'll know you're done decompressing when you see a long list of files being created. (So, 
decompressing might be either a one-step or two-step process, depending on what kind of compressed 
file you initially downloaded.) 


Now, open a terminal window and navigate to the home directory into which you extracted Regina. 


Look in the directory into which the files were extracted and find and read the Install Notes. They are 
usually in a file named INSTALL* or README*. These notes give operating system specific instructions 
you must follow to successfully install Regina. 


The Install Notes will tell you that you need to enter these two commands as the root user id to the 
operating system: 


./configure 
make install 


These commands configure and install Regina. Since they compile source code, they require a C 
compiler to run. Almost all Linux, Unix, and BSD machines will have a C compiler present. If your 
system does not have one installed, download a free compiler from any of several sites including 
www.gnu.org. For macOS, go to the Apple Store and download Xcode. 
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The Install Notes will tell you if you need to set any environmental variables. Typically you'll need to set your 
PATH to include the location of the Regina binary. And, you'll need to point the LD_LIBRARY_PATH 
environmental variable to where Regina's shared library file resides (usually in /usr/local/1ib). 
Again, refer to the install instructions! They'll give you the exact commands to run, which do vary by the 
operating system. 


Finally, test your installation by running one of the Regina-provided demo scripts. Let’s 
benchmark your system by running the benchmark program used in the table on page 5 of this 
chapter. You can compare your system’s performance to the examples listed in that table. 


The program to run is called rexxcps.rexx. You may have to look around in the Regina 
install directories to locate it. Change to that directory, then enter this to run the program: 


regina rexxcps or regina ./rexxcps.rexx 


If you have any problems with installing, check that your PATH variable properly includes the path of the 
Regina executable, and that the LD_LIBRARY_PATH or its equivalent properly points to Regina's shared 
library. 


Also, remember that to run a program you may need to set its permission bits as executable: 


chmod +x your program _name.rexx 


Testing Rexx Statements: Rexxtry 


As well as the rexxcps program that benchmarks your computer's performance, another common 
program distributed with most Rexx interpreters is called rexxtry (if you can't find it, it's included with 
the sample programs for this book that you can download for free from www.RexxInfo.org) . 


Start this program from the command line, and you can enter various Rexx statements to it. It responds by 
executing the statement and returning its results to you. 


Rexxtry can be useful to learn how Rexx works. Here's an example interaction where we test to see if Rexx 
treats single and double quotation marks as the same by entering a say instruction: 


babs@delll:~S$ regina rexxtry 
Try out Rexx statements interactively. 


= 


[To end, enter EXIT 


Rexxtry: 

say 'Are single quotes' "the same as double quotes?" 
Are single quotes the same as double quotes? 
Rexxtry: 

exit 
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Summary 


This chapter lists the advantages of scripting in Rexx and suggests where Rexx is most useful. Given its 
power, flexibility, portability, and ease of use, Rexx is suitable for addressing a wide range of 
programming problems. The only situations where Rexx does not apply are those oriented toward 
“systems programming” and programs that demand totally optimized machine utilization. 


Rexx distinguishes itself among scripting languages by combining ease of use with power. Rexx uses 
specific interpreter design techniques to achieve this combination. Rexx has simple syntax, minimal 
"special variables," no "default variables", and a case-insensitive free-format combined with a small, easily 
learned instruction set. Its many built-in functions, extensibility, and the ability to issue commands to the 
operating system and other external interfaces give Rexx power while retaining ease of use. 


Ease of use is important even to highly experienced computer professionals because it reduces error 
rates and determines the life span of their code. Experienced developers leverage a quickly coded 
language like Rexx to achieve outstanding productivity. 


The final part of this chapter showed how to download and install Regina Rexx under Windows, Linux, 
Unix, BSD, and macOS. This popular Rexx interpreter is a free, open-source product you can use to 
learn Rexx in the tutorial of the following chapters. Any other standard Rexx interpreter could be used 
as well. The next several chapters get you quickly up and running Rexx scripts through an example- 
based tutorial. 


Test Your Understanding 


1. In what way is Rexx a higher-level language than compiled languages like C or C++ ? What's a 
glue language? Why is there an industry-wide trend towards scripting languages? 


2. Are developers required to code Rexx instructions starting in any particular column? In upper- 
or lowercase? 


3. Evenif you’re an expert programmer, why is ease of use still important? 


4. What are names of the two object-oriented Rexx interpreters? Will standard or classic 
Rexx scripts run under these OO interpreters without alteration? 


5. Does Rexx run on Android? How about departmental servers? PCs? Mainframes? 


6. What are the two key Rexx standards? Are these two standards almost the same or 
significantly different? 


7. — Traditionally there is a trade-off between ease of use and power. What specific 
techniques does Rexx employ to gain both attributes and circumvent the trade- 
off? 


20 


Language Basics 


Overview 


This chapter describes the basic elements of Rexx. It discusses the simple components that make 
up the language. These include script structure, elements of the language, operators, variables, 
and the like. As a starting point, we explore a simple sample script. We'll walk through this script 
and explain what each statement means. Then we'll describe the language components individu- 
ally, each in its own section. We'll discuss Rexx variables, character strings, numbers, operators, 
and comparisons. 


By the end of this chapter, you'll know about the basic components of the Rexx language. You'll be 
fully capable of writing simple scripts and will be ready to learn about the language features 
explored more fully in subsequent chapters. The chapters that follow present other aspects of the 
language, based on sample programs that show its additional features. For example, topics cov- 
ered in subsequent chapters include directing the logical flow of a script, arrays and tables, input 
and output, string manipulation, subroutines and functions, and the like. But now, let’s dive into 
our first sample script. 


A First Program 


Had enough of your job? Maybe it’s time to join the lucky developers who create computer games 
for a living! The complete Rexx program that follows is called the Number Game. It generates a 
random number between 1 and 10 and asks the user to guess it (well, okay, the playability is a bit 
weak. ...) The program reads the number the user guesses and states whether the guess is correct. 


/* The NUMBER GAME - User tries to guess a number between 1 and 10 */ 
/* Generate a random number between 1 and 10 uf 
the_number = random(1,10) 


say "I'm thinking of number between 1 and 10. What is it?" 
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pull the_guess 


if the_number = the_guess then 
say 'You guessed it!' 
else 
say 'Sorry, my number was: ' the_number 


Shy "Bhyvel" 
Here are two sample runs of the program: 


C:\Regina\pgms>number_game.rexx 

I'm thinking of number between 1 and 10. What is it? 
4 

Sorry, my number was: 6 

Bye! 


C:\Regina\pgms>number_game.rexx 

I'm thinking of number between 1 and 10. What is it? 
8 

You guessed it! 

Bye! 


This program illustrates several Rexx features. It shows that you document scripts by writing whatever 
description you like between the symbols /* and */. Rexx ignores whatever appears between these 
comment delimiters. Comments can be isolated on their own lines, as in the sample program, or they can 
appear as trailing comments after the statement on a line: 


the_number = random(1,10) /* Generate a random number between 1 and 10 */ 


Comments can even stretch across multiple lines in box style, as long as they start with /* and end 
with */: 


[RRRRR REE ER KRER ERR EERE REE RRR KERR KEKE RE RR EKER RE RE RE KERR EKER ER KEKE RRR KERR KKK 


* The NUMBER GAME - User tries to guess a number between 1 and 10 * 


* Generate a random number between 1 and 10 * 
RRKKRKE RRR RRR RRR RRR RRR ERR EKER ERR KERR KEKE ER RR ERR RR KERR ERE RK EREREREREKER KEKE / 


Rexx is case-insensitive. Code can be entered in lowercase, uppercase, or mixed case; Rexx doesn’t care. 
The if statement could have been written like this if we felt it were clearer: 


IF the_number = the_guess THEN 
SAY 'You guessed it!' 
ELSE 
SAY 'Sorry, my number was: ' the_number 


The variable named the_number could have been coded as THE_NUMBER or The_Number. Since Rexx 
ignores case it considers all these as references to the same variable. The one place where case does mat- 
ter is within literals or hardcoded character strings: 


say 'Bye!' outputs: Bye! 
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while 
say 'BYE!' displays: BYE! 


Character strings are any set of characters occurring between a matched set of either single quotation 
marks (') or double quotation marks ("). 


What if you want to encode a quote within a literal? In other words, what do you do when you need to 
encode a single or double quote as part of the character string itself? To put a single quotation mark 
within the literal, enclose the literal with double quotation marks: 

say "I'm thinking of number between 1 and 10. What is it?" 
To encode double quotation marks within the string, enclose the literal with single quotation marks: 

say 'I am "thinking" of number between 1 and 10. What is it?' 
Rexx is a free-format language. The spacing is up to you. Insert (or delete) blank lines for readability, and 
leave as much or as little space between instructions and their operands as you like. Rexx leaves the cod- 


ing style up to you as much as a programming language possibly can. 


For example, here’s yet another way to encode the if statement: 


IF the_number = the_guess THEN SAY 'You guessed it!' 
ELSE SAY 'Sorry, my number was: ' the_number 


About the only situation in which spacing is not the programmer’s option is when encoding a Rexx func- 
tion. A function is a built-in routine Rexx provides as part of the language; you also may write your own 
functions. This program invokes the built-in function random to generate a random number between 1 
and 10 (inclusive). The parenthesis containing the function argument(s) must immediately follow the 
function name without any intervening space. If the function has no arguments, code it like this: 


the_number = random() 


Rexx requires that the parentheses occur immediately after the function name to recognize the function 
properly. 


The sample script shows that one does not need to declare or predefine variables in Rexx. This differs 
from languages like C++, Java, COBOL, or Pascal. Rexx variables are established at the time of their first 
use. The variable the_number is defined during the assignment statement in the example. Space for the 
variable the_guess is allocated when the program executes the pu11 instruction to read the user’s 
input: 


pull the_guess 
In this example, the pull instruction reads the characters that the user types on the keyboard, until he 


or she presses the <ENTER> key, into one or more variables and automatically translates them to upper- 
case. Here the item the user enters is assigned to the newly created variable the_guess. 
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All variables in Rexx are variable-length character strings. Rexx automatically handles string length 
adjustments. It also manages numeric or data type conversions. For example, even though the variables 
the_number and the_guess are character strings, if we assume that both contain strings that represent 
numbers, one could perform arithmetic or other numeric operations on them: 


their_sum = the_number + the_guess 


Rexx automatically handles all the issues surrounding variable declarations, data types, data conver- 
sions, and variable length character strings that programmers must manually manage in traditional 
compiled languages. These features are among those that make it such a productive, high-level 
language. 


Language Elements 


Rexx consists of only two dozen instructions, augmented by the power of some 70 built-in functions. 
Figure 2-1 below pictorially represents the key components of Rexx. It shows that the instructions and 
functions together compose the core of the language, which is then surrounded and augmented by other 
features. A lot of what the first section of this book is about is introducing the various Rexx instructions 
and functions. 


Elements of Rexx 


Operators 
Arithmetic 
Comparison 
Logical 
String 


2 dozen Instructions 


70 Built-in 
Functions 


Other language components & features 
Figure 2-1 


Of course, this book also provides a language reference section in the appendices, covering these and 
other aspects of the language. For example, Appendix B is a reference to all standard Rexx instructions, 
while Appendix C provides the reference to standard functions. 
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The first sample program illustrated the use of the instructions say, pull, and if. Rexx instructions are 
typically followed by one or more operands, or elements upon which they operate. For example, say is 
followed by one or more elements it writes to the display screen. The pu11 instruction is followed by a 
list of the data elements it reads. 


The sample script illustrated one function, random. Functions are always immediately followed by 
parentheses, usually containing function arguments, or inputs to the function. If there are no arguments, 
the function must be immediately followed by empty parentheses () . Rexx functions always return a 
single result, which is then substituted into the expression directly in place of the function call. For 
example, the random number returned by the random function is actually substituted into the statement 
that follows, on the right-hand side of the equals sign, then assigned to the variable the_number: 


the_number = random(1,10) 


Variables are named storage locations that can contain values. They do not need to be declared or defined 
in advance, but are rather created when they are first referenced. You can declare or define all variables 
used in a program at the beginning of the script, but Rexx does not require this. Some programmers like 
to declare all variables at the top of their programs, for clarity, but Rexx leaves the decision whether or 
not to do this up to you. 


All variables in Rexx are internally stored as variable-length strings. The interpreter manages their 
lengths and data types. Rexx variables are “typeless” in that their contents define their usage. If strings 
contain digits, you can apply numeric operations to them. If they do not contain strings representing 
numeric values, numeric operations don’t make sense and will fail if attempted. Rexx is simpler than 
other programming languages in that developers do not have to concern themselves with data types. 


Variable names are sometimes referred to as symbols. They may be composed of letters, digits, and charac- 
terssuchas . ! ? _.Avariable name you create must not begin with a digit or period. A simple variable 
name does not include a period. A variable name that includes a period is called a compound variable and 
represents an array or table. Arrays will be covered in Chapter 4. They consist of groups of similar data 
elements, typically processed as a group. 


If all Rexx variables are typeless, how does one create a numeric value? Just place a string representing a 
valid number into a Rexx variable. Here are assignment statements that achieve this: 


whole_number_example = 15 
decimal_example = 24.2 
negative_number = -21.2 
exponential_notation_example = 148+12 


A number in Rexx is simply a string of one or more digits with one optional decimal point anywhere in 
the string. Numbers may optionally be preceded by their sign, indicating a postive or a negative num- 
ber. Numbers may be represented very flexibly by almost any common notation. Exponential numbers 
may be represented in either engineering or scientific notation (the default is scientific). The following 

table shows examples of numbers in Rexx. 
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Number Type Also Known As Examples 


Whole Integer 3’ ‘+6’ = “9835297590239032’ 

Decimal Fixed point ‘0.3’ ‘17.36425’ 

Exponential Real --or-- ‘1.235E+11’ (scientific, one digit left of decimal point) 
Floating point 171.123E+11’ (engineering, 1 to 3 digits left of decimal) 


Variables are assigned values through either assignment statements or input instructions. The assign- 
ment statement uses the equals sign (=) to assign a value to a variable, as shown earlier. The input 
instructions are the pull or parse instructions, which read input values, and the arg and parse arg 
instructions, which read command line parameters or input arguments to a script. 


If a variable has not yet been assigned a value, it is referred to as uninitialized. The value of an uninitial- 
ized variable is the name of the variable itself in uppercase letters. This i£ statement uses this fact to 
determine if the variable no_value_yet is uninitialized: 


if no_value_yet = 'NO_VALUE_YET' then 
say 'The variable is not yet initialized.' 


Character strings or literals are any set of characters enclosed in single or double quotation marks (' or " ). 


If you need to include either the single or double quote within the literal, simply enclose that literal with 
the other string delimiter. Or you can encode two single or double quotation marks back to back, and 
Rexx understands that this means that one quote is to be contained within the literal (it knows the dou- 
bled quote does not terminate the literal). Here are a few examples: 


literal= 'Literals contain whatever characters you like: !@#$%*&*()-=+~.<>?/_' 
need_a_quote_mark_in_the_string = "Here's my statement." 
same_as_the_previous_example = 'Here''s my statement.' 
this_is_the_null_string = '' /*two quotes back to back are a "null string" */ 


In addition to supporting any typical numeric or string representation, Rexx also supports hexadecimal or 
base 16 numbers. Hex strings contain the upper- or lowercase letters A through F and the digits 0 through 
9, and are followed by an upper- or lowercase x: 


twenty_six_in_hexidecimal = 'la'x /* 1A is the number 26 in base sixteen ef: 
hex_string = "3E 11 4A"x /* Assigns a hex string value to hex_string */ 


Rexx also supports binary, or base two strings. Binary strings consist only of 0s and 1s. They are denoted 
by their following upper- or lowercase B: 


example_binary_string '10001011'b 
another_binary_string = '1011'B 


Rexx has a full complement of functions to convert between regular character strings and hex and binary 
strings. Do not be concerned if you are not familiar with the uses of these kinds of strings in program- 
ming languages. We mention them only for programmers who require them. Future chapters will 
explain their use more fully and provide illustrative examples. 
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Operators 


Every programming language has operators, symbols that indicate arithmetic operations or dictate that 
comparisons must be performed. Operators are used in calculations and in assigning values to variables, 
for example. Rexx supports a full set of operators for the following. 


Q Arithmetic 

Q Comparison 

Q = Logical operators 
Q 


Character string concatenation 


The arithmetic operators are listed in the following table: 


Arithmetic Operator Use 


+ Addition 

- Subtraction 

* Multiplication 

/ Division 

% Integer division — returns the integer part of the result from division 

// Remainder division — returns the remainder from division 

bn Raise to a whole number power 
+ (asa prefix ) Indicates a positive number 
- (asa prefix) Indicates a negative number 


All arithmetic operators work as one would assume from basic high-school algebra, or from program- 
ming in most other common programming languages. Here are a few examples using the less obvious 


operators: 
say (5 % 2) /* Returns the integer part of division result. Displays: 2 */ 
say (5 // 2) /* Returns the remainder from division. Displays: 1 */ 
say (5 ** 2) /* Raises the number to the whole power. Displays: 25 +) 


Remember that because all Rexx variables are strings, arithmetic operators should only be applied to 
variables that evaluate to valid numbers. Apply them only to strings containing digits, with their 
optional decimal points and leading signs, or to numbers in exponential forms. 


Numeric operations are a major topic in Rexx (as in any programming language). The underlying princi- 
ple is this — the Rexx standard ensures that the same calculation will yield the same results even when run under 
different Rexx implementations or on different computers. Rexx provides an exceptional level of machine- and 
implementation-independence compared with many other programming languages. 
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If you are familiar with other programming languages, you might wonder how Rexx achieves this 
benefit. Internally, Rexx employs decimal arithmetic. It does not suffer from the approximations caused 
by languages that rely on floating point calculations or binary arithmetic. 


The only arithmetic errors Rexx gives are overflow (or underflow). These result from insufficient storage to 
hold exceptionally large results. 


To control the number of significant digits in arithmetic results, use the numeric instruction. 
Sometimes the number of significant digits is referred to as the precision of the result. Numeric precision 
defaults to nine digits. This sample statement illustrates the default precision because it displays nine 
digits to the right of the decimal place in its result: 


say 2 / 3 /* displays 0.666666667 by default af 


This example shows how to change the precision in a calculation. Set the numeric precision to 12 digits 
by the numeric instruction, and you get this result: 


numeric digits 12 /* set numeric precision to 12 digits */ 
say 2 / 3 /* displays: 0.666666666667 */ 


Rexx preserves trailing zeroes coming out of arithmetic operations: 
say 8.80 - 8 /* displays: 0.80 */ 


If a result is zero, Rexx always displays a single-digit 0: 


say 8.80 - 8.80 /* displays: 0 */ 


Chapter 7 explores computation further. It tells you everything you need to know about how to express 
numbers in Rexx, conversion between numeric and other formats, and how to obtain and display 
numeric results. We'll defer further discussion on numbers and calculations to Chapter 7. 


Comparison operators provide for numeric and string comparisons. These are the operators you use to 
determine the equality or inequality of data elements. Use them to determine if one data item is greater 
than another or if two variables contain equal values. 


Since every Rexx variable contains a character string, you might wonder how Rexx decides to perform a 
character or numeric comparison. The key rule is: if both terms involved in a comparison are numeric, then 
the comparison is numeric. For a numeric comparison, any leading zeroes are ignored and the numeric 
values are compared. This is just as one would expect. 


If either term in a comparison is other than numeric, then a string comparison occurs. The rule for string 
comparison is that leading and trailing blanks are ignored, and if one string is shorter than the other, it 
is padded with trailing blanks. Then a character-by-character comparison occurs. String comparison is 
case-sensitive. The character string ABC is not equal to the string Abc. Again, this is what one would 
normally assume. 


Rexx features a typical set of comparison operators, as shown in the following table: 
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Comparison Operator Meaning 
= Equal 
\= a Not equal 
> Greater than 
< Less than 
>= \< a< Greater than or equal to, not less than 
<= \> a> Less than or equal to, not greater than 
>< <> Greater than or less than (same as not equal) 


The “not” symbol for operators is typically written as a backslash, as in “not equal:” \= But some- 
times you'll see it written as 7 as in “not equal:” == Both codings are equivalent in Rexx. The first repre- 
sentation is very common, while the second is almost exclusively associated with mainframe scripting. 
Since most keyboards outside of mainframe environments do not include the symbol — we recommend always 
using the backslash. This is universal and your code will run on any platform. The backslash is the ANSI- 
standard Rexx symbol. You can also code “not equal to” as: <> or><. 


In Rexx comparisons, if a comparison evaluates to TRUE, it returns 1. A FALSE comparison evaluates to 0. 
Here are some sample numeric and character string comparisons and their results: 


C37) Se 837 /* TRUE - a numeric comparison */ 
Q0387TS 37" /* TRUE - numeric comparisons disregard leading zeroes */ 
VS iak Aa EST ' /* TRUE - blanks disregarded af 
"ABC' = 'Abc' /* FALSE - string comparisons are case-sensitive %/ 
'ABC' = '' ABC ' /* TRUE- preceding & trailing blanks are irrelevant xf 


ne a ; /* TRUE- null string is blank-padded for comparison =f 


Rexx also provides for strict comparisons of character strings. In strict comparisons, two strings must be iden- 
tical to be considered equal — leading and trailing blanks count and no padding occurs to the shorter 
string. Strict comparisons only make sense in string comparisons, not numeric comparisons. Strict com- 
parison operators are easily identified because they contain doubled operators, as shown in the follow- 
ing chart: 


Strict Comparison Operator Meaning 
== Strictly equal 
\=s= a= Strictly not equal 
>> Strictly greater than 
<< Strictly less than 
>>= \<< a<< Strictly greater than or equal to, strictly not less than 
<<= \>> a>> Strictly less than or equal to, strictly not greater than 


29 


Chapter 2 


Here are sample strict string comparisons: 


‘STP. SS NST '  /* FALSE - strict comparisons include blanks a 
'ABC' >> 'AB! /* TRUE - also TRUE as a nonstrict comparison *} 
"ABC" Ges 4 ABC ' /* FALSE - blanks count in strict comparison ey 
ae ==" 4 J /* FALSE - blanks count in strict comparison Lah 


Logical operators are sometimes called Boolean operators because they apply Boolean logic to the operands. 
Rexx’s logical operators are the same as the logical operators of many other programming languages. 
This table lists the logical operators: 


Logical Operator Meaning Use 
& Logical AND TRUE if both terms are true 
Logical OR TRUE if either term is true 
&& Logical EXCLUSIVE OR TRUE if either (but not both) 
terms are true 
= or \ (asa prefix) Logical NOT Changes TRUE to FALSE and 
vice versa 


Boolean logic is useful in if statements with multiple comparisons. These are also referred to as com- 
pound comparisons. Here are some examples: 


if ('A’ = vari & ('B' = var2) then 
say 'Displays only if BOTH comparisons are TRUE' 


if ('A' = vari | ('B' = var2) then 
say 'Displays if EITHER comparison is TRUE' 


if (‘A' = varl) && ('B' = var2) then 
say 'Displays if EXACTLY ONE comparison is TRUE' 


if \('A' = vari then say 'Displays if A is NOT equal to varl' 


Concatenation is the process of pasting two or more character strings together. Strings are appended one 
to the end of the other. Explicitly concatenate strings by coding the concatenation operator | | . Rexx also 
automatically concatenates strings when they appear together in the same statement. Look at these 
instructions executed in sequence: 


my_var = 'Yogi Bear' 
say 'Hi there,' || ' ' || my_var /* displays: ‘Hi there, Yogi Bear' */ 
say 'Hi there, 'my_var /* displays: 'Hi there,Yogi Bear' 

no space after the comma */ 
say 'Hi there,' my_var /* displays: 'Hi there, Yogi Bear' 


one space after the comma */ 


The second say instruction shows concatenation through abuttal. A literal string and a variable appear 
immediately adjacent to one another, so Rexx concatenates them without any intervening blank. 
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Contrast this to the last say instruction, where Rexx concatenates the literal and variable contents, but 
with one blank between them. If there are one or more spaces between the two elements listed as 
operands to the say instruction, Rexx places exactly one blank between them after concatenation. 


Given these three methods of concatenating strings, individual programmers have their own prefer- 
ences. Using the concatenation operator makes the process more explicit, but it also results in longer 
statements to build the result string. 


Rexx has four kinds of operators: arithmetic, comparison, logical, and concatenation. And there are sev- 
eral operators in each group. If you build a statement with multiple operators, how does Rexx decide 
which operations to execute first? The order can be important. For example: 

4 times 3, then subtract 2 from the result is 10 
Perform those same operations with the same numbers in a different order, and you get a different result: 


3 subtract 2, then multiple that times 4 yields the result of 4 


Both these computations involve the same two operations with the same three numbers but the opera- 
tions occur in different orders. They yield different results. 


Clearly, programmers need to know in what order a series of operations will be executed. This issue is 
often referred to as the operator order of precedence. The order of precedence is a rule that defines which 
operations are executed in what order. 


Some programming languages have intricate or odd orders of precedence. Rexx makes it easy. Its order 
of precedence is the same as in conventional algebra and the majority of programming languages. (The 
only minor exception is that the prefix minus operator always has higher priority than the exponential 
operator). 


From highest precedence on down, this lists Rexx’s order of precedence: 


Q ‘Prefix operators fe ee ON 

Q-Power operator ae 

Q = Addition and subtraction + 

OQ) Concatenation by intervening blanks || by abuttal 

Q Comparison operators = == > < >= <= _...and the others 
Q ~~ Logical AND & 

Q Logical OR 

Q EXCLUSIVE OR && 


If the order of precedence is important to some logic in your program, an easy way to ensure that opera- 
tions occur in the manner in which you expect is to simply enclose the operations to perform first in 
parentheses. When Rexx encounters parentheses, it evaluates the entire expression when that term is 
required. So, you can use parentheses to guarantee any order of evaluation you require. The more 
deeply nested a set of parentheses is, the higher its order of precedence. The basic rule is this: when Rexx 
encounters expressions nested within parentheses, it works from the innermost to the outermost. 
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To return to the earlier example, one can easily ensure the proper order of operations by enclosing the 
highest order operations in parentheses: 


say (4 * 3) -2 /* displays: 10 */ 
To alter the order in which operations occur, just reposition the parentheses: 


say 4 * (3 - 2) /* displays: 4 */ 


Summary 


This chapter briefly summarizes the basic elements of Rexx. We’ve kept the discussion high level and 
have avoided strict “textbook definitions.” We discussed variable names and how to form them, and the 
difference between simple variable names and the compound variable names that are used to represent 
tables or arrays. We discussed the difference between strings and numbers and how to assign both to 
variables. 


We also listed and discussed the operators used to represent arithmetic, comparison, logical, and string 
operations. We gave a few simple examples of how the operators are used; you'll see many more, real- 
world examples in the sample scripts in the upcoming chapters. 


The upcoming chapters round out your knowledge of the language and focus in more detail on its capa- 
bilities. They also provide many more programming examples. Their sample scripts use the language 
elements this chapter introduces in many different contexts, so you'll get a much better feel for how they 
are used in actual programming. 


Test Your Understanding 
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1. How are comments encoded in Rexx? Can they span more than one line? 
2. How does Rexx recognize a function call in your code? 


3. Must variables be declared in Rexx as in languages like C++, Pascal, or Java? How are variables 
established, and how can they be tested to see if they have been defined? 


4. What are the two instructions for basic screen input and output? 


5. What is the difference between a comparison and strict comparison? When do you use one versus 
the other? Does one apply strict comparisons to numeric values? 


6. How do you define a numeric variable in Rexx? 


Control Structures 


Overview 


Program logic is directed by what are called control structures or constructs — statements like 
if- then-else, do-while, and the like. Rexx offers a complete set of control structures in less than 
a dozen instructions. 


Rexx fully supports structured programming, a rigorous methodology for program development 
that simplifies code and reduces programmer error. Invented and defined by such experts as 
Edsger Dijkstra and Edward Yourdon, structured programming restricts control structures to a 
handful that permit single points of entry and exit to code blocks. The “golden rule” of structured 
programming mandates that there should be only a single entry point and a single exit point from 
any code block, such as a do loop. Goto’s and unstructured entries and exits are prohibited. 


Structured programming encourages modularity and reduces complex spaghetti code to short, 
readable, sections of self-contained code. Small, well-documented routines mean greater clarity 
and fewer programmer errors. While developer convenience sometimes leads to unstructured 
code (“Well... it made sense when I wrote it!”), structured, modular code is more readable and 
maintainable. 


We recommend structured programming; nearly all of the examples in this book are 
structured. But we note that, as a powerful programming language, Rexx includes instructions 
that permit unstructured coding if desired. 


This chapter discusses how to write structured programs with Rexx. We start by listing the Rexx 
instructions used to implement structured constructs. Then, we describe each in turn, showing 
how it is used in the language through numerous code snippets. At appropriate intervals, we pre- 
sent complete sample scripts that illustrate the use of the instructions in structured coding. 


The latter part of the chapter covers the Rexx instructions for unstructured programming. While 
we don’t recommend their general use, there are special situations in which these instructions are 
highly convenient. Any full-power scripting language requires a full set of instructions for control- 
ling logical flow, including those that are unstructured. 
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Structured Programming in Rexx 


As we've mentioned, structured programming consists of a set of constructs that enforce coding disci- 
pline and organization. These are implemented in Rexx through its basic instructions for the control of 
program logic. The basic constructs of structured programming and the Rexx instructions used to imple- 
ment them are listed in this table: 


Structured Construct Rexx Instruction 

PROCESS Any set of instructions, executed one after another. The exit or 
return instructions end the code composing a program or routine. 

IF-THEN. IF-THEN-ELSE if 

DO. DO-WHILE do 

CASE select 

CALL call 


Figure 3-1 illustrates the structured constructs. 
The Structured Control Constructs 


Process If If-then-else 


vy 
Wi v y 
Do-while v | 
Case 
Call 
v 
subroutine 


| 


v 
Figure 3-1 
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IF Statements 


if statements express conditional logic. Depending on the evaluation of some condition, a different 
branch of program logic executes. if statements are common to nearly all programming languages, and 

they represent the basic structured instruction for conditional logic. The two basic formats of the Rexx if 
instruction are: 


and 


Rexx evaluates the expression to 1 if it is TRU] 


IF expression THEN instruction 


IF expression THEN instruction ELSE instruction 


iad: 


, and 0 if itis FALSE. Here are sample if statements: 


/* A simple IF statement with no ELSE clause */ 


if input = 'YES' then 
say 'You are very agreeable' 


/* In this example the IF statement tests a two-part or "compound" condition. The 
SAY instruction executes only if BOTH conditions are TRUE, because of the 


AND (&) operator */ 


if input = 'YES' & second_input = 'YES' then 
say 'You are doubly agreeable today' 


/* This compound IF is true if EITHER of the two expressions are TRUE */ 


if input = 'YES' | second_input = 'YES' then 
say 'You are singly agreeable today' 


/* Here's a simple IF statement with an ELSE clause. 
The DATATYPE function verifies whether the variable INPUT contains a NUMBER */ 


if datatype(input,N) then 

say ‘Your input was a number' 
else 

say 'Your input was not numeric' 


/* This coding is NOT recommended in Rexx, though it is popular in languages 
like C or C++ or many Unix shell languages... 
Variable VAR must be exactly 1 or 0 -- or else a syntax error will occur! */ 


if (var) then 

say 'VAR evaluated to 1' 
else 

say 'VAR evaluated to 0' 


To execute more than a single instruction after either the then or else keywords, you must insert the 
multiple instructions between the keywords do and end. Here is an example: 
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if datatype(input,N) then do 
say 'The input was a number' 
status_record = 'VALID' 


end 

else do 
say 'The input was NOT a number' 
status_record = 'INVALID' 

end 


The do-end pair groups multiple instructions. This is required when you encode more than one instruc- 
tion as a logic branch in an if instruction. Notice that you must use the do-end pair for either branch of 
the if instruction when it executes more than a single statement. In other words, use the do-end pair to 
group more than a single instruction on either the then or the else branches of the if instruction. 


You can nest if statements, one inside of another. If you nest if statements very deeply, it becomes con- 
fusing as to which else clause matches which if instruction. The important rule to remember is that an else 
clause is always matched to the nearest unmatched if. Rexx ignores indentation, so how you indent nested if 
statements has no effect on how Rexx interprets them. 


The following code includes comments that show where the programmer sees the end of each if 
instruction. He or she includes these for documentation purposes only, since Rexx ignores comments 
(regardless of what the comments may say). 


if age => 70 then 
say 'Person MUST start taking mandatory IRA distributions' 
else 
if age >= 65 then 
say 'Person can receive maximum Social Security benefits' 
else 
if age >= 62 then 
say 'Person may elect reduced Social Security benefits' 
else 
say 'Person is a worker bee, not a beneficiary' 
/* end-if */ 
/* end-if */ 
/* end-if */ 


Here’s another style in which to code this example. This series of nested if statements is sometimes 
referred to as an if-else-if ladder. The first logic branch that evaluates to TRUE executes: 


if age => 70 then 

say 'Person MUST start taking mandatory IRA distributions' 
else if age >= 65 then 

say 'Person can receive maximum Social Security benefits' 
else if age >= 62 then 

say 'Person may elect reduced Social Security benefits' 


Some languages provide special keywords for this situation, but Rexx does not. (For example, some 


Unix shell languages provide the elif keyword to represent Rexx’s else if pair). Remember to code a 
do - end pair whenever more than one instruction executes within a branch of the if instruction. 
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The if-else-if ladder embodies another structured construct often referred to the CASE construct. Ina 
CASE construct, a set of conditions are tested, then one logic branch is selected from among several. 


Rexx provides the select instruction to create CASE logic, as will be explained later. In Rexx you can 
either choose an if-else-if ladder or the select instruction to encode CASE logic. 


Sometimes, you'll encounter a coding situation where you want to code a logic branch that performs no 
action. In this case, code the Rexx nop instruction. “nop” is a traditional computer science abbreviation 
or term that means “no operation.” The nop instruction is a placeholder that results in no action. Here 
is an example. The nop instruction in this code ensures that no action is taken when the if statement 
condition evaluates to TRUE: 


if case_is_undetermined = 'Y' then 

nop /* No action is taken here. NOP is a placeholder only. */ 
else do 

say 'Case action completed' 

status_msg = 'Case action completed' 
end 


DO Statements 


The do instruction groups statements together and optionally executes them repetitively. It comes in sev- 
eral forms, all of which we'll explore in this chapter. do instructions permit repetitive execution of one or 
more statements. They are the basic way you code program “loops” in Rexx. 


You are already familiar with the simple do-end pair used to group multiple instructions. Here is the 
generic representation of how this is coded: 


DO 
IWnSeruction List 
END 


Use the do-end group when you must execute multiple instructions in a branch of the if instruction, for 
example. Here’s another form of the do instruction that repetitively executes a group of instructions 
while the condition in the expression is TRUE: 


DO WHILE expression 
Instruction. It et 
END 


This coding example shows how to use this generic format. It employs a do while to call a subroutine 
exactly 10 times: 


3 S01 

do while j <= 10 
call sub_routine 
jae pk a 

end 
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The do instruction is flexible and offers other formats for devising loops. The preceding loop could also 
be coded with a simpler form of the do instruction: 


do 10 
call sub_routine 
end 


Or, the example could be coded using a controlled repetitive loop: 


do j=1 to 10 byl 
call sub_routine 
end 


The phrase by 1 is unnecessary because Rexx automatically increases the do loop control variable by 1 if 
this phrase is not coded. But the keyword by could be useful in situations where you want to increase 
the loop counter by some other value: 


do j = 1 to 20 by 2 
call sub_routine 
end 


In addition to the to and by keywords, for may be used establish another limit on the loop’s execution 
if some other condition does not terminate it first. for is like to, in that Rexx checks it prior to each iter- 
ation through the loop. to, by, and for may be coded in any order. In this example, the for keyword 
limits the do loop to three executions: 


do j = 1 to 100 by 1 for 3 
say 'Loop executed:' j  'times.' /* Ends with: 'Loop executed: 3 times.'! */ 
end 


You may alter the loop control variable yourself, directly, while inside of the do loop, but this is not a rec- 
ommended programming practice. It is confusing, and there is always an alternative way to handle such 
a situation from the logical standpoint. We recommend always using the loop control variable only for 
controlling an individual loop, and only altering that variable’s value through the do instruction condi- 
tion test. 


Rexx also contains unstructured loop control instructions such as leave, iterate, and signal, which 
we cover later in the section of this chapter on unstructured control constructs. At that time we also 
cover the do until and do forever forms of do loops, which also fall outside the rules of structured 
programming. 


Sample Program 


This program prompts the user to input a series of words, one at a time. The program identifies words 
that are four characters long, and concatenates them into a list, which it then displays. The program 
illustrates a basic do loop, using it to read input from the user. It also shows how to use the if instruc- 
tion in determining the lengths of the words the user enters. 
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If you were to enter this sentence to the program (one word at a time): 

now is the time for all good men to come to the aid of their country 
the program’s output would be: 

Four letter words: time good come 


Here’s the sample program: 


/* FOUR LETTER WORDS: if, 
la af 
is This program identifies all four letter words in the a, 
ie input and places them into an output list. wy 
four_letter_words = '' /* initialize to no 4 letter words found yet */ 
say "Enter a word: " /* prompt user to enter 1 word at), 
parse pull wordin . /* the period ensures only 1 word is read in i 


do while wordin \= '' 
if length(wordin) = 4 then 


four_letter_words = four_letter_words wordin 
say "Enter a word: " /* read the next word in * 
parse pull wordin . 
end 
say 'Four letter words:' four_letter_words /* display output ay 


The do while loop in this script provides the control structure for the program to prompt the user and 
read one word after that prompt. The do while loop terminates when the user declines to enter a word — 
after the user just presses the <ENTER> key in response to the program’s prompt to Enter a word: 
When the user presses the <ENTER> key without entering a word, this statement recognizes that fact and 
terminates the do while loop: 


do while wordin \= '' 


Recall that the pu11 instruction reads an input and automatically translates it to uppercase. This pro- 
gram uses parse pull to read an input without the automatic translation to uppercase: 


parse pull wordin . 
The period ensures that only the first word is accepted should the user enter more than one. This use of 
the period is a convention in Rexx, and it’s about the only example of syntax-based coding in the entire 
language. You could achieve the same effect by coding: 


parse pull wordin junk 


The first word entered by the user is parsed into the variable wordin, while any remaining words 
entered on the input line would be placed into the variable named junk. 
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The program uses the length function to determine whether the word the user entered contains four 
letters. If so, the next statement concatenates the four letter word into a list it builds in the variable 
named four_letter_words. 


if length(wordin) = 4 then 
four_letter_words = four_letter_words wordin 


The assignment statement relies on the fact that Rexx automatically concatenates variables placed in the 
same statement, with one space between each. An alternative would have been to use the explicit con- 
catenation operator: 

four_letter_words = four_letter_words || wordin 
But in this case the output would have been: 

Four letter words: timegoodcome 
Explicit concatenation requires explicitly splicing in a blank to achieve properly spaced output: 


four_letter_words = four_letter_words || ' ' || wordin 


After the user is done entering words, the program displays the output string through the following 
statement. Since this is the last statement coded in the program, the script terminates after issuing it: 


say 'Four letter words:' four_letter_words /* display output */ 


SELECT Statements 
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The CASE construct tests a series of conditions and executes the set of instructions for the first condition 
that is TRUE. Rexx implements the CASE construct through its select instruction. The select instruc- 
tion tests expressions and executes the logic branch of the first one that evaluates to TRUE. Here is the 
generic format of the select instruction: 


S] 


LECT when_list [ OTHERWISE Inetruction list") “END 


eI 


The otherwise branch of the select instruction executes if none of the prior when_list conditions are 
found to be TRUE. Note that it is possible to code a select instruction without an otherwise keyword, 
but if none of the when_list conditions execute, an error results. We strongly recommend coding an 
otherwise section on every select statement. 


The Rexx select instruction provides more control than the same CASE construct in some other pro- 
gramming languages because you can encode any expression in the when clause. Some languages only 
permit testing the value of a specified variable. 


Here’s a simple coding example using select: 
select 


when gender = 'M' then 
say 'Gender is male' 
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when gender = 'F' then do 
say 'Gender is female' 
female_count = female_count + 1 


end 
otherwise 
say 'Error -- Gender is missing or invalid' 


say 'Please check input record' 
end /* this END pairs with the SELECT instruction itself */ 


If the value in the variable gender equals the character M, the first logic branch executes. If the value is F, 
the group of instructions associated with the second when clause runs. If neither case is true, then the 
instructions following the otherwise keyword execute. 


Notice that an instruction_list follows the otherwise keyword, so if you code more than one state- 
ment here you do not need to insert them in a do-end pair. Contrast this to the when groups, which do 
require a do-end pair if they contain more than a single instruction. Don’t forget to encode the final end 
keyword to terminate the select statement. 


CALL Statements 


All programming languages provide a mechanism to invoke other scripts or routines. This allows one 
script, referred to as the caller, to run another, the subroutine. Rexx’s cal1 instruction invokes a subrou- 
tine, where the subroutine may be one of three kinds: 


Qs Internal— Consists of Rexx code residing in the same file as the caller. 
OQ Built-in — One of the Rexx built-in functions. 


Q = External— Code residing in a different file than the invoking script. An external subroutine may 
be another Rexx script, or it may be written in any language supporting Rexx’s interface. 


The subroutine may optionally return one value to the caller through the Rexx special variable named 
result. (Rexx has only a handful of special variables and result is one of them). Of course, you can 
have the subroutine send back one or more results by changing the values of variables it has access to. 
We'll explore all the ways in which caller and subroutines or functions can communicate in detail in 
Chapter 8, which is on subroutines and modularity. For now, we'll just focus our discussion on the call 
instruction. 


Subroutines and functions are very similar in Rexx. The one difference is that a function must return a 
value to the caller by its return instruction, where a subroutine may elect do so. 


The following sample program illustrates the call instruction by invoking an internal routine as a sub- 
routine. The subroutine is considered internal because its code resides in the same file as that of the pro- 


gram that calls it. The program subroutine squares a number and returns the result. 


The main program reads one input number as a command-line argument or input parameter. To run the pro- 
gram and get the square of four, for example, you enter this line to specify the command-line argument: 


square.rexx 4 
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Or, you may start the program by entering a line like this: 

regina square 4 
Recall that the first example given earlier implicitly invokes the Rexx interpreter, while the second exam- 
ple explicitly invokes it. The command-line argument follows the name of the Rexx script you want to 
run. Here it’s a single value, 4, but other programs might have either many or no command-line 
arguments. 
The program responds to either of the above commands with: 


You entered: 4 Soieneeel alice ase 16 


Here’s the program code: 


/* SQUARE: wi 
pee yf 
ies Squares a number by calling an internal subroutine mae 
arg number_in . /* retrieve the command-line argument wy 


call square_the_number number_in 


say 'You entered:' number_in ' Squared it is:' result 

exit 0 

/*  SQUARE_THE_NUMBER: */ 
ed */ 
os Squares the number and RETURNs it into RESULT as 


square_the_number: procedure 


arg the_number 
return the _number * the_number 


The main program or driver uses the arg instruction to read the command-line argument into variable 
number_in. As with the pull and parse pull instructions, encode a period (.) at the end of this state- 
ment to eliminate any extraneous input: 


arg number_in . /* retrieve the command-line argument */ 


The call instruction names the internal routine to invoke and passes the variable number_in to that 
routine as its input. The subroutine uses the arg instruction to read this parameter (exactly as the main 
routine did). Here is the encoding of the cal1 instruction. The first parameter names the subroutine or 
function to run, while each subsequent parameter is an input argument sent to the subroutine. In this 
case, the call instruction passes a single argument named number_in to the subroutine named 
square_the_number: 


call square_the_number number_in 


The first line of the subroutine identifies it as the routine named square_the_number. Notice that a 
colon follows its name on the first line of the subroutine — this identifies a Jabel in Rexx. An internal 
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subroutine starts with the routine’s name in the form of a label. The procedure instruction on the first 
line of the subroutine ensures that only the arguments passed to the subroutine will be accessable from 
within it. No other variables of the calling routine are viewable or changeable by this subroutine. Here is 
the first executable line of the subroutine: 


square_the_number: procedure 


The subroutine reads the number passed into it from its caller by the arg instruction. Then, the subrou- 
tine returns a single result through its return instruction. Here is how this line is encoded. Notice that 
Rexx evaluates the expression (squaring the number) before executing the return instruction: 


return the_number * the_number 


The caller picks up this returned value through the special variable named result. The main routine dis- 
plays the squared result to the user through this concatenated display statement: 


say 'You entered:' number_in ' Squared it is:' result 
This displays an output similar to this to the user: 
You entered: 2 Squared it is: 4 


The driver ends with the instruction exit 0. This unconditionally ends the script with a return code, or 
returned value, of 0. The last statement of the internal subroutine was a return instruction. return 
passes control back to the calling routine, in this case passing back the squared number. If the subroutine 
is a function, a return instruction is required to pass back a value. 


There is much more to say about subroutines and modular program design. We leave that discussion to 
Chapter 8. For now, this simple script illustrates the structured CALL construct and how it can be used 
to invoke a subroutine or function. 


Another Sample Program 


Here’s a program that shows how to build menus and call subroutines based on user input. This pro- 
gram is a fragment of a real production program, slimmed down and simplified for clarity. The script 
illustrates several instructions, including do and select. It also provides another example of how to 
invoke internal subroutines. 


The basic idea of the program is that it displays a menu of transaction options to the user. The user picks 
which transaction to execute. The program then executes that transaction and returns to the user with 
the menu. Here is how it starts. The program clears the screen and displays a menu of options to the 
user that looks like this: 


Select the transaction type by abbreviation: 


Insert = 
Update = 
Delete = 

palic = 


I 
xO GH 


Your choice => 
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Based on the user’s input, the program then calls the appropriate internal subroutine to perform an 
Insert, Update, or Delete transaction. (In the example, these routines are “dummied out” and all each 
really does is display a message that the subroutine was entered). The menu reappears until the user 
finally exits by entering the menu option ‘x’. 


Here’s the complete program: 


/* MENU: ny 
fpr ey 
ps This program display a menu and performs updates based e/) 
ips on the transaction the user selects. if 
"eles /* clear the screen (Windows only) */ 
nice voe = "4 
do while tran_type \= 'X' /* do until user enters 'X' avs 

say 

say 'Select the transation type by abbreviation:' 

say 

say ' ibaksyeugie. = IE! 

say '' Update = U' 

say ' Delete = D' 

say '' japig = Oe | 

say 


Bieky “Wowie Claoalce = | 
pull tran_type 
select 
when tran_type = 'I' then 
call insert_routine 
when tran_type = 'U' then 
call update_routine 
when tran_type = 'D' then 
call delete_routine 
when tran_type = 'X' then do 


say 
Say ‘Bye!' 
end 

otherwise 
say 


say 'You entered invalid transaction type:' tran_type 
say ‘Press <ENTER> to reenter the transaction type.' 
pull 
end 
end 
exit 0 


/* INSERT_ROUTINE goes here * 
INSERT_ROUTINE: procedure 
say ‘Insert Routine was executed' 


return 0 
/* UDPATE_ROUTINE goes here sy) 
UPDATE_ROUTINE: procedure 


44 


Control Structures 


say 'Update Routine was executed' 
return 0 


/* DELETE_ROUTINE goes here yp 
DELETE_ROUTINE: procedure 

say 'Delete Routine was executed' 

return 0 


The first executable line in the program is this: 
“els! /* clear the screen (Windows only) */ 


When the Rexx interpreter does not recognize a statement as part of the Rexx language, it assumes that it 
is an operating system command and passes it to the operating system for execution. Since there is no 
such command as cls in the Rexx language, the interpreter passes the string cls to the operating sys- 
tem for execution as an operating system command. 


cls is the Windows command to “clear the screen,” so what this statement does is send a command to 
Windows to clear the display screen. Of course, this statement makes this program operating-system- 
dependent. To run this program under Linux or Unix, this statement should contain the equivalent com- 
mand to clear the screen under these operating systems, which is clear: 


‘clear' /* clear the screen (Linux/Unix only) */ 
Passing commands to the operating system (or other external environments) is an important Rexx fea- 
ture. It provides a lot of power and, as you can see, is very easy to code. Chapter 14 covers this topic in 


detail. 


Next in the program, a series of say commands paints the menu on the user’s screen: 


say 
say 'Select the transation type by abbreviation: ' 
say 

say ' Insert = I ' 

say ' Update = U' 

say ' Delete = D' 

say ' Exit = X '' 

say 


say 'Your choice => ' 


A say instruction with no operand just displays a blank line and can be used for vertically spacing the 
output on the user’s display screen. 


The script displays the menu repeatedly until the user finally enters ‘x’ or ‘x’. The pu11 command’s 
automatic translation of user input to uppercase is handy here and eliminates the need for the program- 


mer to worry about the case in which the user enters a letter. 


The select construct leads to a call of the proper internal routine to handle the transaction the user 
selects: 
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select 

when tran_type = 'I' then 
call insert_routine 

when tran_type = 'U' then 
call update_routine 

when tran_type = 'D' then 
call delete_routine 

when tran_type = 'X' then do 
say 
say 'Bye!' 
end 

otherwise 
say 
say 'You entered invalid transaction type:' tran_type 
say 'Press <ENTER> to reenter the transaction type.' 
pull 

end 


The when clause where the user enters ‘x’ or ‘x’ encloses its multiple instructions within a do-end pair. 
The otherwise clause handles the case where the user inputs an invalid character. The final end in the 
code concludes the select instruction. 


Remember that the logic of the select statement is that the first condition that evaluates to TRUE is the 
branch that executes. In the preceding code, this means that the program will call the proper subroutine 
based on the transaction code the user enters. 


Following the select instruction, the code for the main routine or driver ends with an exit 0 statement: 


exit 0 


This delimits the code of the main routine from that of the routines that follow it and also sends a return 
code of 0 to the environment when the script ends. An exit instruction is required to separate the code 
of the main routine from the subroutines or functions that follow it. 


The three update routines contain no real code. Each just displays a message that it ran. This allows the 
user to verify that the script is working. These subroutines cannot access any variables within the main 
routine, because they have the procedure instruction, and no variables are passed into them. Each ends 
with a return 0 instruction: 


return 0 


While this sample script is simple, it shows how to code a menu for user selection. It also illustrates call- 
ing subroutines to perform tasks. This is a nice modular structure that you can expand when coding 
menus with pick lists. Of course, many programs require graphical user interfaces, or GUIs. There are a 
variety of free and open-source GUI interfaces available for Rexx scripting. GUI programming is an 
advanced topic we'll get to in a bit. Chapter 16 shows how to program GUIs with Rexx scripts. 


Control Structures 


Unstructured Control Instructions 


Rexx is a great language for structured programming. It supports all the constructs required and makes 
structured programming easy. But the language is powerful and flexible, and there are times when 
unstructured flow of control is necessary (or at least highly convenient). Here are the unstructured 
instructions that alter program flow in Rexx: 


Instruction Use 


do until A form of the do instruction that implements a bottom-drive loop. Unlike do- 
while, do-until will always execute the code in the loop at least one time, 
because the condition test occurs at the bottom of the loop. 


do forever Creates an endless loop, a loop that executes forever. This requires an unstruc- 
tured exit to terminate the loop. Code the unstructured exit by either the 
leave, signal or exit instruction. 


iterate Causes control to be passed from the current statement in the do loop to the 
bottom of the loop. 

leave Causes an immediate exit from a do loop to the statement following the loop. 

signal Used to trap exceptions (specific program error conditions). Can also be used to 


unconditionally transfer control to a specified label, similarly to the GoTo 
instruction in other programming languages. 


Figure 3-2 below illustrates the unstructured control constructs. 


The do until and do forever are two more forms of the do instruction. do until implements a 
bottom-driven loop. Such a loop always executes at least one time. In contrast, the do while checks the 
condition prior to entering the loop, so the loop may or may not be executed at least once. do until is 
considered unstructured and the do while is preferred. Any logic that can be encoded using do until 
can be coded using do while—you just have to think for a moment to see how to change the logic into 
ado while. 


Let’s look at the difference between do while and do until. This code will not enter the do loop to 
display the message. The do while tests the condition prior to executing the loop, so the loop never 
executes. The result in this example is that the say instruction never executes and does not display the 
message: 


ex = 'NO' 

do while ex = 'YES' 
say 'Loop 1 was entered' /* This line is never displayed. Ph 
ex-= “YES" 

end 
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The Un-Structured Control Constructs 


Do-until 
Do-Forever 


mel 


Iterate 
vy 


Leave 


Signal 


Figure 3-2 


If we replace the do while loop witha do until loop, the code will execute through the loop one time, 
printing the message once. This is because the condition test is applied only at the bottom of the loop. A 
do until loop will always execute one time, even if the condition test on the do until is false, because 
the test is not evaluated until after the loop executes one time. The result in this example is that the say 
instruction executes once and displays one output line: 


ex = 'NO' 

do until ex = 'YES' 
say 'Loop 2 was entered' /* This line is displayed one time. */ 
ex = 'YES' 

end 


do forever creates an endless loop. You must have some unstructured exit from within the loop or your 
program will never stop! This example uses the leave instruction to exit the endless loop when 3 = 4. 
The leave instruction transfers control to the statement immediately following the end that terminates 
the do loop. In this example, it breaks the endless loop and transfers control to the say statement imme- 
diately following the loop: 


jf. 2k 
do forever 
/* do some work here */ 
jegztetl 
if j = 4 then leave /* exits the DO FOREVER loop */ 


Control Structures 


end 
say 'The above LEAVE instruction transfers control to this statement’ 


Another way to terminate the endless loop is to encode the exit instruction. exit ends a program 
unconditionally (even if a subroutine is executing or if execution is nested inside of a do loop). Control 
returns to the environment (the operating system) with the optional string encoded on the exit state- 
ment passed up. 


What return code you can pass to the environment or operating system using the exit instruction 
depends on what that operating system accepts. Some systems accept only return codes that are numeric 
digits between 0 and 127. If your script returns any other string, it is translated into a 0. Other operating 
systems will accept whatever value you encode on the exit instruction. 


Here’s an example. The following code snippet is the same as the previous one, which illustrates the 
leave instruction, but this time when the condition j = 4 is attained, the script unconditionally exits 
and returns 0 to the environment. Since the script ends, the say instruction following the do forever 
loop never executes and does not display its output: 


j=l 
do forever 

/* do some work here */ 

Jegetl 

if j = 4 then 

exit 0 /* unconditionally exits and passes '0' back to the environment */ 

end 
say 'this line will never be displayed' /* code EXITs, never reaches this line 
ued 


Another instruction for the unstructured transfer of control is signal. The signal instruction acts much 
like the GOTO statement of other programming languages. It transfers control directly out of any loop, 
CASE structure, or if statement directly to a Rexx label. A label is simply a symbol immediately fol- 
lowed by a colon. This sample code snippet is similar to that we’ve seen earlier, except that this time the 
signal instruction transfers control to a program label. So, once 3 = 4 and the signal instruction exe- 
cute, control is transferred to the program label and the say instruction displays its output line: 


Jo Se: 
do forever 
/* do some work here */ 
Pets eee aml 
if j = 4 then 
signal my_routine /* unconditionally go to the label MY_ROUTINE */ 
end 


/* other code here gets skipped by the SIGNAL instruction */ 


my_routine: 
say 'SIGNAL instruction was executed, MY_ROUTINE entered...' 


signal differs from the GOTO of some other languages in that it terminates all active control structures in 
which it is encoded. You could not transfer control to another point in a loop using it, for example. 
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Duplicate labels are allowed within Rexx scripts, but control will always be transferred to the one that 
occurs first. We recommend that all labels in a program be unique within a program for the sake of 
readability. 


In an entirely different role, the signal instruction is also used to capture or “trap” errors and 
special conditions. Chapter 10 discusses this in detail. This is a special mechanism within the Rexx 
language designed to capture unusual error conditions or “exceptions.” 


The last unstructured instruction to discuss is the iterate instruction. The iterate instruction causes 
control to be passed from the current statement in the do loop to the bottom of the loop. In this example, 
the iterate instruction ensures that the say instruction never executes. The if instruction’s 
condition evaluates to TRUE every time that statement is encountered, so the iterate instruction 
reruns the do loop and the say instruction never runs: 


3 =1 
do until j = 4 
/* do some work here */ 
Det ied 
if j > 1 then iterate 
say 'This line is never displayed!' /* this line will never execute */ 
end 


Summary 


This chapter summarizes Rexx’s structured and unstructured control constructs. These include the if, 
do, select, call, exit, and return instructions for structured programming, and the unstructured 
iterate, leave, and signal instructions. The do until and do forever forms of the do 
instruction are also unstructured. 


For more background on why structured programming is beneficial -- especially for larger and more 
complicated programs -- refer to the works of Edward Yourdon and Edsger Dijkstra. 


Use the instructions this chapter covers to direct conditional logic as in most other programming 
languages. This chapter presented many small code snippets to illustrate how to use the instructions that 
control program logic. Subsequent chapters will provide many more examples of the use of these 
instructions. These upcoming examples demonstrate the instructions in the more realistic context of 
complete programs. They will make the use of the instructions for the control of logical flow much 
clearer. 


Test Your Understanding 


1 Why is structured programming recommended? What Rexx instructions implement 
structured programming? How do subroutines and functions support the benefits of 
structured programming? 


2. How does Rexx determine which if instruction each else keyword pairs with? 
3. Name two ways that a script can test for the end of user input. 


4. What are the differences between built-in, internal, and external subroutines? What is the 
difference between a function and a subroutine? 
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What are the values of TRUE and FALSE in Rexx? 
What is the danger in coding ado forever loop? How does one address this danger? 


What are the two main functions of the signal instruction? How does the signal 
instruction differ from the GOTO command of many other programming languages? 


What is the difference between the do-while and do-until instructions? Why use one 
versus the other? Are both allowed in structured programming? 
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Overview 


Every programming language provides for arrays. Sometimes they are referred to as tables. This 
basic data structure allows you to build lists of “like elements,” which can be stored, searched, 
sorted, and manipulated by other basic programming operations. 


You'll sometimes hear arrays referred to as compound variables or stem variables in Rexx. We'll 
explain why in just a moment. 


Rexx’s implementation of arrays is powerful but easy to use. Arrays can be of any dimensionality. 
They can be a one-dimensional list, where all elements in the array are of the same kind. They can 
be of two dimensions, where there exist pairs of entries. In this case, elements are manipulated by 
two subscripts (such as I and J). Or, arrays can be of as many dimensions as you like. While Rexx 
implementations vary, the usual constraint on the size and dimensionality of array is memory. This 
contrasts with other programming languages that have specific, language-related limitations on 
array size. 


Rexx arrays may be sparse. That is, not every array position must have a value or even be initial- 
ized. There can be empty array positions, or slots, between those that do contain data elements. Or 
arrays can be dense, in which consecutive array slots all contain data elements. Figure 4-1 below 
pictorially shows the difference between sparse and dense arrays. Dense arrays are also sometimes 
called nonsparse arrays. 


Arrays may be initialized by a single assignment statement. But just like other variables, arrays are 
defined by their first use. You do not have to predefine or preallocate them. Nor must you declare 
a maximum size for an array. The only limitation on array size in most Rexx implementations is 
imposed by the amount of machine memory. 
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Dense versus Sparse Arrays 


Element 1 <empty> 
Element 2 Element 1 
Element 3 <empty> 
Element 4 <empty> 
<empty> Element 2 
A Dense Array A Sparse Array 
Figure 4-1 


You can refer to individual elements within a Rexx arrray by numeric subscripts, as you do in other pro- 
gramming languages. Or, you can refer to array elements by variables that contain character strings. 
Rexx then uses those character strings as indexes into the array. For this reason, Rexx arrays are some- 
times termed content addressable. They can be used as a form of associative memory, in that they create an 
association between two values. This permits innovative use of arrays in problem solving. We'll explain 
what these terms mean and why are they important in more detail later in the chapter. We'll even give 
several examples of how content addressable memory structures are useful in resolving programming 
problems. For now, remember that the subscripts you encode to access individual array elements can be 
either numeric or string variables. 


Like many scripting languages, Rexx lacks complex data structures such as lists, trees, records, and the 
like. These are unnecessary because by understanding content-addressable arrays it is easy to build 
these structures. Rexx arrays provide the foundation to build any imaginable data structure. We'll show 
you how later in this chapter. First, let’s explore the basics of how to code arrays and process their data 
elements. 


The Basics 
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To approach the subject of arrays, let’s review the way variable names are created. The basis for Rexx 
arrays are compound variable names or symbols. So far we've seen several kinds of symbols within Rexx: 


OQ! Constants — Literal strings or other values that cannot be changed. 


OQ) = Simple symbols — Variable names that do not begin with a digit and do not contain any embed- 
ded period(s). 


QQ) Compound symbols — The basis for arrays. Like simple symbols, they do not begin with a digit. 
However, they contain one or more periods. 


Arrays 


Simple symbols are synonymous with variable names, as we have known them thus far, while compound 
symbols contain one or more periods. Compound symbols are the basis for arrays. 


In compound symbols, the stem is the part of the name up to and including the first period. The stem is 
sometimes called a stem variable. The tail comprises one or more symbols separated by periods. 


Here are a few examples: 


Qo list.j—Jist is the name of an array or table. 
Q list.j—list. is the stem of the array. Note that the stem name includes the period. 


Qo books.j.k—books. is the stem, j .k is the tail. j and k are two subscripts. 


In these examples, Rexx substitutes in the value of the variables j and k before referencing into the 
arrays. These values can be numbers, but they do not have to be. Rexx allows indexing into an array 
based on any variable value you encode, whether it is numeric or a string value. 


Here is a sample series of statements that refer to an array element based on a string value in a variable. 
The first line below initializes all elements in an array to the null string (represented by two back-to-back 
quotation marks). The second line assigns a value to a specific array element. The last two statements 
show how a character string provides a subscript into the array to retrieve that data element from the 
array: 


fruit. = '' /* initialize all array elements to the null string */ 
fruit.cherry = 'Tasty!' /* set the value of an array element ars 
subscript_string = cherry /* establish an index into the array x) 
say fruit.subscript_string /* displays: Tasty! */ 


It is probably worth noting that Rexx uppercases the string cherry into CHERRY in the subscript assign- 
ment statement above because that character string is not enclosed in quotation marks. Rexx also upper- 
cases variable names such as fruit.cherry into FRUIT. CHERRY internally. Had we coded 
subscript_string = ‘cherry’ as the third line in the sample code, it would not work properly. The 
array tail is uppercased internally by Rexx so the subscript string used for finding the data element must 
also be uppercase. 


What happens if you accidentally reference an array with a subscript that is not yet initialized? Recall 
that in Rexx an uninitialized variable is always its own name in uppercase. So, if my_index has not yet 
been assigned a value, my_array .my_index resolves to MY_ARRAY .MY_INDEX. Oops! This is probably 
not what the programmer intended. 


Initialize the array as a whole by referring to its stem. The dimensionality of the array does not matter to 
this operation. We saw one example of initializing an entire array in one line of the sample code. Here 


are some more examples: 


list. "=. 0 /* initialize all possible entries in the array LIST to 0 Ba 
books. = '' /* initialize all possible entries in BOOKS array to null string */ 


55 


Chapter 4 


You cannot perform other kinds of operations on entire arrays by single statements — in most Rexx 
implementations. For example, these statements are invalid and result in errors: 


numbers. = numbers. + 5 /* add 5 to each entry in the NUMBERS array */ 
lista. = listb. /* move all contents of array LISTB 
into the array LISTA */ 


To process all the elements in an array, use a do loop. This works as long as the array is indexed or sub- 
scripted by numeric values, and each position, or slot, in the array contains a value. To process all the 
elements in the array, you must keep track of the maximum subscript you use. There is no Rexx function 
that returns the largest numeric subscript you’ve used for an array. Here is an example that shows how 
to process all the elements of an array. In this code, each contiguous array position contains an element, 
and the array subscript is numeric: 


array_name. = '' /* initialize all elements to some nonoccurring value Gu 
number_of_elements = 5 /* initialize to the number of elements in the array “yf 
/* place elements into the array here */ 


/* This code processes all elements in the array. */ 
do j =1 to number_of_elements 

say "Here's an array element:" array_name.j 
end 


Another technique for array processing is to initialize the array to zeroes for numeric values, or to the 
empty string or null string for character string entries (represented by two back-to-back quotation 
marks '' ). Then process the array starting at the beginning until you encounter an entry set to the ini- 
tialization value. Here’s sample code that processes all elements of an array based on this approach: 


array_name. = '' /* initialize all array elements to some nonoccurring value */ 
/* place elements into the array here */ 


/* This code processes all elements in the array. */ 
Glo 3) = tl Goll: cuca ine. 3) <> 

say "Here's an array element:" array_name.j 
end 


If you take this approach, be sure that the value used for initialization never occurs in the data you place 
into the array! 


This approach also assumes a nonsparse, or dense, array — one in which the positions in the array have 
been filled consecutively without skipping array slots or positions. For a sparse array, we recommend 
storing the largest numeric subscript you use in a variable for future reference. Obviously, you cannot 
simply process a sparse array until you encounter the array initialization value because some positions 
within the array may not contain data items. In processing a sparse array, your code will have to be able 
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to distinguish between array positions that contain valid values and those that do not. For this reason, it 
is useful to initialize all sparse array elements to some unused default value (such as the null string or 
zeroes) prior to using the array. 


In many programming languages, you must be concerned with what the subscript of the first entry in a 
table is. Is the first numeric subscript 0 or 1? In Rexx, the first subscript is whatever you use! So, input 
the first array element into position 0 or 1 as you prefer: 

array_name.0 = 'first element' 
or 


array_name.1 = 'first element' 


Just be sure that whatever choice you make you remember and that you remain consistent in your 
approach. This flexibility is a handy feature of content-addressable arrays. 


As an informal convention, many Rexx programmers store the number of array elements in position 0, 
then start storing data elements in position 1: 


array_name. 
array_name. 
array_name. 
array_name. 


=.3 /* store number of elements in the array here */ 
‘first element' 
‘second element' 
‘last element' 


WNrR OO 
oul 


Assuming that the array is not sparse and the index is numeric, process the entire array with code like this: 


do j =1 to array_name.0 
say "Here's an array element:" array_name.j 


Placing the number of array elements into position 0 in the array is not required and is strictly an infor- 
mal convention to which many Rexx programmers adhere. But it’s quite a useful one, and we recom- 
mend it. 


A Sample Program 


This sample program illustrates basic array manipulation. The program defines two arrays. One holds 
book titles along with three descriptors that describe each book. The other array contains keywords that 
will be matched against the three descriptors for each book. 


The user starts the program and inputs a “weight” as a command line parameter. Then the program lists 
all books that have a count of descriptors that match a number of keywords at least equal to the weight. 
This algorithm is called weighted retrieval, and it’s often used in library searches and by online biblio- 
graphic search services. 
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Here’s the entire program. The main concepts to understand in reviewing it are how the two arrays are 
set up and initialized at the top of the program, and how they are processed in the body. The do loops 
that process array elements are similar to the ones seen previously. 


/* FIND BOOKS: Cay 
ff oy 
Fe This program illustrates basic arrays by retrieving book yf 
ie titles based on keyword weightings. ey 
keyword. = '' /* initialize both arrays to all null strings */ 
iBaiieller, Se FP 
/* the array of keywords to search for among the book descriptors yf 
keyword.1 = 'earth' : keyword.2 = 'computers' 
keyword.3 = 'life' ; keyword.4 = 'environment' 
/* the array of book titles, each having 3 descriptors yf 
jeakie ley. IL <= Msyeivaliove; WwWikehaveie jeketeal! 

Estelle. I il = Teeuetelay’ 

title.1.2 = 'environment' 

emeles il. 3) = isles" 
title.2 = 'Computer Lifeforms' 

EieleyA sil So. Tse" 

title.2.2 = 'computers' 

title.2.3 = 'intelligence' 
title.3 = 'Algorithmic Insanity' 

cele. Sail = “vetommowieeress” 

Enicle~s.2 S Veubeverealiclannc” 

title.3.3 = 'programming' 
arg weight . /* get number keyword matches required for retrieval ey 
say 'For weight of' weight ‘retrieved titles are:' /* output header */ 
do j=1 while title.j <> '' /* look at each book ay 

count = 0 

do k=1 while keyword.k <> ''! /* inspect its keywords */ 


Glo lla Wille ealtclle joi << "" 
aie SNaiifoiael de = jewels 5) od eleveya Cloyne = COwuaie =P IL 
end 
end 


if count >= weight then /* display titles matching the criteria */ 


say title.j 
end 


58 


Arrays 


The program shows that you can place more than one Rexx statement on a line by separating the state- 
ments with a semicolon. We use this fact to initialize the searchable keywords. Here’s an example with 
two statements on one line: 


keyword.1 = 'earth' ; keyword.2 = 'computers' 


To implement the weighted-retrieval algorithm, the outermost do loop in the script processes each book, 
one at a time. This loop uses the variable 5 as its subscript: 


do j=1 while title.j <> '' /* look at each book ef 


The do loop could have included the phrase by 1, but this is not necessary. Rexx automatically defaults 
to incrementing the loop counter by 1 for each iteration. If we were to encode this same line and explic- 
itly specify the increment, it would appear like this. Either approach works just fine: 


do j=1 by 1 while title.j <> ''' /* look at each book vs 


The loop that processes each book, one at a time, is the outermost loop in the code. The next, inner loop 
uses k as its control variable and processes all the keywords for one book: 


do k=1 while keyword.k <> '' /* inspect its keywords */ 


The innermost loop uses 1 for loop control and inspects the three descriptors for each book title. This 
code totals how many of each book’s descriptors match keywords: 


do 1=1 while title.j.1 <> '' 
if keyword.k = title.j.1 then count = count + 1 
end 


If the count or weight this loop totals is at least equal to that input as the command line argument, the 
book matches the retrieval criteria and its title is displayed on the user’s screen. 


This script is written such that the programmer does not need to keep track of how many variables any 
of the arrays contain. The while keyword processes items in each do loop until a null entry (the null 
string) is encountered. This technique works fine as long as these two conditions pertain: 


Q ~The script initializes each array to the null string. 


Q) Each position or slot in the arrays is filled consecutively. 


Its approach to array processing makes the program code independent of the number of books and key- 
words it must process. This flexibility would allow the same algorithm to process input from files, for 
example. So, it would be easy to eliminate the static assignment statements in this program and replace 
them with variable input read in from one or more input files. You can see that the approach this script 
takes to array processing provides great flexibility. 
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The script demonstrates that nested array processing and simple logic can provide sophisticated 
weighted retrieval by applying search terms to item descriptors. From the standpoint of Rexx arrays, it 
shows how to nest array-processing do loops and terminate those loops when all items in the arrays 
have been processed. 


Associative Arrays 


The sample program indexed its tables by numeric subscripts. The script processed the arrays simply by 
incrementing the numeric subscripts during do loops. But Rexx also allows subscripts to be variables 
that contain character strings. Let’s discuss this approach now. 


Associative arrays subscript entries by character strings. You can use them to create key-value pairs. Here’s 
an example. We’ve created an array of months called the month array. In initializing this array, we’ve 
placed multiple assignment statements per line. We accomplish this by separating individual statements 
by semicolons: 


month.1 = january ; month.2 = february ; month.3 = march : 
month.4 = april ; month.5 = may ; month.6 = june " 
month.7 = july ; month.8 = august ; month.9 = september =; 
month.10 = october ; month.11 = november ; month.12 = december =; 


This array associates months with their ordinal positions in the calendar. For example, if you want to 
know what the 12th month is, referencing month. 12 returns DECEMBER. We’ve established a group of 
keys that return specific values. 


Combined with the previous array, the following code returns the calendar position of any given month: 


say 'Enter the calendar position of the month you want displayed...' 
pull monthly_position . 
say 'Month number' monthly_position 'is' month.monthly_position 


If you enter 4, the script returns APRIL: 


Enter the calendar position of the month you want displayed... 
4 
Month number 4 is: APRIL 


Notice that the month is returned in uppercase letters. This is because the month names were not 
enclosed in quotation marks when the array values were initialized. So Rexx uppercased them. To retain 
lowercase alphabetics for the month names, simply enclose the initialization strings in quotation marks 
(as was done in the sample program that performed the weighted-retrieval algorithm). Here’s how to 
initialize data elements to retain the lowercase month names: 


month.1 = 'january' ; month.2 = 'february' ; month.3 = 'march' : 
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The month array in this problem represents a set of key-value pairs. A key-value pair is a simple data 
structure that can be used to resolve a wide range of programming problems. Let’s take a look at a com- 
plete sample script that illustrates their use. 


A Sample Associative Array Program 


Here’s a simple sample script that uses an associative array. It is a telephone area code lookup program. 
The user enters the name of a town in the Chicago area, and the program returns the area code of that 
suburb. Here’s what interaction with the script looks like: 


D:\Regina\pgms>regina code_lookup.rex 


For which town do you want the area code? 
Chicago 

The area code for CHICAGO is 312 

For which town do you want the area code? 
Homewood 

The area code for HOMEWOOD is 708 

For which town do you want the area code? 
Cincinnati 

Town CINCINNATI is not in my database 

For which town do you want the area code? 
Zion 

The area code for ZION is 847 

For which town do you want the area code? 


<user presses <ENTER> key and leaves the program> 


Here’s the program code: 


/* CODE LOOKUP: 


/* 

es Looks up the areacode for the town the user enters. 
audeel. = 0! /* preinitialize all entries to the null string 
area.Chicago = 312 : area.Wrigleyville = 773 

area.Homewood = 708 7; area.Geneva = 630 


area.Zion 


= Ga] * area.Schaumburg 847 


do while town <> '' 
say 'For which town do you want the area code?' 
pull town 
Lf town <> 7" ther do 

aliE BueSeh, EO@wnol = oY 


end 


end 


then say 'Town' town 'is not in my database' 
else say 'The area code for' town 'is' area.town 


ey) 
ey) 
ay, 


ah 
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The program first initializes the entire area array to the null string by the single assignment statement. 
It sets all entries in that array to the null string (represented by two back-to-back single quotation 
marks '' ): 


area. = ''' /* preinitialize all entries to the null string */ 


Next, six assignment statements set the area codes for specific towns. This will be the lookup table for the 
area codes. This lookup table could be considered a list of key-value pairs: 


area.Chicago = 312 ; area.Wrigleyville = 773 
area.Homewood = 708 ‘ area.Geneva = 630 
area.Zion = 847 P area. Schaumburg = 847 


The program prompts the user to enter the name of a town: 


say 'For which town do you want the area code?' 
pull town . 


If the array element area. town is equal to the null string, then this array slot was not assigned a value — 
the program tells the user that the town is not in the area code database. Otherwise, area. town repre- 
sents an area code value that the script reports to the user: 


if area.town = '' 
then say 'Town' town 'is not in my database' 
else say 'The area code for' town 'is' area.town 


The program reports the desired area codes until the user enters the null string to the prompt to termi- 
nate interaction. The user enters the null string simply by pressing the <ENTER> key without entering 
anything. 


As in the previous programming example, be sure that you understand the use of case in this sample 
script. The town is returned in uppercase because the tail of each array element is uppercased by Rexx. 
Rexx views variable names internally as uppercased. The comparison with the town name the user types 
in works properly because the pul1 instruction automatically translates the city name he or she enters 
into all uppercase letters. 


To summarize, this script shows how arrays can be subscripted by any value (not just numeric values). 
This supports content-addressable or associative arrays, a data structure concept that applies to a wide 
range of programming problems. Here we've used it to implement a simple lookup table based on key- 
value pairs. Associative memory can also be applied to a wide range of more complex programming 
problems. The next section discusses some of these applications. 


Arrays 


Creating Data Structures Based on Arrays 


The Code Lookup program creates a lookup table, a simple data structure implemented as a one- 
dimensional array. By a one-dimensional array we mean that the table is accessed using only a single 
subscript. An array’s dimensionality is defined by the number of subscripts coded to it. 


Qo array_name.1—A one-dimension array 
Qo array_name.1.1—A two-dimension array 


Qo array_name.1.1.1—A three-dimension array 


Arrays can have any number of dimensions to create more detailed associations. This forms the basis for 
creating complex data structures. Subscript strings essentially become symbolic pointers, access points 
that allow you to create content-addressable data structures. Scanning a table for a value becomes 
unnecessary because content-addressability provides direct access to the desired entry. Using these prin- 
ciples you can create data structures such as lists, trees, records, C-language structs, and symbolic 
pointer-based data structures. 


In the sample program that retrieved book titles, the array named keywords is one-dimensional (it uses 
just a single subscript). The data structure it represents is a list. The script implements its algorithm 
through list processing. 


In that script, the array named title has elements that are referred to either by one subscript (the book 
title) or by two (the descriptors associated with each title). There is a hierarchical relationship — each 
book has a set of descriptors. The data structure represented here is a tree. The logic that searches the 
three descriptors for a specific book performs leaf-node processing. 


Each root node has the same number of leaves (descriptors), so we have a balanced tree. But Rexx does not 
require developers to declare in advance the number of elements an array will hold, nor that the tree be 
balanced. We could have any number of descriptors per book title, and we could have any number of 
leaves per tree. The algorithm in the program easily processes a variable number of array items and han- 
dles data structures composed of unknown numbers of elements. The Find Books program manages a 
balanced tree, or B-tree, but could as well handled an unbalancedor skewed tree. 


In the sample program that retrieved area codes, towns and their area codes were associated by means 
of key-value pairs. This kind of data structure is widely used, for example, in lookup tables, “direct 
access” databases, and Perl programming. It forms the conceptual basis of the popular embedded open 
source database Berkeley DB. Even such a simple association can underlie high-powered application 
solutions. 


Figure 4-2 pictorially illustrates some of the basic data structures that can easily be created by using 
arrays. That Rexx supports such a wide range of data structures, without itself requiring complex syn- 
tax, shows how a “simple” language can implement sophisticated processing. This is the beauty of Rexx: 
power based on simplicity. 
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Example Data Structures Based on Arrays 


Element 1 Key 1 Value 1 
Key 2 Value 2 
Element 2 
Key 3 Value 3 el 
Elemene Key4 | Value 4 b.14 
A Simple List Key-value Pairs b.1.4.4 
or Look-up Table QadL Ak 2 
b.2 
b.2.1 
ok b.1 b.2.2 
b.1.4 b.1.1 b.2.3 
b.1.2 b.2 b.3 
b.2 b.2.1 b.3.1 
b.2.1 b.2.2 b.3.1.1 
b.2.2 b.2.3 b.3.1.1.1 
b.3 b.3 
6.3.4 b.4 A Multi-level Tree 
b.3.2 (unbalanced) 
Balanced Tree Un-Balanced Tree 
Figure 4-2 
Summary 
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Rexx supports content-addressable arrays that can be of any dimensionality. These arrays can be initial- 
ized as an entity by referring to the array stem. However, other kinds of whole-array manipulation 
based on the stem are not permitted in standard Rexx. Array sizes do not have to be declared or defined 
prior to use, and sizes are limited only by the size of memory in most Rexx implementations. 


Arrays provide a way to build the more powerful data structures that compiled languages sometimes 
offer and scripting languages like Rexx “lack.” Symbolic pointers form the basis of content-addressable 
data structures. Using- content-addressable arrays, you can easily build lists, trees, records, structures, 
and other variable-length and variably sized data structures. Rexx simplifies the programmer’s task 
because no complicated language elements are necessary to implement advanced data structures. The 
syntax remains clean and simple, even while the data structures one builds become powerful and flexible. 


Arrays 


Test Your Understanding 


1. 


2. 


How many subscripts can be applied to an array? How many dimensions may an array have? 
Must array subscripts be numeric values? 


What operations can you perform on a group of variables by referring to an array stem? What 
operations are not permitted on a stem? 


Describe two ways to process all the elements in an array. Does Rexx keep track of the number 
of elements in an array? 


What kinds of data structures can be defined based on arrays? Describe three and explain how 
to create each. 
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Overview 


Input/output, or I/O, is how a program interacts with its environment. Input may come from what 
a user types in, an input file, or another program. Program output might be written to the display, 
to an output file, or to a communication mechanism such as a pipe. These are just a few of the 
possibilities. 


Rexx provides a simple-to-use, high-level I/O interface. At the same time, Rexx aims for standard- 
ization and portability across platforms. Unfortunately, this latter goal is difficult to achieve —I/O 
is inherently platform-dependent, because it relies upon the file systems and drivers the operating 
system provides for data management. These vary by operating system. 


This chapter describes the Rexx I/O model at a conceptual level. Then it explores examples and 
how to code I/O. The last part of the chapter discusses some of the problems that any program- 
ming language confronts when trying to standardize I/O across platforms, some of the trade-offs 
involved, and how this tension has been resolved in Rexx and its many implementations. 


Rexx provides an I/O model that is easy to use and as portable as possible. Section II explores the 
I/O extensions that many versions of Rexx offer for more sophisticated (but less portable) I/O. 
Chapter 15 illustrates database I/O and how to interface scripts to popular database management 
systems such as SQL Server, Oracle, DB2, and MySQL. 


The Conceptual I/O Model 


Rexx views both input and output as streams —a sequence of characters, or bytes. The characters in 
the stream have a sequence, or order. For example, when a Rexx script reads an input stream, the 
characters in that stream are presented to the script in the order in which they occur in the stream. 


A stream may be either transient or persistent. A transient stream could be the characters a user 
enters through the keyboard. They are read; then they are gone. A persistent stream has a degree 
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of permanency. Characters in a file, for example, are stored on disk until someone deletes the file con- 
taining them. Files are persistent. 


For persistent streams only, Rexx maintains two separate, independent positions: a read position and a 
write position. The type of access to the persistent stream or file determines which of these positions make 
logical sense. For example, for a file that a script reads, the read position is important. For a file that it 
writes, the write position is important. 


The read and write positions for any one file may be manipulated by a script independently of one 
another. They might be set or altered explicitly. Normally, they are altered implicitly as the natural result 
of read or write operations. 


Programs can process streams in either of two modes: character by character or line by line. Rexx pro- 


vides a set of functions to perform I/O in either manner. These are typically referred to as character- 
oriented I/O and line-oriented I/O. Figure 5-1 summarizes these two basic I/O modes. 


The Two I/O Modes 


ee. Line-oriented > CC Characteroriented > 


Process one line at a time Process one character at a time 


linein charin 
lineout charout 
lines chars 


Figure 5-1 


A stream is typically processed in either one of the two I/O modes or the other. However, it is possible to 
intermix character- and line- oriented processing on a single stream. 


Like many programming languages, Rexx recognizes the concept of standard input and standard output. 
The former is the default location from which input is read, and the latter is the default location to which 
output is written. These defaults are applied when no specific name is encoded in a Rexx statement as 
the target for an I/O operation. Standard input is normally the keyboard, and standard output is the dis- 
play screen. Standard Rexx does not include the concept of a standard error stream. 


As with variables, Rexx files are defined by their first use. They are not normally predefined or 
“declared.” In standard Rexx, one does not explicitly “open” files for use as in most programming lan- 
guages. Files do not normally need to be closed; they are closed automatically when a script ends. For 
most situations, this high level of automation makes Rexx I/O easy to use and convenient. For complex 


Input and Output 


programs with many files, a situation in which memory is limited, or when a file needs to be closed and 
reopened, Rexx provides a way to explicitly close files. 


Line-Oriented Standard I/O 


With this conceptual background on how input/output works in Rexx, we can describe standard Rexx 
I/O. Let’s start with I/O that considers the stream to consist of lines, or line-oriented I/O. Here the three 
basic functions for standard line I/O: 


Ql linein—Reads one line from an input stream. By default this reads the line from default stan- 
dard input (usually the keyboard). 


Q = lineout — Writes a line to an output stream. By default this writes to standard output (usually 
the display screen). Returns 0 if the line was successfully written or 1 otherwise. 


Q lines — Returns either 1 or the number of lines left to read in an input stream (which could be 
0). 


This sample script reads all lines in an input file, and writes those containing the phrase PAYMENT 
OVERDUE to an output file. (A form of this simple script actually found a number of lost invoices 
and saved a small construction company tens of thousands of dollars!): 


/* FIND PAYMENTS: ef 
/* se/, 
/* Reads accounts lines one by one, writes overdue payments sah 
/* (containing the phrase PAYMENT OVERDUE) to an output file. ai 
parse arg filein fileout /* get 2 filenames c/s 
do while lines(filein) > 0 /* do while a line to read */ 
input_line = linein(filein) /* read an input line es 
if pos('PAYMENT OVERDUE',input_line) >= 1 then f= SS Wpep 7) 
call lineout fileout,input_line /* write line if $ overdue */ 

end 


To run this program, enter the names of its two arguments (the input and output files) on the command 
line: 


regina find_payments.rexx invoices_in.txt lost_payments_list_out.txt 
In this code, the parse arg instruction is to arg as parse pul] is to pull. In other words, it performs 
the exact same function as its counterpart but does not translate input to uppercase. arg and parse arg 
both read input arguments, but arg automatically translates the input string to uppercase, whereas 


parse arg does not. This statement reads the two input arguments without automatically translating 
them to uppercase: 


parse arg filein fileout /* get 2 filenames */. 
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This statement: 

do while lines(filein) > 0 
shows how Rexx programmers often perform a read loop. The 1ines function returns a positive number 
if there are lines to read in the input file referred to. It returns 0 if there are none, so this is an easy way to 


test for the end of file. The do loop, then, executes repeatedly until the end of the input file is encountered. 


The next program statement reads the next input line into the variable input_line. It reads one line or 
record, however the operating system defines a line: 


input_line = linein(filein) /* read an input line a 
The if statement uses the string function pos, which returns the position of the given string if it exists 


in the string input_line. Otherwise, it returns 0. So, if the character string PAYMENT OVERDUE occurs in 
the line read in, the next line invokes the lineout function to write a line to the output file: 


if pos('PAYMENT OVERDUE',input_line) >= 1 then /* $ Due? */ 
call lineout fileout,input_line /* write line if $ overdue */ 


There are two ways to code the lineout function: 

call lineout fileout,input_line 
or 

feedback = lineout (fileout, input_line) 
The recommended approach uses the cal1 instruction to run the lineout function, which automati- 
cally sets its return string in the special variable result. If the variable result is set to 0, the line was 
successfully written, and if it is set to 1, a failure occurred. The sample script opts for clarity of illustra- 
tion over robustness and does not check result to verify the success of the write. 
The second approach codes lineout as a function call, which returns a result, which is then assigned to 
a variable. Here we’ve assigned the function return code to the variable feedback. You'll sometimes see 
programmers use the variable rc to capture the return code, because rc is the Rexx special variable that 
refers to return codes: 


re = lineout (fileout, input_line) 


Now, here’s something to be aware of. This coding will not work, because the return string from the 
lineout function has nowhere to go: 


lineout (fileout, input_line) /* Do NOT do this, it will fail! */ 


What happens here? Recall that the return code from a function is placed right into the code as a replace- 
ment for the coding of the function. So after this function executes, it will be converted to this if successful: 


0 
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A standard rule in Rexx is that whenever the interpreter encounters something that is not Rexx code 
(such as instructions, expressions to resolve, or functions), Rexx passes that code to the operating system 
for execution. So, Rexx passes 0 to the operating system as if it were an operating system command! This 
causes an error, since 0 is not a valid operating system command. 


We'll discuss this in more detail in Chapter 14, when we discuss how to issue operating system com- 
mands from within Rexx scripts. For now, all you have to remember is that you should either call a 
function or make sure that your code properly handles the function’s returned result. 


The lines function works slightly differently in different Rexx implementations. It always returns 0 if 
there are no more lines to read. But in some Rexx interpreters it returns 1 if there are more lines to read, 
while in others it returns the actual number of lines left to read. The latter produces a more useful result 
but could cause Rexx to perform heavy I/O to determine this value. 


The ANSI standard clarified this situation in 1996. Today ANSI-standard Rexx has two options: 


Q lines (file_name,C) —Count. Returns the number of lines left to read. 


Q lines (file_name,N) — Normal. Returns 1 if there are lines left to read. 


For backward compatibility, the second case is the default. A true ANSI-standard Rexx will return 1 if 
you encode the lines function without specifying the optional parameter, and there are one or more 
lines left to read in the file. However, some Rexx implementations will return the actual number of lines 
left to read instead of following the ANSI specification. 


Standard Rexx does not permit explicitly opening files, but how about closing them? Rexx closes files 
automatically when a script ends. For most programs, this is sufficient. The exception is the case where a 
program opens many files and uses an exceptional amount of memory or system resources that it needs 
to free when it is done processing files. Another example is the situation in which a program needs to 


close and then reopen a file. This could happen, for example, if a program needed to sequentially pro- 
cess the same file twice. 


How a file is closed or how its buffers are flushed is implementation-dependent. Most Rexx interpreters 
close a file by encoding a lineout function without any parameters beyond the filename. Just perform a 


write operation that writes no data: 


call lineout 'c:\output_file' /* flushes the buffers and closes the file - 
in most Rexx implementations */ 


The stream function is another way to close files in many implementations. stream allows you to either: 
Check the state of a file 
or 


Issue various commands on that file 
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The status check is ANSI standard, but the specific commands one can issue to control a file are left to the 
choice of the various Rexx implementations. Here’s how to issue an ANSI-standard status check on a file: 


status_string = stream(file_name) /* No options defaults to a STATUS check */ 
or 
status_string = stream(file_name,'S') /* 'S' option requests return of 
file STATUS +7 


The status values returned are those shown in the following table: 


Stream Status Meaning 

READY File is good for use. 

NOTREADY An I/O operation attempt will fail. 

ERROR File has been subjected to an invalid operation. 
UNKNOWN File status is unknown. 


The commands you can issue through the stream function are completely dependent on which Rexx 
interpreter you use. Regina Rexx allows you to open the file for reading, writing, appending, creating, or 
updating; to close or flush the file, and to get its status or other file information. Regina’s stream func- 
tion also allows scripts to manually move the file pointers, as would be useful in directly accessing parts 
of a file. 


The file pointers may be moved in several ways. All Rexx scripts that perform input and/or output do 
this implicitly, as the result of normal read and write operations. Scripts can also move the file pointers 
explicitly ... but these operations are implementation-specific. Some Rexx interpreters, such as Regina, 
enable this via stream function commands, while others provide C-language-style seek and tel1 func- 
tions that go beyond the Rexx standard. Read your Rexx’s documentation to see what your interpreter 
supports. Part II goes into how specific Rexx interpreters provide this feature and offers sample scripts. 


The lineout, charout, linein, and charin functions provide the most standardized way to explicitly 
control file positions, but care is advised. Most scripts just perform standard read and write operations 
and let Rexx itself manage the file read and write positions. Later in this chapter we discuss alternatives 
for those cases where you require advanced file I/O. 


Character-Oriented Standard I/O 
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The previous section looked at line-oriented I/O, where Rexx reads or writes a line of data at a time. 
Recall from the introduction that Rexx also supports character-oriented I/O, input and output by individ- 
ual characters. Here the three basic functions for standard character I/O: 


Q = charin—Returns one or more characters read from an input stream. By default this reads one 
character from default standard input (usually the keyboard). 
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Qh = charout — Writes zero or more characters to an output stream. By default this writes to stan- 
dard output (usually the display screen). Returns 0 if all characters were successfully written. 
Or, it returns the number of characters remaining after a failed write. 


Q) output (usually the display screen) — Returns 0 if all characters were successfully written. Or, it 
returns the number of characters remaining after a failed write. 


Q chars—Returns either 1 or the number of characters left to read in an input stream (which 
could be 0). 


This sample program demonstrates character-oriented input and output. It reads characters or bytes, one 
by one, from a file. It writes them out in hexadecimal form by using the charout function. The script is a 
general-purpose “character to hexadecimal” translator. Here is its code: 


/* TRANSLATE CHARS: Bf 
[ */- 
ee Reads characters one by one, shows what they are in hex format */ 
parse arg filein fileout . /* get input & output filenames yf 
Que Seeing = 7% je aioiiesiellbipge, Cyihejeibie Sierestinks; tee) iayelll il, <y/ 
do j=1 while chars(filein) > 0 /* do while a character to read */ 

CME Sieicakiaysy =" ' ¢2x(charin(filein) ) j* sconvert. Tt. to hex it ff 

call charout ,out_string /* write to display ey) 

call charout fileout,out_string /* WrAte Coca file too *7 
end 


The script illustrates the use of the chars function to determine when the input file contains no more 
data to process: 


do j=1 while chars(filein) > 0 /* do while a character to read */ 
This character-oriented chars function is used in a manner similar to the line-oriented lines function 


to identify the end-of-file condition. Figure 5-2 below summarizes common ways to test for the end of a 
file. 


Testing for End of File 


Common end of file tests — 
EOF ? : : 
* The "lines" function 
+ The "chars" function 
ss Less common end of file tests — 
* Scan for a known value 
(eg, user enters a null line to the script, 
y or a value like "END" or "EXIT") 
* The "stream" function 
+ + SIGNAL ON NOTREADY error condition trap 
Figure 5-2 
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The script uses the conversion function c2x to convert each input character into its hexadecimal 
equivalent. This displays the byte code for these characters: 


out_string = ' ' c2x(charin(filein) ) /* convert it to hex */ 


This script illustrates the charout function twice. The first time it includes a comma to replace the out- 
put filename, so the character is written to the default output device (the display screen). The second 
charout function includes an output filename and writes characters out to that file: 


call charout ,out_string /* write to display AY 
call charout fileout, out_string /* write to a file too 7h 


Let’s take a look at some sample output from this script. Assume that the input file to this script consists 
of two lines containing this information: 


linel 
line2 


The hexadecimal equivalent of each character in the character string line1 is as follows: 


1 A n e 1 
6C 69 6E 65 31 


With this information, we can interpret the script’s output. This output appears as shown, when run 
under Linux, Unix, macOS, Windows, and DOS. Linux, Unix, and macOS terminate each line with a 
line feed character (x'0A"'). This character is also referred to as the newline character or sometimes as 
the linefeed. Windows and DOS end each line with the pair of characters for carriage return and line 
feed (x'0DOA"'): 


Linux: GC | GD | in GS | 31 OA) GC Gf Gt 65 s2 WA 

Unix: GO | GD | Gt 65) 31 @A)G 6 Gh 6S 32 WA 

Naiaclowiss GC | 6D) G8 65 | Si OD|OA Ge 6 GH 65> 32 OD OA 
DOS: GC | 62 | ot Gs | 31 OD) WA Ge GY Gs 6 32 OD QA IA 
macOS: Ge | 69 | ot 65 | 3 WA)GS 69 Gs GS 32 WA 


You'll often see "linefeed" abbreviated as LF, and "carriage return" as CR. So Linux, Unix, and macOS 
terminate lines with LF, while Windows uses CR LF. 


A few operating systems mark the end of the file by a special end-of-file character. This byte occurs once at 
the very end of the file. DOS is an example. It writes its end-of-file character Control-Z or x'1A' at the 
very end of the file. 


This example shows two things. First, what Rexx calls character I/O is really “byte-oriented” I/O. Bytes 
are read one by one, regardless of their meaning to underlying operating system and how it may use 
special characters in its concept of a file system. Rexx character I/O reads every byte in the file, including 
the end-of-line or other special characters. 
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Second, character I/O yields platform-dependent results. This is because different operating systems 
manage their files in different ways. Some embed special characters to denote line end, others don’t, and 
the characters they use vary. Character I/O reads these special characters without interpreting their 
meanings. Line-oriented I/O strips them out. If you want only to read lines of data or I/O records in 
your script, use line-oriented I/O. If you need to read all the bytes in the file, use character I/O. 


Character I/O is easy to understand and to use. But it is often platform-dependent. If you’re concerned 
about code portability, be sure to reference the operating system manuals and code to handle all situa- 
tions. Or, stick to line-oriented I/O, which is inherently more portable. 


Conversational I/O 


A user interaction with a script is termed a conversation or dialogue. The interactive process is called con- 
versational I/O. When writing a Rexx script that interacts with a user, one normally assumes that the user 
sees program output on a display screen and enters input through the keyboard. These are the default 
input and output streams for Rexx. 


To output information to the user, code the say instruction. As we’ve seen, the operand on say can be 
any expression (such as a list of literals and variables to concatenate). say is equivalent to this call to 
lineout, except that say does not set the special variable result: 


call lineout , [expression] 
The comma indicates that the instruction targets standard output, normally the user’s display screen. 


Use pull to read a string from the user and automatically translate it to uppercase, or use parse pull 
to read a string without the uppercase translation. Both instructions read user input into a template, or 
list of variables. Discard any unwanted input beyond the variable list by encoding a period (sometimes 
referred to as the placeholder variable). 


This statement reads a single input string and assigns the first three words of that string to the three 
variables. If the user enters anything more than three words, Rexx discards it because we’ve encoded the 
period placeholder variable at the end of the line: 


parse pull input_1 input_2 input_3 . 


Redirected I/O 


I/O redirection means you can write a program using conversational I/O, but then redirect the input 
and/or output to other sources. Without changing your program, you could alter its input from the key- 
board to an input file. The pu11 or parse instructions in the program would not have to be changed to 
make this work. Similarly, you could redirect a script’s say instructions to write output to a file instead 
of the display screen, without changing your program code. 
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Here is how to redirect I/O. Just run the script using the redirection symbols shown in this table: 


Redirection Symbol Meaning 


> Redirects output to a new file. Creates a new file or overwrites an 
existing file if one exists with that filename. 


>> Appends (adds on to) an existing file. Creates a new output file if one 
does not already exist having the filename. 


< Redirects input from the specified file 


How’s how to invoke the Four-Letter Words program of Chapter 3 with input from a file instead of the 
keyboard: 


regina four_letter_words.rexx <four_letter_words.input 


The file four_letter_words. input consists of one word per line (so it conforms to the program’s 
expectation that it will read one word in response to each prompt it gives). Here’s how to give the script 
input from a file and redirect its output to a file named output.txt as well: 


regina four_letter_words.rexx <four_letter_words.input >output.txt 


Redirected I/O is a very powerful concept and a useful testing tool. You can write programs and change 
their input source or output destination without changing the script! 


But redirection is operating-system-specific. Operating systems that support redirected I/O include 
those in the Linux, Unix, BSD, Windows, and DOS families. 


A warning about Windows — members in the Windows family of operating systems do not handle I/O 
redirection consistently. Different versions of Windows handle I/O redirection in slightly different ways. 
This has long been an issue for programmers who want their programs to run across many Windows 
versions. This is not a Rexx issue, but rather an inconsistency in the behavior of Windows operating sys- 
tems. If you rely on redirection under Windows, you will have to test your scripts on each version of the 
operating system they run on to ferret out any Windows inconsistencies. 


O Issues 


I/O is operating system dependent and thus presents a difficult issue for any programming language. 
The reason is the inherent tension between an I/O model that is easy to use, easy to understand, and 
portable — versus the desire to take advantage of operating-system-specific features for file system 
manipulation. 


Rexx always promotes ease of use and portability. Fitting with this philosophy, simplicity trumps OS- 
specific features and maximizing I/O performance. So, the ANSI standard Rexx I/O model is simple 
and portable. It does not take advantage of OS-specific I/O features or optimize I/O by platform. 


Input and Output 


Standard Rexx recognizes the trade-off between I/O portability and OS-specific I/O features by includ- 
ing functions such as stream and the options instruction, which are open ended and permit operands 
beyond the ANSI standard. This allows Rexx interpreters to add I/O extensions within the context of the 
ANSI standard that go beyond the standard to leverage OS-specific features. 


The second section of the book describes the I/O extensions that different Rexx interpreters provide to 
leverage OS- specific I/O features. For example, in the mainframe environment, it's not uncommon to 
see all file I/O handled exclusively with the mainframe-unique EXECIO instruction. Appendix N 
shows how to code and use EXECIO. 


This chapter assumes the user interface to consist of a screen display and keyboard, and that disk I/O 
means manipulating data residing in files. Of course, many programs require more advanced I/O and 
different forms of user interfaces. Upcoming chapters cover these topics. Chapters 15 and 16, for exam- 
ple, describe and illustrate both database I/O and screen I/O using various GUI packages. Chapter 17 
discusses Web interfaces for Rexx scripts. Section II illustrates the I/O extensions in many Rexx inter- 
preters that provide more sophisticated file processing. 


Summary 


This chapter provides an overview of the Rexx I/O model and how it is implemented in standard func- 
tions for line- and character-oriented I/O. We discussed conversational I/O and how to redirect I/O 
under operating systems that support it. Redirection is a powerful debugging tool and provides great 
flexibility, because the source of input and target for output for scripts can be altered without changing the 
scripts themselves. The flexibility that redirection provides is very useful during script testing and 
debugging. 


Two I/O related topics will be covered in upcoming chapters. The external data queue or stack is an area of 
memory that can be used to support I/O operations. The second important topic is I/O error 
handling. Both are covered in future chapters. 


Upcoming chapters also cover I/O through interface packages, such as databases, GUI screen handlers, 
Web server interfaces, and similar tools. 


Test Your Understanding 


1. What are the two basic kinds of standard Rexx input/output? Why would you use one 
approach versus the other? Which is most portable across various operating systems? 


2. What kinds of file control commands can you issue through the stream function? Do these 
vary by Rexx implementation? What file statuses does the stream function return? 


3. Describe the two ways in which you can invoke an I/O function like Linein or charout. How 
do you capture the return code from I/O functions? What happens if you fail to? 


4. Do you need to close a file after using it? Under what conditions might this be appropriate? 
How is it done? 


5. If you require very powerful or sophisticated I/O, what options does Rexx offer? 
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Overview 


String manipulation means parsing, splicing, and pasting together character strings, sets of consecu- 
tive characters. Rexx excels at string manipulation. This is important for a wider variety of reasons 
than may be apparent at first. Many programming problems are readily conceived of as operations 
on strings. For example, building commands to issue to the operating system is a really a string- 
concatenation exercise. Analyzing the feedback from those commands once they are issued means 
text analysis and pattern matching. Much of the data formatting and reporting that IT organiza- 
tions perform requires string processing. Data validation and cleansing require text analysis. 


In a broad sense, many programming problems are essentially exercises in “symbol manipula- 
tion.” String processing is a means to achieve generic symbol manipulation. 


List processing is another example. Entire programming languages (such as LISP) have been built 
on the paradigm of processing lists. A list can be considered simply a group of values strung 
together. Manipulating character strings thus becomes a vehicle for list processing. 


The applications that these techniques underlie are endless. Everything from report writing, to 
printing mailing labels, to editing documents, to creating scripts for systems administration, to 
scripts that configure the environment, rely on string manipulation. 


This chapter introduces Rexx’s outermost operators, functions, and pattern-matching capabilities. 
We show you the features by which Rexx supports string processing so that you will combine 
them in new ways to address the programming problems you face. 


Concatenation and Parsing 


Concatenation is the joining together of strings into larger strings. Bifurcation refers to splitting a 
string into two parts. Parsing is the inspection of character strings, to analyze them, extract pieces, 
or break them into components. For example, parsing a U.S. telephone number could separate it 


Chapter 6 


into its constituent parts — a country code, an area code, the prefix and suffix. Pattern matching is the 
scanning of strings for certain patterns. Together, these operations constitute string manipulation or text 
processing. Figure 6-1 summarizes the major string operations. 


Basic String Operations 


abc + abc ——» abcabc 
Joins two or more strings 


abc abc Splits a string 


a8 


Parse Count = 2 Scans and analyzes a string, may split it into 
its constituent components 


abcabc 


abcdef Pattern Matching 


Find "def" Identifies patterns in strings 
Figure 6-1 
We've already seen that Rexx supports three ways of concatenating strings. These are: 


Q) = Implicit concatenation with one blank between the symbols 


Q = Abuttal, in which immediately adjacent symbols are concatenated without an intervening blank 


Q) = Explicit concatenation via the concatenation operator, | | 


The three styles of concatenation can be intermixed within statements. Concatenation may occur wher- 
ever expressions can be coded. Here are some sample statements run in sequence: 


apple='-Apple' 


say 'Candy' || ' ' || apple || ' ' || 'Rodeo' 

/* displays: 'Candy -Apple Rodeo' */ 
say 'Candy'apple /* displays: 'Candy-Apple' ef 
say '‘'Candy' apple /* displays: 'Candy -Apple' */ 
say '‘'Candy'apple apple 'Rodeo' /* displays: 'Candy-Apple -Apple Rodeo cai 
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We've also seen several simple examples of string parsing. The arg instruction retrieves the arguments 
sent in to a program or internal function and places them into a list of variables. Its general format is: 


arg [template] 


The template is a list of symbols separated by blanks and/or patterns. The pu11 instruction operates in 
the same manner as arg, reading and parsing a string input by the user into a list of variables. The input 
string is parsed (separated) into the variables in the list, positionally from leftmost to rightmost, as sepa- 
rated by one or more spaces. The spaces delimiting the strings are stripped out, and the variables do not 
contain any leading or trailing blanks. 


There are two special cases to consider when a script reads and parses input by the arg or pul11 instruc- 
tions. The first is the situation in which more arguments are passed in to the routine than the routine 
expects. Look at this case: 


user input: one 2 three '4' 
program: pullabeoa 


a contains: ONE 
b contains: 2 
c contains: THREE '4' 


The last (rightmost) variable c in the variable list contains all remaining (unparsed) information. The 
rule is: If you code too few input variables to hold all those that are input, the final variable in the input list con- 
tains the extra information. Remember that you could just ignore this extra information by coding a 
period: 


program: puUlLE ~a Boe 4 
Now the variables will contain: 


a contains: ONE 
b contains: 2 
c contains: THREE 


The '4' is simply eliminated from the input by the placeholder variable, the period at the end of the pull 
instruction input list or template. 


The second situation to consider is if too few arguments are passed in to the receiving routine. Say that 
the script issues a pul] instruction to read input from the user. If too few elements are input by the user, 
any variables in the list that cannot be assigned values are set to null: 


user input: one 2 
program: pullabe 


a contains: ONE 


b contains: 2 
c contains: '' /* cis set to the null string */ 


81 


Chapter 6 


Variable c is set to the null string (represented by back-to-back quotation marks, '' ). This is different 
from saying that the variable is uninitialized, which would mean its value is its own name in uppercase. 
If the last variable were uninitialized, it would be set to ‘c’. 
pull is short for the instruction: 

parse upper pull [template] 
The template is a list of symbols separated by blanks and/or patterns. upper means uppercase transla- 
tion occurs. Its presence is optional on the parse instruction. To avoid uppercase translation, just leave 
the upper keyword out of the parse instruction. 
Let’s look at the parse instruction in more detail. This form of the instruction parses an expression: 


parse [upper] value [expression] with [template] 


The expression evaluates to some string that is parsed according to the template. The template provides 
for three basic kinds of parsing: 
QQ) By words (character strings delimited by blanks or spaces) 


Q) By pattern (one character or a string other than blanks by which the expression string will be 
analyzed and separated) 


Q By numeric pattern (numbers that specify column starting positions for each substring within 
the expression) 


Figure 6-2 below illustrates these three parsing methods. 


Parsing by Template 


By Words Separate} |by| |words 

By Pattern Separate | using |,| commas 
By Numeric 

Pattern abc abc.abc 


Columns: 1 5 9 
Figure 6-2 


You are already familiar with parsing by words. This is where we use parse to separate a list of ele- 
ments into individual components based on intervening blanks. Let’s parse an international telephone 
number as an example. 
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phone = '011-311-458-3758' 
parse value phone with a b 


This is a parse by words or blank separators. Since there are no blank separators anywhere within the 
input string, the results of the parse instruction are: 


a = 011-311-458-3758 
b=''! /* b is assigned the null string. */ 


Obviously, the dash ( - ) here is the separator, not the blank. Let’s try parsing by pattern, using the dash 
( - ) as the separator or delimiter: 


parse value phone with country_code '-' area_code '-' prefix '-' suffix 
The results are: 


country_code = 011 
area_code = 311 
prefix = 458 
suffix = 3758 


If there were more information in the input variable, regardless of whether or not it contained more dash 
delimiters, it all would have been placed into the last variable in the list, suffix. If there are too few 
strings in the input variable list, according to the parsing delimiter, then extra variables in the variable 
list are assigned null string(s). 


The pattern can be supplied in a variable. This yields greater programmability and flexibility. In this case, 
enclose it in parentheses when specifying it in the template: 


sep = '-' /* the dash will be the delimiter ... */ 
parse value phone with country_code (sep) area_code (sep) prefix (sep) suffix 


This parse instruction gives the same results as the previous one with the hardcoded delimiter dashes. 
The advantage to placing the separator pattern in a variable is that we can now parse a different, inter- 
national designation for this phone number using the same parse instruction, just by changing the sepa- 
rator inside the pattern variable: 


phone = '011.311.458.3758' 


sep ='.' /* The period is the Swiss delimiter for phone numbers... */ 
parse value phone with country_code (sep) area_code (sep) prefix (sep) suffix 


The same parse instruction properly separates the constituent pieces of the phone number with this 
different delimiter. So, supplying the separator pattern in a variable gives scripts flexibility in parsing 


operations. 


Now parse by numbers. These represent column positions in the input. Run: 


phone = '011-311-458-3758' 
parse value phone with country_code 5 area_code 9 prefix 13 suffix 
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Here are the results from this statement: 


country_code = 011- 
area_code = 311- 
prefix = 458- 
suffix 3758 


Oops! You can see that parsing by numbers goes strictly by column positions. Delimiters don’t count. 
Add these extra columns positions to eliminate the unwanted separators: 


parse value phone with country_code 4 5 area_code 8 9 prefix 12 13 suffix 
This gives the intended results because it parses out the unwanted separators by column positions: 


country_code = 011 
area_code = 311 
prefix = 458 
suffix = 3758 


These are absolute column positions. Each refers to an absolute column position, counting from the 
beginning of the string. 


Placing a plus ( + ) or minus ( - ) sign before any number makes its position relative to the previously 
specified number in the list (or 1 for the first number). You can mix absolute and relative positions 
together in the same template, and even use negative numbers (which move the relative position back- 
wards to the left) but be careful. Unless you have a situation that really requires it, jamming all the pars- 
ing into one complex statement is rarely worth it. Just code a series of two or three simpler statements 
instead. Then others will be able to read and understand your code. 


This example properly parses the phone number with both absolute and relative column numbers. The 
plus signs (+ ) indicate relative numbers. In this case, each advances the column position one character 
beyond the previous absolute column indicator: 

parse value phone with country_code 4 +1 area_code 8 +1 prefix 12 +1 suffix 
This statement produces the desired result: 

country_code = 011 

area_code = 311 

prefix = 458 

suffix = 3758 
With this background, you can see that the parse instruction provides real string-processing power. 
This example assigns the entire telephone number in the variable phone to three new variables (kind of 


like a three-part assignment statement): 


parse value phone with phone_l1 1 phone_2 1 phone_3 
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Now the variables phone_1, phone_2, and phone_3 all contain the same value as phone: 
phone = '011.311.458.3758' 
phone_1 '011.311.458.3758' 


phone_2 '011.311.458.3758' 
phone_3 = '011.311.458.3758' 


In all the examples thus far, the input string was not changed. But it can be if encoded as part of the vari- 
able list. Here’s an example. Say that we have this variable: 


employee_name = 'Deanna Troy' 


This statement simply translates the employee’s name into uppercase and places it back into the same 
variable: 


parse upper value employee_name with employee_name 


This statement strips off the employee’s first name and places it into the variable £irst_name. Then it 
puts the remainder of the name back into the employee_name variable: 


parse value employee_name with first_name employee_name 


The value keyword refers to any expression. You may also see the keyword var encoded when refer- 
ring specifically to a variable. In this case, you should not code the with keyword. This statement using 
var gives the exact same results as the previous example with value and with: 


parse var employee_name first_name employee_name 


A Sample Program 


With this introduction to parsing, here’s a sample program to illustrate parsing techniques. This script 
preprocesses the “load file” used to load data into a relational database such as DB2, Oracle, SQL Server, 
or MySQL. The script performs some simple data verification on the input file prior to loading that data 
into the database. This “data-cleansing” script ensures the data we load into the database is clean before 
we run the database load utility. A script like this is useful because the data cleansing that database utili- 
ties typically perform is limited. 


Here’s how the data will look after it’s loaded into the relational table: 


EMP_NO FNAME LNAME DEPT_NO 
10001 George Bakartt 307 
10002 Bill Wall 204 
10003 Beverly Crusher 305 
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Databases like DB2, Oracle, and SQL Server accept input data in several different file formats. Two of the 
most popular are comma-delimited files and record-oriented or column-position files. Here’s an example of a 
comma-delimited file: 


10001, "George", "Bakartt", "307" 
LOOOZ,, MsacILIL? , Mf~adil , PRO 
10003, "Beverly", "Crusher","305" 
USO. "a\orS"", Meio” , MOE" 

LOOOS,, "Swe", Siesins” , "sds" 


Commas separate the four input fields. In this example, all character strings are enclosed in double quo- 
tation marks. Under operating systems that employ a file type, the file type for comma-delimited ASCII 
files is typically * .de1. This input file is named database_input.del. 


Here is the other kind of file, a record file. Data fields start in specific columns. Fields are padded with 
blanks, as necessary, so that the next field starts in its required column. Where file types are used this file 
is typically of extension * .asc, so we’ve named this file database_input .asc: 


10001George Bakartt307 
10002Bill Wall 204 
10003BeverlyCrusher305 
1x004joe Zip 305 
10005Sue stans 3x5 


The program reads either of these two input file types. It determines which kind of file it is processing 
by scanning the input text for commas. If the data contains commas, the program assumes it is dealing 
with a comma-delimited ASCII file. 


Then the program performs some simple data verification. It ensures that the EMP_NO and DEPT_NO data 
items are numeric, and that the first and last names both begin with capital letters. The script writes any 
errors it finds to the display. Here’s the program: 


/* DATABASE INPUT VERIFICATION: ti 
es vif 
3 Determines type of database input file (*.del or *.asc). a 
fe Reads the input data as appropriate to that file type. ef 
if Verifies EMP_NO and DEPT_NO are numeric, names are cap alpha. 9), 
arg input_file . /* read input filename from user bas 
Chee aire /* variable C contains one comma wy 


do while lines(input_file) > 0 


input_line = linein(input_file) /* read a line from input file a 
/* get EMP_NO, FNAME, LNAME, DEPT_NO from *.DEL or *.ASC file ep 
if pos(c,input_line) > 0 then do /* File is delimited ASCII. sf, 
parse value input_line with emp_no (c) fname (c) lname (c) dept_no 
fname = Gieieilje) ((seroystaney 18}, PY) 
iname = Siesealjon( Ilias), 153, 7" )) /* remove quote " marks ap 
Gleiot_in) = Sieielp(Cleie_ino, , 7") 


end 
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else do 
parse value input_line with emp_no 6 fname 13 lname 20 dept_no 
fname = strip (fname) 
iname = strip (lname) /* remove trailing blanks */ 
end 


say 'Input line:' emp_no fname lname dept_no 
/* Ensure EMP_NO & DEPT_NO are numeric */ 


if datatype(emp_no) \= 'NUM' | datatype(dept_no) \= 'NUM' then 
say 'EMP_NO or DEPT_NO are not numeric:' emp_no dept_no 


/* Ensure the two names start with a capital letter */ 


if verify(substr(fname,1,1), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ') > 0 then 
say "First name doesn't start with a capital letter:" fname 

if verify(substr(lname,1,1), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ') > 0 then 
say "Last name doesn't start with a capital letter:" lname 


end 


So that we can easily feed it either kind of file to process, the script accepts the filename as an input 
parameter. This technique of reading the name of the file to process from the command line is common. 
It offers more flexibility than “hardcoding” the filename into the script. 


To start off, the script reads the first line of input data and determines whether it is processing a 
comma-delimited input file or a record-oriented file by this code: 


if pos(c,input_line) > 0 then do /* file is delimited ascii */ 


The pos built-in function returns the character position of the comma (represented by the variable c) 
within the target string. If the returned value is greater than 0, a comma is present in the input line, and 
the program assumes that it is dealing with comma-delimited input. If the script finds no comma in the 
input line, it assumes that it is dealing with a record-oriented input file. 


If the program determines that it is working with a comma-delimited input file, it issues this parse 
instruction to split the four fields from the input line into their respective variables: 


parse value input_line with emp_no (c) fname (c) lname (c) dept_no 


This parse statement strips data elements out of the input string according to comma delimiters. But there 
is a problem. The second, third, and fourth data elements were enclosed in double quotation marks in the 
input file. To remove these leading and trailing quotation marks, we use the built-in strip function: 


fname = strip(fname,B,'"') 
1Iname strip(lname,B,'"') /* remove quote " marks * 
dept_no = strip(dept_no,,'"') 


The B operand stands for Both — strip out both leading and trailing double quotation marks. Other 
strip function options are L for leading only and T for trailing only. Both is the default, so as the third 
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line in the previous example shows, we don’t need to explicitly code it. Instead, we just show that 
parameter is missing by coding two commas back-to-back. The final parameter in the strip function 
encloses the character to remove within quotation marks. Here we enclosed the double quotation marks 
("") within two single quotation marks, so that strip will remove double quotation marks from the 
variable’s contents. 


If the script does not find a comma in the input line, it assumes that it is dealing with a file whose data 
elements are located starting in specific columns. So, the script employs a parse by number statement, 
where the numbers specify column starting positions: 


parse value input_line with emp_no 6 fname 13 lname 20 dept_no 


If you program in languages like COBOL or Pascal, you might recognize this as what is often referred to 
as record I/O. Languages like C, C++, and C# call this an I/O structure, or struct. Chapter 5 showed that 
Rexx’s stream I/O model is simple, yet you can see that it is powerful enough to easily perform record 
I/O by parsing the input in this manner. Part of the beauty of Rexx is that it is so easy to perform such 
operations, without needing special syntax or hard-to-code features in the language to accomplish them. 


After the parsing by number, the record input may contain trailing blanks for the two names, so these 
statements remove them: 


fname = strip(fname) 
iname = strip(lname) /* remove trailing blanks */ 


Now that it has decoded the file and normalized the data elements, the program can get to work and 
verify the data contents. This statement uses the datatype built-in function to verify that the EMP_No 
and DEPT_NO fields (the first and last data elements in each input record) are numeric. If datatype does 
not return the character string NuM, then one of these fields is not numeric and an error message is 
displayed: 


if datatype(emp_no) \= 'NUM' | datatype(dept_no) \= 'NUM' then 
say 'EMP_NO or DEPT_NO are not numeric:' emp_no dept_no 


The logical or (| )is used to test both data elements in one if instruction. If either is not numeric, 
the error message is displayed. 


Finally, the script uses the veri fy built-in function to ensure that the two names both start with a capital 
letter. First, this nested use of the substr built-in function returns the first letter of the name: 


substr(fname,1,1) 


Then the verify function tests this letter to ensure that it’s a member of the string consisting of all capi- 
tal letters: 


if verify(substr(fname,1,1),'ABCDEFGHIJKLMNOPQRSTUVWXYZ') > 0 then 
say "First name doesn't start with a capital letter:" fname 


The nesting of the substr function means that we have coded one function (substr) within another 
(verify). Rexx resolves the innermost function first. The result of the innermost function is then 
plunked right into the code at the position formerly occupied by that function. So, the substr function 
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returns the first letter of the variable fname, which then becomes the first parameter within the paren- 
theses for the verify function. 


Pretty nifty, eh? Rexx allows you to nest functions to an arbitrary depth. We do not recommend nesting 
beyond a single level or else the code can become too complicated. We'll provide an example of deeper 
nesting (and how it becomes complicated!) later in this chapter. 


It’s easy to code for intermediate results by breaking up the nesting into two (or more) statements. This 
example shows how to eliminate the nested function to simplify the code. It produces the exact same 
result as our nested example: 


first_letter = substr(fname,1,1) 
if verify(first_letter, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ') > 0 then 


After the script runs, here is its output for the sample data we viewed earlier: 


D:\Regina\hf>regina database_input.rexx database_input.asc 
Input line: 10001 George Baklarz 307 

Input line: 10002 Bill Wong 304 

Input line: 10003 Beverly Crusher 305 

Input line: 1x004 joe Zip 305 

EMP_NO or DEPT_NO are not numeric: 1x004 305 

First name doesn't start with a capital letter: joe 

Input line: 10005 Sue stans 3x5 

EMP_NO or DEPT_NO are not numeric: 10005 3x5 

Last name doesn't start with a capital letter: stans 


The last two lines of the input data contained several errors. Parsing techniques and string functions 
together enabled the program to identify these errors. 


String Functions 


The parse instruction provides syntactically simple, but operationally sophisticated parsing. You can 
resolve many string-processing problems with it. Rexx also includes over 30 string-manipulation func- 
tions, a few of which the sample script above illustrates. 


This section describes more of the string functions. A later section in this chapter discusses the eight out- 
ermost functions that are word-oriented. The word-oriented functions process strings on the basis of words, 
where a word is defined as a character string delimited by blanks or spaces. For example, this string con- 
sists of a list of 16 words: 


now is the time for all good men to come to the aid of their country 


Before we proceed, here is a quick summary of Rexx’s string functions (see Appendix C for full coding 
details of these and all other Rexx functions): 


Q = abbrev—Tells if one string is equal to the first characters of another 


Qo center — Centers a string within blanks or other pad characters 
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changestr— Changes all occurrences of one string within another to a specified string 
compare — Tells if two strings are equal (like using the = operator) 

copies — Returns a string concatenated to itself n times 

countstr— Counts how many times one string appears within another 

datatype — Verifies string contents based on a variety of “data type” tests 

delstr— Deletes a substring from within a string 

insert — Inserts one string into another 

lastpos — Returns the last occurrence of one string within another 

left — Returns the first n characters of a string, or it can left-justify a string 

length — Returns the length of a string 

overlay — Overlays one string onto another starting at a specified position in the target 
pos — Returns the position of one string within another 

reverse— Reverses the characters of a string 

right — Returns the last n characters of a string, or it can right-justify a string 
strip— Strips leading and/or trailing blanks (or other characters) from a string 
substr — Returns a substring from within a string 


translate— Transforms characters of a string to another set of characters, 
as directed by two “translation strings” 


verify— verifies that all characters in a string are part of some defined set 


xrange— Returns a string of all valid character encodings 


The changestr and countstr functions were added by the ANSI-1996 standard. Rexx implementations 
that meet the TRL-2 standard of 1990 but not the ANSI-1996 standard may not have these two functions. 

This is one of the few differences between the TRL-2 and ANSI-1996 standards (which are fully enumer- 

ated in Chapter 13). Regina Rexx fully meets the ANSI-1996 standard and includes these two functions. 


Here’s a simple program that demonstrates the use of the abbrev, datatype, length, pos, translate, 
and verify string functions. The script reads in four command-line arguments and applies data verifi- 
cation tests to them. The script displays any inaccurate parameters. 


/* VERIFY ARGUMENTS: up 
If if 
ie This program verifies 4 input arguments by several criteria. */ 
parse arg first second third fourth . /* get the arguments df 
/* First parm must be a valid abbreviation for TESTSTRING ef 
if abbrev('TESTSTRING',first,4) = 0 then 
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say 'First parm must be a valid abbreviation for TESTSTRING:' first 
/* Second parm must consist only of digits and be under 5 bytes long */ 
if datatype(second) \= 'NUM' then 

say 'Second parm must be numeric:' second 
if length(second) > 4 then 

say 'Second parm must be under 5 bytes in length:' second 


/* Third parm must occur as a substring somewhere in the first parm */ 


SIE joyoys) ((ielobsetel, seabieisic)) = 0) ielayerat 
say 'Third parm must occur within the first:' third first 


/* Fourth parm translated to uppercase must contain only letters ABC */ 


aig aFoybuctela, = 99 ielaveral 
say 'You must enter a fourth parameter, none was entered’ 
uppercase = translate(fourth) /* translate 4th parm to uppercase */ 


if verify(uppercase, 'ABC') > 0 then 
say 'Fourth parm in uppercase contains letters other than ABC:' fourth 


Here’s an example of running this program with parameters it considers correct: 
c:\Regina\pgms> regina verify_arguments TEST 1234 TEST abc 


Here’s an example where incorrect parameters were input: 


c:\Regina\pgms>regina verify_arguments TEXT 12345 TEST abcdef 
First parm must be a valid abbreviation for TESTSTRING: TEXT 
Second parm must be under 5 bytes in length: 12345 

Third parm must occur within the first: TEST TEXT 

Fourth parm in uppercase contains letters other than ABC: abcdef 


Let’s discuss the string functions this code illustrates. 


The first parameter must be a valid abbreviation for a longer term. Where would you use this function? 
An example would be a program that processes the commands that a user enters on a command line. 
The system must determine that the abbreviation entered is both valid and that it uniquely specifies 
which command is intended. The abbrev function allows you to specify how many characters the user 
must enter that match the beginning of the target string. Here, the user must enter at least the four letters 
TEST for a valid match: 


if abbrev('TESTSTRING',first,4) = 0 then 
say 'First parm must be a valid abbreviation for TESTSTRING:' first 


The second parameter the user enters must be numeric (it must be a valid Rexx number). The datatype 
function returns the string NuM if this is the case, otherwise it returns the string CHAR: 


if datatype(second) \= 'NUM' then 
say 'Second parm must be numeric:' second 
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datatype can also be used to check for many other conditions, for example, if a string is alphanumeric, 
binary, lowercase, mixed case, uppercase, a whole number, a hexadecimal number, or a valid symbol. 


Using the length function allows the program to determine if the second parameter contains more than 
four characters: 


if length(second) > 4 then 
say 'Second parm must be under 5 bytes in length:' second 


The third parameter must be a substring of the first parameter. The pos function returns the starting posi- 
tion of a substring within a string. If the substring does not occur within the target string, it returns 0: 


if pos(third,first) = 0 then 
say 'Third parm must occur within the first:' third first 


This code ensures that the user entered a fourth parameter. If a fourth parameter was not entered, the 
argument will have been set to the null string (represented by the two immediately adjacent single quo- 
tation marks): 


if fourth = '' then 
say 'You must enter a fourth parameter, none was entered' 


Finally, when translated to uppercase, the fourth parameter must not contain any letters other than A, B, or 
c. Using the translate function with a single parameter translates the fourth argument to uppercase: 


uppercase = translate(fourth) /* translate 4th parm to uppercase */ 
Use the verify function to ensure that all characters in a string are members of some set of characters. 
This verify statement ensures that all the characters in the string named uppercase are members of its 
second parameter, hardcoded here as the literal string ABC. If this is not the case, the verify function 


returns the position of the first character violating the rule: 


if verify(uppercase,'ABC') > 0 then 
say 'Fourth parm in uppercase contains letters other than ABC:' fourth 


The Rexx string functions are pretty straightforward. This script shows how easy it is to use them to per- 
form data verification and for basic string processing. 


The Word-Oriented Functions 


A word is a group of printable characters surrounded by blanks or spaces. A word is a blank-delimited 
string. Rexx offers a group of word-oriented functions: 


Cl delword— Deletes the nth word(s) from a string 


OQ) space— Formats words in a string such that they are separated by one or more occurrences of a 
specified pad character 
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subword— Returns a phrase (substring) of a string that starts with the nth word 
word— Returns the nth word ina string 

wordindex— Returns the character position of the nth word in a string 
wordlength— Returns the length of the nth word in a string 


wordpos — Returns the word position of the first word of a phrase (substring) within a string 


Oocodsdo 


words — Returns the number of words in a string 


These functions can be coupled with the outermost functions to address any number of programming 
problems in which symbols are considered as strings of words. One such area is textual analysis or natural 
language processing. An example of a classic text analysis problem is to confirm the identity of the great 
English playwright Shakespeare. Were all his works written by one person? Could they have been writ- 
ten by one his better-known contemporaries? 


One way to answer these questions is to analyze Shakespeare’s works and look for word-usage patterns. 
Humans tend to use words in consistent ways. (Some experts claim they can analyze word usage to the 
degree that individuals’ linguistic profiles are unique as their fingerprints). Analyzing Shakespeare’s texts 
and comparing them to those of contemporaries indicates whether Shakespeare’s works were actually 
written by him or someone else. 


Special-purpose languages such as SNOBOL are particularly adept at natural language processing. But 
SNOBOL is premodern; it lacks good control constructs and robust I/O. Better to use a more main- 
stream, portable, general-purpose language like Rexx that offers strong string manipulation in the con- 
text of good structure. 


Text analysis is a complex topic outside the scope of this book. But we can present a simple program that 
suggests how Rexx can be applied to textual analysis. The script named Poetry Scanner reads modern 
poetry and counts the number of articles and prepositions in the input. It produces a primitive form of 
“sophistication rating” or lexical density. In our example, this rating comprises two ratios: the ratio of the 
number of longer words to the number of shorter words, and the ratio of prepositional words to the total 
number of words in the text. 


To perform these operations, the script translates the input text to all uppercase and removes punctua- 
tion, because punctuation represents extraneous characters that are irrelevant to the analysis. 


For this input poem: 


"The night was the darkest, 
for the byrds of love were flying. And lo! 
it saw them with the eyes of the eagle. 
above 

the cows flew in the cloud pasture. 
below 

the earthworms were multiplying ... 
god grant that they all find their ways home." 
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... the program produces this output: 


THE NIGHT WAS THE DARKEST 
FOR THE BYRDS OF LOVE WERE FLYING AND LO 
I SAW THEM WITH THE EYES OF THE EAGLE 


ABOVE 

THE COWS FLEW IN THE CLOUD PASTURE 
BELOW 

THE EARTHWORMS WERE MULTIPLYING 


GOD GRANT THAT THEY ALL FIND THEIR WAYS HOM 


14 


Ratio long/short words: 0.40625 

Number of articles: 8 

Number of prepositions: 5 

Ratio of preps/total words: 0.111111111 


Press ENTER key to exit... 


Here is the program: 


/* POETRY SCANNER: ii 
i ey) 
fs This program scans text to perform primitive text analysis. yf 


list_of_articles = 'A AN THE' 
list_of_preps 'AT BY FOR FROM IN OF TO WITH' 


big_words = 0 : small_words = 0 
number_articles = 0 ¢ number_preps = 0 
do while lines('poetry.txt') > 0 
line_str = linein('poetry.txt') /* read a line of poetry ~y 
line_str = translate(line_str) /* translate to uppercase ey 
line _str = translate(line_str,' MS pee oF seeniove pune. "7 
call lineout ,space(line_str) /* display converted input line */ 
do j=1 to words(line_str) /* do while a word to process ey 
if wordlength(line_str,j) >= 5 then 
big_words = big_words + 1 /* count big words ey] 
else 
small_words = small_words + 1 /* count small words */ 
word_to_analyze = word(line_str,j) /* get the word 3p 


if wordpos(word_to_analyze,list_of_articles) > 0 then 
number_articles = number_articles + 1 /* count the articles*/ 
if wordpos(word_to_analyze,list_of_preps) > 0 then 


number_preps = number_preps + 1 /* count prep phrases*/ 
end 
end 
say 
say 'Ratio long/short words: ' (big_words/small_words) 
say 'Number of articles: ' number_articles 
say 'Number of prepositions:' number_preps 
say 'Ratio of preps/total words:' (number_preps/ (big_words+small_words) ) 
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The program demonstrates several of the word-oriented functions, including words, word, wordlength, 
and wordpos. It also uses the translate function in two different contexts. 


After it reads a line of input, the program shows how the translate function can be used with only the 
input string as a parameter to translate the contents of the string to all uppercase letters: 


line_str = translate(line_str) /* translate to uppercase ay 
Then translate is used again, this time to replace various punctuation characters with blanks. In this 
call, the third parameter to translate contains the characters to translate, and the second parameter 
tells what characters to translate them to. This example translates a various punctuation characters into 
blanks: 


line_str = translate(line_str, ' sr as et | /* remove punc. */ 


The do loop processes the individual words in each input line. It executes while there is a word to pro- 
cess in the current input line: 


do j=1 to words (line_str) /* do while a word to process oy 
The words function returns the number of blank-delimited words in the input line, line_str. 


The wordlength function tells the length of the word. The script uses it to determine whether the word 
is longer than 4 bytes: 


if wordlength(line_str,j) >= 5 then 
big_words = big_words + 1 /* count big words */. 


The script needs to get an individual word in order to determine if that word is an article or preposition. 
To parse out one word from the input string, the script invokes the word function: 


word_to_analyze = word(line_str,j) /* get the word */ 
To identify articles in the text, the program initializes a string containing the articles: 
list_of_articles = 'A AN THE' 
Then it uses the wordpos function to see if the word being inspected occurs in this list of articles. word- 
pos returns the starting position of the word in a string if it occurs in the string. If it returns 0, we know 


that the word is not an article: 


if wordpos(word_to_analyze,list_of_articles) > 0 then 
number_articles = number_articles + 1 /* count the articles*/ 


What this line of code really does is list processing. It determines if a given element occurs in a list. String 
processing is easily used to emulate other kinds of processing techniques and various data structures, 
such as the list. As mentioned in the chapter introduction, string manipulation is powerful because it is a 
generic tool that can easily be used to implement other processing paradigms. 
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The program ends with several say instructions that show how output can be dynamically concatenated 
from the results of expressions. The last line of the program calculates a ratio and displays it with an 
appropriate label: 
say 'Ratio of preps/total words:' (number_preps/ (big_words+small_words) ) 
Rexx evaluates the expression in parentheses prior to executing the say instruction and displaying the 
output line. Remember that in evaluating expressions, Rexx always works from the innermost set of 
parentheses on out. The script uses the parentheses to ensure that this expression is resolved first: 
(big_words+small_words) 
The result of this expression feeds into the division: 
(number_preps/ (big_words+small_words) ) 
To summarize, this simple program illustrates a number of the word and string functions. More impor- 


tantly, it demonstrates that these features can be combined to create powerful string-processing scripts. 
Rexx offers excellent string-processing facilities. 


The Bit String Functions and Conversions 
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The TRL-2 standard added support for bit strings, strings that represent binary values. Bit strings are 
composed solely of Os and 1s. They are represented as a string of 0s and 1s immediately followed by the 
letter b or B: 


'11110000'b /* represents one character (or "byte") as a bit string */ 
This encoding parallels that used to represent hexadecimal (or hex) strings. Hex is the base-16 arithmetic sys- 
tem by which computer bits are represented. Each character or byte is represented by two hex digits. Hex 
strings are composed of the digits 0 thru 9 and letters A thru F, immediately followed by the letter x or x: 

'ODOA'x /* the two byte end-of-line indicator in Windows and DOS */ 
Binary strings find several uses. For example, use them to specify characters explicitly, bit by bit. This 
helps you store and manipulate unprintable characters, for example. The relationship of bit strings to 
characters is described by the table called a character map. Sometimes this is referred to as the character 
encoding scheme. 
Want to see your system’s entire character map? Just enter the xrange function: 

say xrange() /* displays the character map */ 

Or display some portion of the character map by specifying a range of starting and ending points. The 


range can be expressed in binary, hex, or character. You'll see the entire map, just as shown earlier, if you 
enter the entire range of the map explicitly: 


String Manipulation 


say xrange('00'x, 'FF'x) /* displays the character map */ 

This statement also displays the entire character range: 
say xrange('00000000'b, '11111111'b) /* displays the character map */ 

Display the same character map in hex (base-16) by using the c2x (character-to-hex) conversion function: 
say c2x(xrange() ) /* displays the character map in hex */ 


Want to see it as a bit string? You'll have to do two conversions: character to hex, then hex to binary. Nest 
the character-to-hex (c2x) function within the hex-to-binary (x2) function to do this. Remember, Rexx 
always evaluates the expression nested in the innermost parentheses first and works its way outward 
from there. In this example, Rexx first performs the xrange function; then it executes c2x, and finally it 
runs x2b, giving us the binary map in the end: 


say x2b(c2x(xrange())) /* displays the character map in binary */ 


Bit strings have many applications. For example, database management systems manipulate bit map 
indexes to provide quick access to data having a low variety of possible values (low cardinality) by 
ANDing bit strings representing the data values. Another use for bit strings is in the technique called key 
folding. This develops a key for direct (random) data access based on character string key fields. A logical 
or bit operation is applied to the character field(s) to develop a key that is evenly distributed across 
direct access slots or positions in the database or on disk. A similar technique called character folding is 
used to map similar characters to a common target, for example, to eliminate certain distinctions 
between strings. This would be useful when you want similar strings to be compared as equal. 


Rexx provides three binary string functions that perform logical operations on binary strings: 


Q bitand—Returns the string result of two strings logically AND’d together, bit by bit 

Ql bitor—Returns the string result of two strings logically OR’d together, bit by bit 

Qo ~bitxor—Returns the string result of two strings logically EXCLUSIVE OR’d, bit by bit 
Here are examples that apply these binary operations on bit strings. The binary string functions return 
their results in the form of a character string (comprising one character, since 8 bits make a character and 


the input strings we supply are one character long). Therefore, we use the character-to-hex (c2x) and 
hex-to-binary (x2b) functions to interpret the result back to a displayable bit string: 


say x2b(c2x(bitand('11110000'b, '11001100'b) )) /* displays: 11000000 */ 
say x2b(c2x(bitor('11110000'b, '11001100'b) )) /* displays: 11111100 */ 
say x2b(c2x(bitxor('11110000'b, '11001100'b) )) /* displays: 00111100 */ 


The bitand operation sets bits to TRUE (1) in the result, only if they are TRUE in both strings. bitor sets 
bits to TRUE (1) if they are TRUE in either string. The bitxor function sets bits to TRUE only if they are 
TRUE in exactly one input string or the other. 


The next chapter covers data conversions in further detail and includes an sample program that demon- 


strates folding a two-part character key. It illustrates the bitand function and the c2x (character-to- 
hexadecimal) and x2b (hexadecimal-to-binary) conversion functions. 
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Summary 


This chapter introduces string processing. It describes the basic techniques for concatenation and pars- 
ing in Rexx and lists the many built-in functions for string and word processing. The sample programs 
demonstrate some of these techniques and functions. 


The techniques we explored included concatenation, or the joining together of strings, and parsing, the 
analysis and splitting of strings into their constituent substrings. We looked at a sample script that per- 
formed input data validation and saw how string analysis and parsing applied to this problem. Then we 
looked at string functions, including those that analyze words, or discrete groups of letters surrounded 
by spaces or blanks. Finally, we discussed bit strings. These can be used in a wide variety of applications, 
such as database bit indexes and key folding. We discussed the major bit manipulation functions and 
how bit strings are converted to and from other forms by using conversion functions. 


Chapter 8 illustrates more string manipulation. It includes a script that can tell whether parentheses are 
balanced (for example, as they might be coded within a Rexx statement). There is also a function called 
Reverse, which reverses the characters in an input string, just like the Rexx built-in reverse function. 
This new Reverse script does its work in an interesting way — it calls itself as its own subroutine. Stay 
tuned! 


Test Your Understanding 
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What is string processing, and why are outermost features important in a scripting language? 
What are the three methods of string concatenation? How is each different? 


What are the three methods of parsing with the parse instruction, and how does each operate? 


Pe bP 


Which built-in function would you use for each of the following tasks: 


Checking that all characters in one string occur as members in another 
Verifying the data type of a user-input data item 
Finding the position of a substring with a string 


Removing all occurrences of a specified character from a string 


Oooo wo 


Right- and left- justifying a string for printing in a report 


Removing leading and/or trailing pad characters from a string 
5. What is the difference between the wordindex and wordpos functions? 


6. How are printable characters, hex characters, and bit strings related? What are some of the con- 
version functions used to convert values between them? 


7. What are some of the uses of bit strings in applications? 


Numbers, Calculations, and 
Conversions 


Overview 


The second chapter gives the barest definition of what numbers are and how they are used. Rexx is 
designed to handle arithmetic in as natural as manner as possible. It conforms to the basic rules of 
computation that people absorb in high school or college. For most programs, you'll need no spe- 
cial knowledge of how Rexx handles numbers. Rely on its automatic numeric conversions and 
rounding, and your scripts will work just fine. 


Rexx differs from languages that place the burden of cross-system consistency on the developer. 
Its language definition ensures that calculations provide the same outputs, regardless of language implemen- 
tation or the platform on which it is run. 


Rexx achieves this cross-platform consistency by employing decimal arithmetic internally. This 
contrasts with the floating-point or binary arithmetic used by most other programming languages, 
which produce calculation results that can vary by platform. Rexx’s natural or human-oriented 
approach to computation is part of its appeal as an easy-to-use, portable scripting language. 


Even with this high level of automation, there will be situations where you require some knowl- 
edge of how Rexx handles calculations and how you can affect them. This chapter probes a little 
more deeply so that you'll be able to handle these situations appropriately. More specifically, we'll 
look at the ways in which you can express numeric values within scripts. We'll discuss the 
numeric functions for manipulating numbers, as well as the conversion functions that transpose 
numbers to other forms. We'll also look at how to manage precision in calculations, and ways to 
print or display numbers in the appropriately. The last part of the chapter focuses on the conver- 
sion functions that convert between numbers, character strings, bit strings, and hexadecimal val- 
ues. A sample script demonstrates several conversion functions in illustrating a programming 
technique called key folding. 
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The Basics 


All Rexx variables are character strings. Numbers are just character strings whose contents are consid- 
ered numeric. Numbers are strings of one or more digits, optionally preceded by plus or minus sign ( + 
or - ), and optionally containing a single period to represent a decimal point. Extending Rexx’s flexible 
treatment of numbers, numbers may optionally have preceding or trailing blanks (which Rexx ignores 
when calculating). 


Numbers may also be expressed in two forms of exponential notation: scientific and engineering. Scientific 
notation has one digit to the left of the decimal place, followed by fractional and exponential compo- 
nents. Engineering notation expresses the integer component by a number between 1 and 999. The E that 
precedes the exponential portion of the number in either notation can be either uppercase or lowercase. 
Spaces may not be embedded within the exponential portion of a number. 


Here are some valid Rexx numbers: 


3 /* a WHOLE number - often called an INTEGER in other languages sf 
Y -3. '  7/* the same number- leading and trailing blanks don't matter a 
-33 /* a negative number ef 

: =33:' /* the same numeric value- leading blanks are inconsequential xy 
12.000 /* a decimal number - the internal period represents a decimal point*/ 
233 /* another decimal number */ 
+ 3635 0 /* valid - the blanks are ignored ay 
5.22e+22 /* scientific exponential number ay 
5.22E+22 /* the same number - either 'E' or 'e' is fine ey 
14.23E+7 /* engineering notation yf 


Here are a few invalid numbers: 


es /* Internal spaces are not allowed. m/f; 
3.3.3 /* More than one period is not allowed. */ 
'333b' /* This contains the letter b. Alphanumeric strings are not numeric. */ 
333 (33 /* contains an invalid internal character, the left parenthesis be 


A string containing one of these forms of valid numbers will be recognized by Rexx as a number when 
appropriate. For example, when two values are compared, Rexx implements a numeric comparison if both 
values are numeric. Otherwise, it employs a character comparison. The way Rexx performs the numeric 
comparison internally is to subtract one number from the other. A result of 0 means that the two num- 
bers are the same; any other value indicates their difference. 


The basic rules of calculation in Rexx are: 


Results are determined up to the number of significant digits (which defaults to 9). 
Trailing zeroes are retained (except when using the power and division operators). 


A result of 0 is represented as a single-digit 0. 


Coo vo 


Results are expressed in scientific exponential notation if either the number of digits prior to the 
decimal point exceeds the setting for significant digits or the number of digits following the dec- 
imal point exceeds twice the number of significant digits. 
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The term significant digits refers to how many digits are retained during a calculation. This is often 
termed the precision to which results are carried. Beyond this number of significant digits, or precision, 
Rexx rounds off the number. 


The default number of significant digits is 9. Remember the Poetry Scanner program in the previous 
chapter? This is why it printed this output: 


Ratio of preps/total words: 0.111111111 
in response to this calculation: 
say ‘Ratio of preps/total words:' (number_of_preps/ (big_words/small_words) ) 


The nine digits to the right of the decimal point are the default number of significant digits (the default 
precision). Use this simple command to alter the number of significant digits: 


numeric digits [expression] 
For example, set the precision to four digits: 
numeric digits 4 


If you placed this statement prior to the calculations in the Poetry Scanner script, that same say instruc- 
tion would display: 


Ratio of preps/total words: 0.1111 


This shows the power of the numeric digits instruction. With it you can alter or carry out accuracy to 
any desired point. 


numeric digits also determines whether your output appears in exponential notation. If you expect a 
nonexponential result but Rexx gives you an exponential one, increasing the precision is one way to 
change this. 


The numeric instruction also has the fuzz keyword to indicate how many significant digits less than 
that set by numeric digits will be involved during numeric comparisons. numeric fuzz only applies 
to comparisons. It has the effect of temporarily altering the number of significant digits for comparisons 
only. Its value must be less than the setting of numeric digits. Its default is 0. 


fuzz essentially controls the amount by which two numbers may differ before being considered equal. 
For example, ifnumeric digits = 5andnumeric fuzz = 1, then numeric comparisons are carried 
out to four significant digits. 


Here’s a series of statements to demonstrate the effects of numeric digits andnumeric fuzz. You 
can see how their settings determine the precision of comparisons: 


numeric digits 4 /* set down to 4 from the default of 9 */ 
numeric fuzz 0 /* leave at its default of 0 */ 
say 2.998 = 2.999 /* Displays: 0 */ 
say 2.998 < 2.999 /* Displays: 1 */ 
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numeric fuzz 1 /* set up to 1 from 0 to alter comparisons */ 
say 2.998 = 2.999 /* Displays: 1 if: 
say 2.998 < 2.999 /* Displays: 0 */ 


numeric form allows you to dictate which form of exponential notation is used. The default is scien- 
tific. To change this to engineering notation, enter: 


numeric form engineering 
Use the built-in functions digits, fuzz, and form to retrieve or display the current settings of numeric 


digits,numeric fuzz,andnumeric form, respectively. For example, assuming that you haven't 
changed the defaults, here’s what these functions return: 


say digits() /* displays setting for NUMERIC DIGITS: 9 Sof 
say fuzz() /* displays setting for NUMERIC FUZZ: 0 wf 
say form() /* displays setting for NUMERIC FORM: SCIENTIFIC bad 


The only two errors Rexx gives from calculations are overflow/underflow and insufficient storage. The first 
occurs when the exponential part of a number becomes too large or too small for the language inter- 
preter, while the second means Rexx ran out of memory. 

Chapter 10 discusses and illustrates how to set up error or exception routines to handle or “trap” certain 
kinds of error situations. One error you can manage by exception routines is the unintended loss of sig- 
nificant digits. This is achieved through the LOSTDIGITS condition, a feature added to Rexx by the 
ANSI-1996 standard. Chapter 10 gives full details on the LOSTDIGITS condition and how to use it. 

To control the display style of numbers, use the format built-in function: 


format (number_string, before, after) 


format rounds and formats a number. before indicates how many characters appear in the integer part 
and after indicates how many characters appear in the decimal part. 


If before is too small to contain the number, an error results. If after is too small, the number is 
rounded to fit. 


If before is larger than the integer requires, blanks precede the number. If after is larger than the deci- 
mal part requires, extra zeroes are added on the right. 


With this information, another option in the Poetry Scanner script would have been to leave numeric 
digits alone (letting it default it to 9 for all calculations), then format the output to reduce the number 


of digits to the right of the decimal point: 


outratio = number_preps/ (big_words+small_words) 
say 'Ratio of preps/total words:' format (outratio,1,4) 


This yields the same result we got earlier from changing the value of numeric digits to 4: 


Ratio of preps/total words: 0.1111 
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Here are a few more examples of the format function: 


say format (13,8) /* displays: ' 13! 
-- use to right-justify a number */ 


say format(1.11,4,0) /* displays: ' i! 
-- rounded and right-justified a A 
say format(1.1,4,4) /* displays: ' 1.1000' 
-- extended with zeroes >). 
say format(1.1,4) /* displays: ' yee ey 
-- right-justified */ 
say format (1234,2) /* error - not enough room for the integer part */ 


format can also be used to control the display of exponential numbers. This is the template for this ver- 
sion of format: 


format (number [, [before] [, [after] [,[expp] [,expt]]]]) 
expp and expt control the formatting of the exponential part of the result. expp is the number of digits 


used for the exponential part, while expt sets the trigger for the use of exponential notation. Here are a 
few examples: 


format (*12345.67" »»¢2;,3) == '1.234567E+04' 
format ('12345.67',,,4,4) == '1.234567E+0004' 
tormat( "12345 ..67',;2,-0) == '1.23E+4' 

format ('12345.67',,3,,0) == '1.235E+4' 


The format function is useful for generating reports with numbers nicely aligned in columns. Use it to 
right-justify numbers and ensure that a consistent number of decimal places appear. Also use it to round 
off numbers to any point of precision. 


More Numeric Functions 


To this point, we’ve discussed functions that determine precision in calculations and comparisons, and 
we've demonstrated how to format numbers for printing and display. Beyond digits, form, format, 

and fuzz, Rexx offers several other built-in functions designed to manipulate numbers. Here are these 
additional numeric functions: 


Q) abs—Returns the absolute value of a number 


max — Returns the largest number from a list of numbers 


Q 

OQ) =min—Returns the smallest number from a list of numbers 

Q) random— Returns a random number within the range given (inclusive) 
Q 


sign— Returns 1 if number is greater than 0, or 0 if the number is 0, or -1 if the number is less 
than 0 


QO) trunc — Truncates a number 
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Appendix C contains complete coding information for all these functions. Here, we will cover some of 
their common uses. 


Here are a few examples of the functions: 


say abs(-4.1) /* displays: 4.1 ey 
say abs(4.1) /* displays: 4.1 xf 
say abs(-0.11) /* displays: 0.11 */ 
say abs(-0) /* displays: 0 Ze 
say max(3,2,88) /* displays: 88 *f 
say max(0,-1,-17) /* displays: 0 Ky 


say max(-7.0000,-8) /* displays: -7.0000 a] 


say min(-1,14,-7.0000) /* displays: -7.0000 */ 


say min(50,13) /* displays: 13 *y: 

say sign(-12) /* displays: -1 a7: 

say sign(1) /* displays: 1 ce A 

say sign(0) /* displays: 0 * 

say trunc(11.11) /* displays: 11 -Returns whole number after truncation */ 
say trunc(11.11,2) /* displays: 11.11 

-Returns number truncated to 2 decimal places */ 

say trunc(11.11,1) /* displays: 11.1 


-Returns number truncated to 1 decimal place */ 
The random function takes this form: 
random(min, max, seed) 


It generates a random number between min and max (inclusive), based on the seed value. If you don’t 
provide a seed, Rexx generates its own random number (usually based on the system time-of-day 
clock). If min and/or max are not specified, they default to 0 and 999, respectively. Here are a couple 
examples: 


random(1,2) /* simulate a coin toss, returns Heads or Tails */ 
random(1,6) /* simulate rolling a single die, 
result is between 1 and 6 inclusive */ 


Many Rexx implementations offer extensions for transcendental mathematical functions. These include 
tangent, sine, cosine, and the like. Section II covers these implementation-specific extensions to standard 
Rexx when it discusses the features of the various open-source Rexx interpreters. Also, Appendix H lists 
a few dozen of the many free and open-source Rexx tools and interfaces that are available. Among them 
are several external function libraries that support advanced mathematics. 
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Conversions 


Rexx variables contain values representing character, decimal, hexadecimal, and binary strings. 
Obviously, there will be occasions when you need to convert variables from one of these representations 
to another. Rexx provides a set of conversion functions that allow you to convert data between the differ- 
ent formats. Here is a list of these conversion functions: 


Function Converts 

b2x Binary to hexadecimal 
c2d Character to decimal 

c2x Character to hexadecimal 
d2c Decimal to character 

d2x Decimal to hexadecimal 
x2b Hexadecimal to binary 
x2c Hexadecimal to character 
x2d Hexadecimal to decimal 


The datatype function is useful in testing variables to see what kind of data they contain. datatype 
without an option returns either the character string NUM or CHAR to indicate whether the operand is 
numeric or character: 


say datatype('12345') /* displays: NUM */ 
say datatype('abc') /* displays: CHAR */ 
say datatype('abc123') /* displays: CHAR */ 


Or, you can specify an option or “type” of test to perform: 
say datatype('12','W') /* displays: 1 -the string contains a Whole number */ 


As always, options to functions can be specified in either uppercase or lowercase. Here is the complete 
set of options or tests for the datatype function: 


datatype Option Use 

A Alphanumeric — returns 1 if the string contains only characters in the ranges 
‘a’—z', ‘AT’, and ‘0’-’9’. 
Binary — returns 1 if the string contains only Os and 1s. 


Sal Io! 


Lowercase — returns 1 if string contains characters only in the range ‘a’—’z’. 


re 


M Mixed case — returns 1 if string contains characters only in the ranges 
‘q/—7' and NCSA fie 


Table continued on following page 
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datatype Option Use 


N Number — returns 1 if string is a valid Rexx number. 

S Symbol — returns 1 if string comprises a valid Rexx symbol. 

U Uppercase — returns 1 if string contains only characters in range ‘A’-’Z’. 
WwW Whole number — returns 1 if string represents a whole number under the 


current setting for numeric digits. In many programming languages, a 
whole number is referred to as an integer. 


x Hexadecimal — returns 1 if string represents a valid hex number (consists 
only of letters ‘a’~’f’, ‘A’’F’, and digits ‘0’—9’). 


The string that datatype inspects can be of any representation: character, hex, or binary. The sample 
program Verify Arguments in Chapter 6 showed how to use datatype in testing the values of user- 
input parameters. 


A Sample Program 


Here’s a sample program that uses the data conversion functions and the bitand bit string function. 
This script takes two character fields and folds (logically ANDs) the bit representation of these character 
fields together to create a direct access key. As mentioned in Chapter 6, this technique is called key folding 
and can be used in developing a file manager or database system. It permits direct access to records 
based on randomizing character keys. Here’s the program: 


/* FOLDED KEY: ef 
es irs 
iis This program folds a character key from two input fields. ef 
char_keyl = Ulesye seabeulel iL" ies Selevey @urerkfejabiayelll Giereabyayey </ 
char_key_hex1 = c2xichar key) /* the string in hex uf 
char_key_binl = x2b(char_key_hex1) /* the string in binary*/ 
char_key2 = Vide seseikol 2" fs eleva) Cwrestiejalgayell Sierealiavey <// 
char_key_hex2 = c2x(char_key2) /* the string in hex ay 
char_key_bin2 = x2b(char_key_hex2) /* the string in binary*/ 
folded_key = bitand(char_key_binl, char_key_bin2) / tee ONICINK eK; S me i/, 
say 'First key :' char_keyl /* display all results */ 
say 'In hex :' char_key_hex1 

say 'In binary :' char_key_binl 

say 'Second key :' char_key2 

say 'In hex :' char_key_hex2 

say 'In binary :' char_key_bin2 

say 'Folded key :' folded_key 
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The program output looks like this: 


First key : key_field_l 
In hex : 6B65795F6669656C645F31 
In binary : 011010110110010101111001010111110110011001101001011001010110110001 


1001000101111100110001 
Second key : key_field_2 
In hex : 6B65795F6669656C645F32 

In binary : 011010110110010101111001010111110110011001101001011001010110110001 
1001000101111100110010 
Folded key : 011010110110010101111001010111110110011001101001011001010110110001 
1001000101111100110000 


The program shows how to use built-in functions for conversions between data types. This statement 
converts the original character string key to its hexadecimal equivalent through the c2x function: 


char_key_hex1 = c2x(char_key1) /* the string in hex ey 
Then, the x2b function converts that hex string to a binary string: 
char_key_binl = x2b(char_key_hex1) /* the string in binary*/ 


After both original character strings have been converted to binary, this statement logically ANDs the 
two bit strings together to produce the folded key: 


folded_key = bitand(char_key_binl, char_key_bin2) /* fold keys */ 


The original input fields the script folded contained the character strings key_field_1 and 
key_field_2. 


The last line in the output shows that ANDing these values together on the bit level only changes the 
few bits at the end of the folded key string. These two key values require more differentiation than just a 
single different final character! (We’ve used similar input values here to make the operation of the script 
more clear.) In a real environment, we would expect the key fields to hold more diverse data to make 
this algorithm useful. Nevertheless, the program shows how simple it is to perform useful operations 
with the bit manipulation and conversion functions. We’ve implemented a simple algorithm to create 
keys out of arbitrary character strings with just a few lines of code. 


Summary 


Rexx guarantees that the results of arithmetic operations will be the same regardless of the platform or 
the Rexx interpreter. This is an important advantage over many other programming languages, which 
place this burden on the developer. It makes Rexx code more reliable and portable with little effort on 

the programmer’s part. 


The only differences in calculations come in where implementations support different maximums (for 


example, different maximum precision) or when they have differing amounts of total memory with 
which to work. 
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One downside to Rexx’s approach to numeric computations is its relatively slow speed. All variables 
contain strings values that must be converted internally prior to computation. The result is that compu- 
tations are slower than they are in languages that carry numeric values in internal formats optimized to 
perform calculations. Given modern computer hardware, this downside only matters when programs 
are computationally bound. For the typical program, this “downside” matters not at all. 


Rexx transparently handles issues with numeric conversions as necessary to perform numeric opera- 
tions. Nevertheless, there are times when knowing a little more about how Rexx handles numbers is use- 
ful; this chapter provides that detail. We discussed ways to represent numbers in Rexx variables, how to 
control the precision to which calculations are carried out, techniques to format numbers for display, the 
use of exponential notation, and the built-in functions that manipulate numbers. 


The datatype function is the basic means by which the kinds of data held within variables may be 
ascertained. Rexx provides a full set of functions for converting strings between data types. These are 
usually referred to as the conversion functions. Appendix C provides a full coding reference for all Rexx 
functions, including the conversion functions. 


Test Your Understanding 


1. Describe the relationship between numeric digits and numeric fuzz. How do their settings 
affect precision and numeric comparisons? Why would you set fuzz rather than just altering 
digits? 


2. What's the difference between scientific and engineering exponential notations? To which does 
Rexx default? How do you display and/or change the default? 


3. What functions are used to right-justify numeric output in reports? 
4. What kinds of data conditions does the datatype function help identify? 


5. Which of the following are valid numbers? 


-22 

' -22 ' 
2022 

26252; 

222b2 
2.34e+13 
123.E -2 
123.2 E +7 
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Overview 


Rexx fully supports structured programming. It encourages modularity — breaking up large, com- 
plex programs into a set of small, simple, interacting components or pieces. These components fea- 
ture well-defined interfaces that render their interaction clear. Modularity underlies good program 
structure. Modularity means more easily understood and maintained programs than ill-designed 
“spaghetti” code, which can quickly become unmaintainable on large programming projects. 
Structured programming practices and modularity together reduce error rates and produce more 
reliable code. 


Rexx provides the full range of techniques to invoke other programs and to create subroutines and 
functions. The basic concept is that there should be ways to link together any code you create, buy, 
or reuse. This is one of the fundamental advantages to using a “glue” language like Rexx. 


With Rexx, you can develop large, modular programs that invoke routines written in Rexx or other 
languages, which issue operating system commands and utilize functions packaged in external func- 
tion libraries. This chapter describes the basic ways in which one writes modular Rexx programs. 


This chapter investigates how to write internal subroutines and functions, and how to call them 
from within the main program. Passing arguments or values into subroutines is an important 
issue, as is the ability to pass changed values back to the calling program. Variable scoping refers to 
the span of code from within which variables can be changed. This chapter explores the rules of 
scoping and how they affect the manner in which scripts are coded. Finally, we introduce the idea 
of recursion, a routine that calls itself as its own subroutine. While this may at first seem confusing, 
in fact it is a simple technique that clearly expresses certain kinds of algorithms. Not all program- 
ming languages support recursion; Rexx does. The chapter includes a brief script that illustrates 
how recursion operates. 


Chapter 8 


The Building Blocks 


As Figure 8-1 shows, any Rexx script can invoke either internal or external routines. Internal means that 
the code resides in the same file as the script that calls or invokes the routines. Those routines that are 
external reside in some file other than that of the invoking script. 


How Rexx Supports Modularity 


Modularity 
Internal External 
Routines Resources 
— Built-in Functions — Extensions and Function Libraries 
— Functions you develop — Operating System Commands 
— Subroutines — Commands to other environments 


— External Programs 
— API Interfaces to external features 


— API into Rexx 
Figure 8-1 


Internal routines are classified as either functions or subroutines. Functions include those that are pro- 
vided as part of the Rexx language (the built-in functions) and those that you write yourself (user-defined 
functions). Functions are distinct from subroutines in that functions must return a single result string to 
the caller through the return instruction with which they end. Rexx replaces the function code in any 
statement with the returned value from the function. Subroutines may or may not send back a value to 
their caller via their return instruction. The returned value from a subroutine, if there is one, is placed 
into the special variable named result. 


External routines can be functions, too. Often, these come in the form of a package designed to support a 
particular functionality and are called extensions or function libraries. External routines might also be the 
equivalent of internal subroutines, written in Rexx, except that they reside in a different file than that of 
the caller. 


Rexx makes it easy to invoke external programs from your script, regardless of the language in which 
they are written. If the Rexx interpreter encounters a string in a script that does not correspond to its 
instruction set, it evaluates that expression and then passes it to the operating system for execution. So, it 
is simple to run operating system commands or other programs from a Rexx script. Chapter 14 illus- 
trates how to do this. One of Rexx’s great strengths is its role in issuing, controlling, and coordinating 
operating system commands. It is also easy to direct commands to other outside “environments” such as 
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text editors or other tools. Rexx is called a macro language because it is often used to provide programma- 
bility for various tools. For example, on mainframes Rexx is used as the macro language to program the 
widely used editors, XEDIT and the ISPF Editor. 


There are a large variety of Rexx extensions and packages. For example, the open-source Rexx/SQL pack- 
age provides an interface to a variety of relational databases from within Rexx scripts. Other examples 
include interfaces to curses, the text-screen control package; to RexxXML, for XML programming; to 
ISAM, the indexed sequential access method; to TK and DW, for easy GUI programming; to gd, for 
graphics images; RxSock, for TCP/IP sockets, and many other interfaces. Chapters 15 through 18 discuss 
and demonstrate some of these free and open-source packages. Chapter 29 discusses a few of the many 
interfaces to mainframe Rexx and how Rexx offers a high-level macro and interface language for main- 
frame interfaces and facilities. Appendix H lists several dozen of the many free and open-source inter- 
faces that are available and tells how to locate them for downloading. 


Internal Functions and Subroutines 


Functions must always return exactly one result to the caller. Use the return instruction to do this. 
Subroutines may or may not send a result back to the caller via return, but they, too, end with the 
return instruction. 


Functions may be invoked in either of two ways. One method codes the function name, immediately fol- 
lowed by arguments, wherever one might encode an expression: 


returned_string = function_name(parameter_1, parameter_2) 


The function is resolved and the string it returns is plunked right into the expression where it was 
coded. In this case, the assignment statement then moves that value to the variable returned_string. 
Since you can code a function anywhere you can code an expression, nesting the function within an if 
or do instruction is common: 


if ( balanced_parentheses(string_in) ) = 'YES' then 


Here the call to the function balanced_parentheses is nested within an if instruction to provide a 
result for the comparison. After the function balanced_parentheses has been run, its result is plunked 
right where it was encoded in the if instruction. 


You can nest functions within functions, as shown in this return instruction from one of the sample 
scripts we discuss later in this chapter: 


return substr(string,length(string),1) || 
reverse (substr(string,1,length(string) -1) ) 


! 


Recall that the comma is the line continuation character. So, both of these lines constitute a single statement. 


This return instruction features a complex expression that returns a single character string result to the 
caller. The first part of the expression nests the Length function within the substr function; the second 
part nests Length within substr within reverse. Yikes! Nesting is very powerful, but for the sake of 
clarity we don’t recommend getting too fancy with it. Deeply nested expressions may show cleverness 
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but they become unintelligible if too complex. When complex code is developed for corporate, govern- 
mental, or educational institutions, the value of that code drops the moment the programmer who wrote 
it leaves the organization. 

The second basic way to invoke a function is through the cal11 instruction: 


call function_name parameter_1, parameter_2 


For example, to duplicate the code we looked at earlier where the invocation of the balanced_paren- 
theses routine was nested within an if statement, we could have alternatively coded: 


call balanced_parentheses string_in 
if result = 'YES' then /* inspect the result returned from the function call */ 


The result string from the function is automatically placed into the special variable named result and 
may be accessed from there. 


Special variable result will be set to uninitialized if not set by a subroutine. In this case its value will be 
its own name in capitals: RESULT. 


Subroutines may only be invoked by the ca11 instruction. Encode this in the exact same manner as the 
second method for invoking functions: 


call subroutine_name parameter_1, parameter_2 
The special variable result contains a value if the subroutine passed back a value on its return instruc- 


tion. Otherwise result will be set to uninitialized (the value RESULT). All uninitialized variables are 
their own names set to uppercase, so use this test to see if result was not set: 


if result = 'RESULT' then say 'RESULT was not set by the subroutine. ' 


The built-in function symbol can also be used to see if any variable is uninitialized or whether it has 
been assigned a value. It returns the character string VAR if a variable has a value or the string LIT other- 
wise. We can apply it to see if result was assigned a value: 


if symbol('RESULT') == 'VAR' then say 'A result was returned’ 
if symbol('RESULT') == 'LIT' then say 'No result was returned' 


To summarize, here’s a code snippet that shows how to organize a main routine (or driver) and its sub- 
routine. The code shows that the cal11 to the internal subroutine did not set special variable result: 


/* Show whether RESULT was set by the CALL */ 
call subroutine_name 
aie aatesioihic = MeSuue” 


then say 'No RESULT was returned' 
else say 'A RESULT was returned’ 


if symbol('RESULT') == 'VAR' 
then say 'A RESULT was returned' 
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if symbol ('RESULT' ) == 'LIT' 
then say 'No RESULT was returned' 
exit 0 


subroutine_name: 
return 


The return instruction ends the subroutine, but does not include an operand or string to send back to 
the calling routine. The code snippet displays these messages when it returns from the subroutine: 


No RESULT was returned 
No RESULT was returned 


Now change the last statement in the code, the return instruction in the subroutine, to something like 
this: 


return 'result_string' 
Or, change it to this: 
return 0 


Either encoding means that the special variable resu1t is set to the string returned. After invoking the 
internal routine, the code snippet now displays: 


A RESULT was returned 
A RESULT was returned 


When encoding subroutine(s) and/or functions after the main routine or driver, code an exit instruc- 
tion at the end of the code for the main routine. This prevents the flow of control from rolling right off 
the end of the main routine and going into the subroutines. 


Here is another example that is the exact same as that seen in the preceding example. However, we have 
coded it incorrectly by commenting out the exit instruction that follows the main routine. We have also 
added a statement inside the subroutine that displays the message: Subroutine has been entered. 


Here’s the code: 
/* Show whether RESULT was set by the CALL */ 
call subroutine_name 
Wie Gaesjoilis = Masui’ 


then say 'No RESULT was returned' 
else say 'A RESULT was returned' 


if symbol ('RESULT' ) == 'VAR' 
then say 'A RESULT was returned' 
if symbol ('RESULT' ) == 'LIT' 


then say 'No RESULT was returned' 
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ie? eealie 0 sy /* now commented out */ 


subroutine_name: 
say 'Subroutine has been entered' /* new line of code */ 
return 0 


This script displays this output: 


Subroutine has been entered 

A RESULT was returned 

A RESULT was returned 

Subroutine has been entered <= this line results from no EXIT instruction! 


This shows you must code an exit instruction at the end of the main routine if it is followed by one or 
more subroutines or functions. The last line in the sample output shows that the subroutine was entered 
incorrectly because an exit instruction was not coded at the end of the main routine. As with the sub- 
routine’s return instruction, it is optional whether or not to code a return string on the exit statement. 
In the preceding example, the exit instruction passed a return code of 0 to the environment. 


What if we place the code of subroutines prior to that of the main routine? Here we located the code of 
the subroutine prior to the driver: 


/* Shows why subroutines should FOLLOW the main routine */ 
subroutine_name: 
say 'Subroutine has been entered' 
return 0 
call subroutine_name 
af OYesi =" ORoULT 


then say 'No RESULT was returned' 
else say 'A RESULT was returned’ 


if symbol('RESULT') == 'VAR' 

then say 'A RESULT was returned' 
ali (Shyaulloyo dl ( IRIDISTO LAY )) Se abate 

then say 'No RESULT was returned’ 
exit 0 


Running this script displays just one line: 

Subroutine has been entered 
What happened was that Rexx starts at the top of the file and proceeds to interpret and execute the code, 
line by line. Since the subroutine is first in the file, it executes first. Its instruction return 0 caused exit 


from the program before we ever got to the main routine! Oops. Always place the code for any internal 
subroutines or functions after the main routine or driver. 
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We'll cover program structure in more detail later. For now, here are some basic rules of thumb: 


End each subroutine or function with the return instruction. 
Every function must have an operand on its return instruction. 
Subroutines may optionally have a result on their return instruction. 


Encode the exit instruction at the end of the code of the main routine or driver. 


Oocooo 


Place subroutines and functions after the main routine or driver. 


We saw that Rexx uninitializes special variable result when a called subroutine does not pass back a 
result string. If you ever need to uninitialized a Rexx variable yourself, code the drop instruction: 


drop my_variable 


This sets a variable you may have used back to its uninitialized state. It is now equal to its own name in 
all uppercase. 


You can drop multiple variables in one instruction: 


drop my_variable_1 my_variable_2 my_variable_ 3 


Passing Parameters into a Script from the 
Command Line 


Passing data into a script is important because this provides programs with flexibility. For example, a 
script that processes a file can retrieve the name of the file to process from the user. You can pass data 
elements into scripts by coding them on the same command line by which you run the script. Let’s 
explore how this is accomplished. 


Data passed into a script when it is invoked are called command-line arguments or input parameters. To 
invoke a Rexx script and pass it command-line arguments or parameters, enter something like this: 


c:\Regina\pgms> script_name parameter_l 2 parameter_3 


The script reads these three input strings parameter_1, 2,and parameter_3 with the arg instruction. 
arg automatically translates the input parms to uppercase. It is the equivalent of the instruction parse 
upper arg. If no uppercase translation is desired, use parse arg. Remember that a period following 
either of these instructions discards any more variables than are encoded on the arg or parse arg 
instruction. This example discards any arguments beyond the third one, if any are entered: 


Bae; aliayeyube_ iL alioyoyoije % Glinjeyhe_ 3), /* read 3 arguments, translate to capitals ef, 
Here is the same example coded with the parse arg instruction: 


parse arg input_1 input_2 input_3 . /* read 3 arguments, no upper translation */ 
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By default, the arg and parse arg instructions splice the input parameters into pieces based on their 
separation by one or more intervening spaces. If you ran the program like this: 


c:\Regina\pgms> script_name parameter_l 2 parameter = 
You’d want to code this statement in the script to pick up the input arguments: 
parse arg input_l input_2 input_3 input_4 


The resulting variable values would be: 


input_l = parameter_1 
TNPURA2) “= 2 

input_3 = parameter 
input_4 = _3 


As per the basic rules of parsing, encoding too many input parameters puts all the overflow either into 
the placeholder variable (the period) or into the last specified input variable on the parse arg instruction. 


Entering too few input parameters to match the parse arg statement means that the extra variables on 


the parse arg will be set to uninitialized. As always, an uninitialized variable is equal to its own name 
in uppercase. 


Passing Parameters into Subroutines and 
Functions 


Say that our sample script needs to run a subroutine or function, passing it the same three input parame- 
ters. Code the subroutine or function call as: 


Geli Siolloy seloyblieskiaver aliayoybie: AL, Gliayowtie A,  aliavoybhe_ 3} 


Code a comma between each of the parameters in the cal1 instruction. The string (if any) sent back 
from the ca11 will be available in the special variable named result. 


Code a function ca11 just like the cal1 to the previous subroutine. Or encode it wherever you would an 
expression, as illustrated earlier, in the form: 


ieeKSiblig_Sjciesiavs; ie Wha Vole aLoval iovetne\ ((Tinjoue il, skinyowie 2, aliajoywie_5))) 
Inside the function or subroutine, use either arg or parse arg to retrieve the arguments. The function 
or subroutine picking up the input parameters should encode commas that parallel those of the call in 
its arg or parse arg instruction: 

Ghctey stiayoone il, sialic 2%, shiajoyuiie_ 2) 


or 


(ORNS Eheey Gliahoyviic il, sliayoyohe 7, —stiayowtiie_ 5) 
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The period or placeholder variable is optional. Presumably, the subroutine or function knows how many 
input parameters to expect and does not need it. 


These examples illustrate the arg instruction retrieving the argument string passed to a script and splic- 
ing it apart into its individual pieces. There is also an arg built-in function. The arg function returns 
information about input arguments to the routine. For scripts called as functions or subroutines, the arg 


function either: 


Q Tells how many argument strings were passed in 
Q Tells whether a specific-numbered argument was supplied 


Q Supplies a specified argument 
Let’s look at a few examples. To learn how many arguments were passed in, code: 
number_of_arguments = arg() 
To retrieve a specific argument, say the third one, code: 
get_third_argument = arg(3) 
To see if the third argument exists (was passed or encoded in the call), write: 
if (arg(3) == '') then say 'No third argument was passed' 
or 
if arg(3,'0O') then say 'No third argument was passed' 
The first of the two sample lines show that an input argument read by an internal routine will be the null 
string if it is not supplied to the routine. This differs from a command-line input argument that is read 


but not supplied, which is set to uninitialized (its own name in uppercase). 


The second sample line shows one of the two options that can be used with the arg function: 


Q £ (Exists)— Returns 1 if the nth argument exists. Otherwise returns 0. 


Qo = o (Omitted) — Returns 1 if the nth argument was Omitted. Otherwise returns 0. 


The arg function only supplies this information for scripts that are called as functions or subroutines. For 
scripts invoked from the operating system’s command line, the arg function will always show only 0 or 
1 argument strings. In this respect Rexx scripts invoked as commands from the operating system behave 
differently than scripts invoked as internal routines (functions or subroutines). This is one of the very 
few Rexx inconsistencies you'll have to remember: the arg function tells how many arguments are 
passed into an internal routine, but applied to the command-line arguments coming into a script, it 
always returns either 0 or 1. 
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A Sample Program 


To see how parameters are passed into programs, and how code can be modularized, let’s look at a cou- 
ple sample programs. The first sample program consists of a brief script that reads information from the 
command line. This main routine or “driver” then turns around and calls a subroutine that performs the 
real work of the program. Then the driver displays the result from the subroutine on the user’s screen. 


Of course, the driver could actually be part of a larger application. For example, it might be a “service 
routine” shared among programs in the application. Whatever its use, the important principles to grasp 


are how code can be modularized and how information can be passed between modules. 


The first sample program tells whether parentheses in a string are balanced. A string is said to be bal- 
anced if: 


OQ Every left parenthesis has a corresponding closing right parenthesis 


Q = Noright parenthesis occurs in the string prior to a corresponding left parenthesis 


Here are some examples. These input strings meet the two criteria and so are considered balanced: 


These are unbalanced strings. Either the numbers of left and right parentheses are unequal, or a right 
parenthesis occurs prior to its corresponding left parenthesis: 


)alkjdsfk1 ( /* right paren occurs before its left paren */ 
((aklj1lkfd) /* 2 left parens, only 1 right paren eS 
if (substr(length(string,1,2)) /* 3 left parens, only 2 right parens * 7. 


The last example shows that a script like this could be useful as a syntax-checker, or as a module in a 
language interpreter. You can actually use it to verify that your scripts possess properly encoded, bal- 
anced sets of parentheses. 


To run the program, enter the string to verify as a command-line argument. Results appear on the next 
line: 


C:\Regina\pgms> call_bal.rexx if (substr(length(string,1,2)) 
Parentheses are NOT balanced 


Try again, this time adding one last right parenthesis to the input string: 


C:\Regina\pgms> call_bal.rexx if (substr(length(string,1,2))) 
Parentheses are balanced! 


Here’s the code for the caller. All it does is read the user’s command-line input parameter and pass that 


character string to a function named balanced_parens that does the work. The function 
balanced_parens may be either internal or external —no change is required to its coding regardless of 
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where you place it. (However, you must be sure the operating system knows where to locate external 
functions. This often requires setting an environmental variable or the operating system’s search path for 


called routines. We'll discuss this in detail later.) 


/* CALL BAL: 


/* 
is Determines if the parentheses in a string are balanced. 
Bude; Sieiciliavey /* the string to inspect 
if balanced_parens(string) = 'Y' then /* get answer from function 
say ‘Parentheses are balanced!' /* write GOOD message ..or.. 
else 
say ‘Parentheses are NOT balanced' /* write INVALID message 
exit 0 


yf 
/k 
i 
aa 


ae 
a 


ey 


Here’s the internal or external function that figures out if the parentheses are balanced. The algorithm 
keeps track of the parentheses simply by adding 1 to a counter for any left parenthesis it encounters, and 
subtracting 1 from that counter for any right parenthesis it reads. A final counter (ctr) equal to 0 means 
the parentheses are balanced — that there are an equal number of left and right parentheses in the input 
string. If at any time the counter goes negative, this indicates that a right parenthesis was found prior to 
any possible matching left parenthesis. This represents another case in which the input string is invalid. 


/* BALANCED PARENS: 


/* 

fe Returns Y if parentheses in input string are balanced, 

if N if they are not balanced. 

balanced_parens: 

Bieey Silei@ieley /* the string to inspect 

ctr = 0 /* identifies right paren BEFORE a left one 
Wweallliie| = il 

endstring = length(string) /* get length of input string 


do j=1 to endstring while (valid) 


Glaize S pquloysteie ((Sterestine;,, 5) JL) /* inspect each character 
a char So.) hen hr = cere ot 
enone sa MS Bere gir eee e 5. iy 
shiz (ieie < (0) then valid = 0 
end 


aie Chee = © ielaein ssi Ty" 
else return 'N' 


Be 
ah 
ve 
Bl 


a 


ay 


Gf 


iif 


Another way to code this problem is for the subroutine to return 1 for a string with balanced parenthe- 


ses, and 0 if they are unbalanced. Then you could code this in the caller: 


if balanced_parens(string) then 

say ‘Parentheses are balanced!' 
else 

say ‘Parentheses are NOT balanced' 
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This allows coding the function as an operatorless condition test in a manner popular in programming in 
languages like C, C++, or C#. But remember that the expression in an if instruction must evaluate to 1 
(TRUE) or 0 (FALSE) in Rexx, so the function must return one of these two values. A nonzero, positive 
integer other than 1 will not work in Rexx, unlike languages in the C family. A positive value other than 
1 results in a syntax error in Rexx (we note, though, that there are a few Rexx interpreters that are 
extended to allow safe coding of operatorless condition tests). 


Coding operatorless condition tests also runs counter to the general principle that a function or subrou- 
tine returns 0 for success and 1 for failure. Wouldn’t balanced parentheses be considered “success”? This 
coding works fine but contravenes the informal coding convention. 


The Function Search Order 


Given that Rexx supports built-in functions, internal functions, and external functions, an important 
issue is how Rexx locates functions referred to by scripts. For example, if you write an internal function 
with the same name as a built-in function, it is vital to understand which of the two functions Rexx 
invokes when some other routine refers to that function name. 


This issue is common to many programming languages and is called the function search order. In Rexx the 
function search order is: 


a Ee Internal function — The label exists in the current script file. 
2. Built-in function — Rexx sees if the function is one of its own built-in functions. 


3. External function — Rexx seeks an external function with the name. It may be written in Rexx or 
any language conforming to the system-dependent interface that Rexx uses to invoke it and 
pass the parameter(s). 


Where Rexx looks for external functions is operating-system-dependent. You can normally place exter- 
nal functions in the same directory as the caller and Rexx will find them. On many platforms, you must 
set an environmental variable or a search path parameter to tell the operating system where to look for 
external functions and subroutines. 


The function search order means that you could code an internal function with the same name as a Rexx 
built-in function and Rexx will use your function. You can thus replace, or override, Rexx’s built-in 
functions. 


If you want to avoid this, code the function reference as an uppercase string in quotation marks. The 
quotation marks mean Rexx skips Step 1 and only looks for built-in or external functions. Uppercase is 


important because built-in functions have uppercase names. 


With this knowledge, you can override Rexx functions with your own, while still invoking the built-in 
functions when you like. You can manage Rexx’s search order to get the best of both worlds. 
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Recursion 


A recursive function or routine is one that calls itself. Any recursive function could be coded in traditional 
nonrecursive fashion (or iteratively), but sometimes recursion offers a better problem solution. Not all 
programming languages support recursion; Rexx does. 


Since a recursive function invokes itself, there must be some end test by which the routine knows to stop 
recursing (invoking itself). If there is no such end test, the program recurses forever, and you have effec- 


tively coded an “endless loop!” 


Figure 8-2 pictorially represents recursion. 


How Recursion Works 


End Test 
Fufilled ? 


v 
Figure 8-2 


This sample recursive function reverses the characters within a given string —just like Rexx’s reverse 
built-in function. If you feed it the character string abc, it returns the string cba. 


The function calls itself to process each character in the input string and finds its “end test” when there 
are no more characters left in the string to process. Each time the function is entered, it returns the last 
character in the string and recurses to process the remaining string. 


/* REVERSE: Sif 
ifs Sh 
fe Recursive routine that reverses the characters in a string. a] 


reverse: procedure 
parse arg string /* read the string to reverse Sh 


Gir @ieieiialey SS YY /* here's the 'end recursion! condition oe, 
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then return '' 
else 
return substr(string,length(string),1) || , 
reverse (substr(string,1,length(string) -1) ) 


The reverse function uses the strictly equal operator ( == ). This is required because the regular “equals” 
operator pads item with blanks for comparisons, something that might not work in this function. The 
line that uses the strictly equal operator compares the input string to the null string, the string that con- 
tains no characters, represented by two back-to-back quotation marks ( '' ). This is the “end test” that 
tells the function to return, because it has processed all the characters in the original input string: 


Livstraing as" /* here's the 'end recursion' condition Lay 
then return '' 


The last two lines of the function show how to continue a statement across lines. Just code a comma (, ) 
and the return instruction’s expression spans into the next line. The comma is Rexx’s line continuation 
character. Code it at any natural breakpoint in the statement. Between parts of a statement is fine; within 


the middle of a character string literal would not work. This is valid: 


say ‘Hi ' : 
‘there! ' /* valid line continuation */ 


But this will fail with a syntax error, because the line continuation character appears in the middle of a 
quoted literal: 


say ‘Hi r 
there!' /* invalid line continuation, syntax error! */ 


Of course, the trick to this program to reverse character strings is this one, heavily nested line of code: 


return substr(string,length(string),1) || , 
reverse (substr(string,1,length(string) -1) ) 


The first portion of this statement always returns the last character in the substring being inspected: 
substr(string, length(string) ,1) 
An alternative way to code this is to use the right function, as in: right (string, 1). 
The second portion of the return statement recursively invokes the reverse function with the remain- 
ing substring to process. This is the original string passed in, minus the last character (which was just 
returned to the caller): 
reverse (substr(string,1,length(string) -1) ) 
To test a program like this, you need a simple driver or some “scaffolding” to initially invoke the new 


reverse function. Fortunately, the rapid development that Rexx enables makes this easy. Coding a 
driver to test the new reverse function is as simple as coding these few lines: 
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f= Simple "test driver" for the REVERSE function. a 


parse arg string . 


call reverse string /* call the REVERSE function ey, 
say 'The reversed string is:' result /* display the RESULT uf 
exit 0 


This code reads an input string from the user as an input command-line argument. It invokes the recur- 
sive, user-written reverse function and displays the result to the user. 


The say instruction in this code uses the special variable result to display the string returned from the 
reverse function on the user’s display screen: 


say 'The reversed string is:' result /* display the RESULT * if 


Our new reverse function has the same name and functionality as Rexx’s own, built-in reverse func- 
tion. Which will Rexx run? The function search order tells us. Assuming that the reverse function we 
coded is internal, Rexx invokes it, because user-written internal functions have priority over Rexx’s 
built-in functions in the function search order. If we want to use the built-in Rexx reverse function 
instead, we would code the name of the function in quoted uppercase letters. These two lines show the 
difference. This line invokes our own reverse function: 


call reverse string /* call our own REVERSE function wed 


In contrast, this statement runs Rexx’s built-in reverse function: 


call 'REVERSE' string /* use the Rexx built-in REVERSE function */ 


More on Scoping 


Developers place internal functions and subroutines after the main routine or driver in the script file. 
Here’s the basic prototype for script structure where the main script has subroutines and/or functions: 


main_routine: 


call my_function parameter_in 
call my_subroutine parameter_in 
exit 0 


my_function: procedure 
return result_string 


my_subroutine: procedure 
return 


Rexx does not require any label for the main routine or driving portion of the script, but we recommend 
it as a good programming practice. A Rexx label is simply a name terminated with a colon. In this script, 
we've identified the driver routine with the label main_routine: . This is good programming practice 
in very large programs because it may not always be obvious where the logic of the driver really starts. 
In other words, if there is a long list of variable declarations or lots of initialization at the top of a script, 
identifying where the “real” work of the main routine begins can sometimes be helpful. 
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A key issue in any large program is scoping — which of the caller’s variables are available for reading 
and/or updating by a called function or subroutine. In Rexx, the procedure instruction is the basic tool 
for managing variable scoping. procedure is encoded as the first instruction following the label in any 
function or subroutine for which it’s used. 


The procedure instruction protects all existing variables by making them unknown to any instructions 
that follow. It ensures that the subroutine or function for which it is encoded cannot access or change 
any of its caller’s variables. For example, in the reverse function, we coded this first line: 


reverse: procedure 
This means the reverse routine cannot read or update any variables from its caller — they are protected 
by the procedure instruction. This is a good start on proper modularity, but of course, we need a way to 
give the reverse routine access to those variables it does need to access. One approach is to pass them in 


as arguments or parameters, as we did in calling the reverse function, with this general structure: 


calling routine: 


parse arg parm_l parm2 . /* get command-line arguments from the user ing 
call function_name parm_1, parm_2 /* pass them to the internal routine */ 
say 'The function result is:' result /* retrieve RESULT from the routine o/ 
exit 0 


function_name: procedure 
parse arg parm_l, parm_2 /* get parameters from the caller ay 
return result_string /* return result to caller ff 


The procedure instruction protects all variables from the function or subroutine. This function cannot 
even read any of the caller’s variables. It knows only about those passed in as input parameters, parm_1 
and parm_2. It can read the variables that are passed in via arg, and it sends back one result string via 
the return instruction. It cannot change the value of any of the arg variables in the caller. These are passed in 
on a read-only basis to the function or subroutine, which can only pass back one string value by a 
return instruction. 


Another approach to passing data items between routines is to specify exposed variables on the proce- 
dure instruction. These variables are available for both reading and updating by the invoked routine: 


function_name: procedure expose variable_1 array_element.1 
In this case the function or subroutine can read and manipulate the variable variable_1 and the spe- 
cific array element array_element .1. The function or subroutine has full read and update access to 


these two expose 'd variables. 


With this knowledge, here’s an alternative way to structure the relationship between caller and called 
routine: 


calling_routine: 


parse arg parm_l parm_2 . /* get command-line arguments from the user Las 
call subroutine_name /* call the subroutine (or function) its 
say 'The function result is:' result /* retrieve RESULT from the routine */ 


say 'The changed variables are:' parm_1 parm_2 /* see if variables changed */ 
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exit 0 


subroutine_name: procedure expose parm_l parm_2 


/* refer to and update the variables parm_l and parm_2 as desired fy] 
parm_1 = 'New value set by Sub. ' 

parm_2 = '2nd new value set by Sub.' 

return result_string /* return result to caller “af 


The output from this code demonstrates that the subroutine changed the values the caller originally set 
for variables parm_1 and parm_2: 


The function result is: RESULT_STRING 
The changed variables are: New value set by Sub. 2nd new value set by Sub. 


The procedure instruction limits variable access in the called function or subroutine. Only those vari- 
ables specifically named on the procedure expose instruction will be available to the called routine. 


To summarize, there are two basic approaches to making caller variables available to the called routine. 
Either pass them in as input arguments, or code the procedure expose instruction followed by a vari- 
able list. The called function or subroutine cannot change input arguments — these are read-only values 
passed by the caller. In contrast, any variables listed on the procedure expose statement can be both 
read and updated by the called function or subroutine. The calling routine will, of course, “see” those 
updated variable values. 


Two brief scripts illustrate these principles. This first demonstrates that the called routine is unable to 
change any variables owned by its caller because of the procedure instruction coded on the first line of 
the called routine: 


/* This code shows that a PROCEDURE instruction (without an EXPOSE ey 
/* keyword) prevents a called function or subroutine from reading zai 
/* or updating any of the caller's variables. ay 
[2 my 
/* Argument-passing and the ARG instruction gives the called ey 
/* function or subroutine READ-ONLY access to parameters. ey 


calling_routine: 


variable_1 = 'main' 
variable_2 = 'main' 


call my_subrtn(variable_1) 


say 'main:' variable_1 variable_2 /* NOT changed by my_subrtn */ 
exit 0 


my_subrtn: procedure 


arg variable_1 /* provides read-only access */ 
say 'my_subrtn:' variable_1 variable_2 /* variable_2 is not set Pee 
variable_1 = 'my_subrtn' 
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variable_2 = 'my_subrtn' 


say 'my_subrtn:' variable_1 variable_2 
return 


This is the output from this script: 


my_subrtn: MAIN VARIABLE_2 
my_subrtn: my_subrtn my_subrtn 
main: main main 


The first output line shows that the subroutine was passed a value for variable_1, but variable_2 
was not passed in to it. The subroutine accessed the single value passed in to it by its arg instruction. 
The second line of the output shows that the called routine locally changed the values of variables 
variable_1 and variable_2 to the string value my_subrtn— but the last line shows that these assign- 
ments did not affect the variables of the same names in the caller. The subroutine could not change the 
caller’s values for these two variables. This is so because the procedure instruction was encoded on the 
subroutine but it did not list any variables as expose 'd. 


This next script is similar but illustrates coding the procedure expose instruction to allow a called rou- 
tine to manipulate the enumerated variables of its caller: 


/* This code shows that ONLY those variables listed after EXPOSE sy] 
/* may be read and updated by the called function or subroutine. maf 


calling_routine: 


variable_1 = igiyerabia" 

array_name. = 'main' /* The called routine can update i 
array_element.1 = 'main' /* array elements if desired. /) 
not_exposed = “mad n 

call my_subrtn /* don't pass parms, use EXPOSE */ 
say ‘main:' variable_1 array_name.4 array_element.1 not_exposed 
exit 0 


my_subrtn: procedure expose variable_1 array_name. array_element.1 


say 'my_subrtn:' variable_ 1 array_name.4 array_element.1 not_exposed 


variable_1 = Tih SiulloyeicialY /* These will be set back in the */ 
array_name.4 = 'my_subrtn' /* caller, since they were if 
array_element.1 = 'my_subrtn' /* on the PROCEDURE EXPOSE. if} 


say 'my_subrtn:' variable_1 array_name.4 array_element.1 not_exposed 
return 


The output from this script is: 
my_subrtn: main main main NOT_EXPOSED 


my_subrtn: my_subrtn my_subrtn my_subrtn NOT_EXPOSED 
main: my_subrtn my_subrtn my_subrtn main 
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The first output line shows that the subroutine accessed the three caller’s variables listed on the proce- 
dure expose instruction. This shows the three variables set to the string value main. The fourth vari- 
able shows up as NOT_EXPOSED because the subroutine did not list it in its procedure expose 
statement and cannot access it. 


The second output line shows that the subroutine set the value of the three variables it can change to the 
value my_subrtn. This line was displayed from within the subroutine. 


The last output line confirms that the three variables set by the subroutine were successfully passed back 
to and picked up by the caller. Since only three variables were passed to the subroutine, the fourth vari- 
able, originally set to the string value main by the caller, still retains that same value. 


What about external routines? Invoke them just like internal routines, but the Rexx interpreter always 
assigns them an implicit procedure instruction so that all the caller’s variables are hidden. You cannot 
code a procedure expose instruction at the start of the external routine. Pass information into the exter- 
nal routine through input arguments. Code a return instruction to return a string from the external rou- 
tine. Or, you can code an exit instruction with a return value. 


For internal routines, if you code them without the procedure instruction, all the caller’s variables are 
available to the internal routines. All the caller’s variables are effectively global variables. Global variables 
are values that can be changed from any internal routine. Global variables present an alternative to pass- 
ing updatable values into subroutines and functions via the procedure expose instruction. 


Developers sometimes like using global variables because coding can be faster and more convenient. 
One does not have to take the time to consider and encode the correct procedure expose instructions. 
But global variables are not considered a good programming practice because they violate one of the key 
principles of modularity — that variables are explicitly assigned for use in specific modules. So that you 
recognize this scenario when you have to maintain someone else’s code, here is the general script structure 
for using global variables: 


/* Tllustrate that Global Variables are accessible to ALL internal routines */ 
main_routine: 

a = 'this is a global variable!' 

call my_subroutine 

say 'Prove subroutine changed the value:' a 

feedback = my_function() 

say 'Prove the function changed the value:' a 

exit 0 


my_subroutine: 
/* all variables from MAIN_ROUTINE are available to this routine for 
read and or update */ 
a = 'this setting will be seen by the caller' 
return 


my_function: 
/* all variables from MAIN_ROUTINE are available to this routine for read 
and or update */ 
a = 'this new value will be seen by the caller' 
return 0 
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The program output shows that the two internal routines are able to change any variable values in the 
calling routine at will. The two output lines are displayed by the driver. The latter portion of each line 
shows that the subroutine and function were able to change the value of the global variable named a: 


Prove subroutine changed the value: this setting will be seen by the caller 
Prove the function changed the value: this new value will be seen by the caller 


All you have to do to use global variables is neglect to code the procedure instruction on subroutines 
on functions. This is convenient for the developer. But in large programs, it can be extremely difficult to 
track all the places in which variables are altered. Side effects are a real possibility, unexpected problems 
resulting from maintenance to code that does not follow the principles of structured programming and 
modularity. 


To this point, we’ve discussed several ways to pass variables into and back from functions and subrou- 
tines. This chart summarizes the ways to pass information to and from called internal subroutines and 


functions: 
Technique Internal Routine’s Variable Access Comments 
Pass arguments as Read-only access to the passed Standard for passing in 
input parameters variables only read-only values 
procedure expose Read and update access to expose’d Standard for updating 
variables only some variables while 
hiding others 
procedure Hides all the caller’s variables Standard for hiding all 
(without expose) caller’s variables 
Global variables Read and update access to all the Violates principles of 
caller’s variables modularity; works fine 
but not recommended 
return expression Send back one string to the caller Standard for passing 
back one item of 
information 


Whichever approach(es) you use, consistency is a virtue. This is especially the case for larger or more 
complex programming applications. 


Another Sample Program 


This next sample script illustrates a couple of the different ways to pass information into subroutines. 
One data element is passed in as an input argument to the routine, while the other data item is passed in 
via the procedure expose instruction. 
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This program searches a string and returns the rightmost occurrence of a specified character. It is a recur- 
sive function that duplicates functionality found in the built-in lastpos function. It shows how to pass 
data items to a called internal routine as input parameters and how to use the procedure expose 
instruction to pass in updateable items. 


fo jROUINID ADCS Bi 
es BU: 
fe Returns the rightmost position of a byte within a string. 20], 


rindex: procedure expose search_byte 
parse arg string /* read the string */ 
say string search_byte /* show recursive trace for fun */ 


length (string) /* determine string length ee 
length(string) -1 /* determined string length - 1 */ 


string_length 
string_length_1 


iE Sieieiiayey Sa" /* here's the 'end recursion' condition aif 
then return 0 
else do 
if substr(string,string_length,1) == search_byte then 
return string_length 
else 


new_string_to_search = substr(string,1,string_length_1) 
return rindex(new_string_to_search) 
end 


This script requires two inputs: a character string to inspect for the rightmost occurrence of a character, 
and the character or “search byte” to look for. 


When invoked, the function looks to see if the last character in the string to search is the search character. 
If yes, it returns that position: 


if substr(string,string_length,1) == search_byte then 
return string_length 


If the search character is not found, the routine calls itself with the remaining characters to search as the 
new string to search: 


new_string_to_search = substr(string,1,string_length_1) 
return rindex(new_string_to_search) 


The end condition for recursion occurs when either the character has been found, or there are no more 
characters in the original string to search. 
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The function requires two pieces of input information: the string to inspect, and the character to find 
within that string. It reads the string to inspect as an input parameter, from the parse arg instruction: 


parse arg string /* read the string */ 
The first line in the function gives the program access to the character to locate in the string: 
rindex: procedure expose search_byte 


The two pieces of information are coming into this program in two different ways. In a way this makes 
sense, because the character to locate never changes (it is a global constant), but the string that the func- 
tion searches is reduced by one character in each recursive invocation of this function. While this pro- 
gram works fine, it suggests that passing in information through different mechanisms could be 
confusing. This is especially the case when a large number of variables are involved. 


For large programs, consistency in parameter passing is beneficial. Large programs become complicated 
when programmers mix internal routines that have procedure expose instructions with routines that 
do not include this instruction. Rexx allows this but we do not recommend it. Consistency underlies 
readable, maintainable code. Coding a procedure or procedure expose instruction for every internal 
routine conforms to best programming practice. 


Summary 


This chapter describes the basic mechanisms by which Rexx scripts are modularized. Modularity is a 
fundamental means by which large programs are rendered readable, reliable, and maintainable. 
Modularity means breaking up large, complex tasks into a series of smaller, discrete modules. The inter- 
faces between modules (the variables passed between them) should be well defined and controlled to 
reduce complexity and error. 


We covered the various ways to pass information into internal routines and how to pass information 
from those routines back to the caller. These included passing data elements as input arguments, the 
procedure instruction and its expose keyword, and using global variables. We discussed some of the 
advantages and disadvantages of the methods, and offered sample scripts to illustrate each approach. 
The first sample script read a command-line argument from its environment and passed this string as an 
input argument to its subroutine. The subroutine passed a single value back up to its caller by using the 
return instruction. The last sample script was recursive. It invoked itself as a subroutine and illustrated 
how the procedure expose instruction could be used to pass values in recursive code. This latter 
example also suggests that consistently encoding the procedure expose instruction on every routine is 
a good approach for large programming projects. This consistent approach reduces errors, especially 
those that might otherwise result from maintenance on large programs that use global variables. 
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Test Your Understanding 


1. 
2. 


3. 


4. 


Why is modularity important? How does Rexx support it? 


What's the difference between a subroutine and function? When should you use one versus the 
other? 


What is the difference between internal and external subroutines? How is the procedure 
instruction used differently for each? 


What is the function search order, and how do you override it? 


What are the basic ways in which information is passed to/from a caller and its internal 
routines? 


What happens if you code a procedure instruction without an expose keyword? What’s the 
difference between parameters passed in to an internal subroutine and read by the arg instruc- 
tion versus those that are exposed by the procedure expose instruction? 


In condition testing, TRUE is 1 and FALSE is 0. What happens when you write an if instruction 
with a condition that evaluates to some nonzero integer other than 1? 
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Overview 


Where scripting languages really shine is in the fast, easy program development they make possi- 
ble. Their interpretive nature leads to built-in tools that make debugging much easier. 


Rexx offers tremendous power in its tracing facility. Implemented by its trace instruction, the 
trace built-in function, and a variety of supporting functions and features, the tracing facility 
enables you to quickly and easily step through your code as it executes. Rexx will display the 
results of expression evaluation, variable contents, lines of code as they are translated and run, 
program position . . . indeed, almost anything going on in the script. You can single-step through 
your code, allowing Rexx to pause before or after each line of the source code. You can execute 
Rexx statements while your script is paused, for example, to inspect or alter the values of vari- 
ables. At anytime, you can easily turn tracing on, off or to some different level of granularity. The 
trace facility makes debugging even the most complex logic a simple affair. This chapter describes 
the trace facility and how to use it in detail. 


The say Instruction 


Figure 9-1 shows three basic approaches to debugging Rexx scripts. 
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Debugging Options 


TRACE Instruction 


TaSStCHinoue Interactive TRACE 


SAY Instruction 


+ Quick, informal + Batch script trace + Resolves challenging problems 
+ Great for simple problems + Can set trace level based on + Allows real-time code tests 
+ Requires changing code user input + Programmer-directed 
(adding SAY instructions) + Many trace settings available interaction resolves problems 
+ Good for "paper analysis" of + Quick & easy, but powerful 
a problem 
Figure 9-1 


Let’s start with the most basic approach to debugging. This simple technique temporarily adds extra say 
statements to the code to display variable values. Rexx makes this easy because of the manner in which 
the say instruction automatically concatenates expressions. 


Take as an example the rindex program in the previous chapter. Recall that this script returns the right- 
most position of a given character within a string. When first written and run, this program displayed 
this output as its answer regardless of the input search string: 


The rightmost byte position is: 0 


Clearly, something was wrong. Simply adding one line with a say instruction at the start of the routine 
made the problem evident: 


say string search_byte 
When the program ran with this debugging aid, here were the results from the say instruction: 


D:\Regina\pgms>regina rindex.rexx abc b 
abc SEARCH_BYTE 
ab SEARCH_BYTE 
a SEARCH_BYTE 

SEARCH_BYTE 
The rightmost byte position is: 0 


The value of the byte to search for, entered in the command line as the character b, was not being picked 
up by the routine. Instead of the character string SEARCH_BYTE, we should have seen the input parame- 
ter string b repeated on each output line. 


134 


Debugging and the Trace Facility 


After adding the expose search_byte keywords to the procedure instruction, the program result 
was what we would expect: 


D:\Regina\hf>regina rindex.rexx abc b 
abc b 


ab b 
The rightmost byte position is: 2 


So, the problem was improperly passing a value to a subroutine. The say instruction is ideal for this 
quick debugging because it automatically concatenates operands for instant output. 


The trace Instruction 


While quickly adding a say instruction to display some variable values or to trace execution of a pro- 
gram works well, many debugging situations require more powerful techniques. The trace instruction 
provides information at any level of detail and fulfills the need for both power and flexibility. 

Typical encoding of the trace instruction is simple: 


trace [setting] 


where the setting is any one of the following values: 


Trace Setting Name Function 
A All Traces all clauses before execution. 
Cc Commands Traces all host commands before execution. This allows you 


to ensure that the command you're sending to the operating 
system (or other external environment) is correct. It’s espe- 
cially useful if the script dynamically creates or prepares 
those commands. If the command causes error or failure, its 
return code also appears. 


E Error Traces any host command that results in error or failure 
after it executes. 


F Failure Traces any host command that fails along with its return code. 


I Intermediates Traces all clauses before their execution, including interme- 
diate results during expression evaluation. 


L Labels Traces labels as execution runs through them. 

N Normal Nothing is traced except that host commands that fail are 
traced after their execution, along with their return codes. 

O Off Nothing is traced. 

R Results Traces clauses before their execution along with the final 


results of expression evaluation. Displays values assigned 
from pull, arg,and parse instructions. 
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When is each of these trace settings most useful? This setting is the default: 
trace n 


It traces nothing except failed host commands. It is minimally intrusive and is a good default value for 
working programs. 


trace r is recommended for general-purpose debugging. It traces clauses before they execute and the 
final results of expression evaluation. It also shows when values change by pull, arg, and parse 
instructions. When you need to run a trace, trace r is usually where to start. If problems persist, trace 
i gives fuller detail. It gives everything that trace r does plus includes the details of intermediate 
expression evaluation. 


If you’re unsure about what routines are being entered and executed, try trace 1. This lists all labels pro- 
gram execution passes through and shows which internal routines are entered and run. It’s an easy way 
to determine if a subroutine or function you coded is being entered and executed at the proper time. 


If the problem is that commands to the host operating system are failing, trace c will trace all host 
commands before their execution. For any that cause an error or fail, it also shows the return code from 
the command. trace eand trace f are weaker forms of trace c that trace host command errors and 
failures, respectively. We recommend trace cas simplest and most complete if problems are occurring 
in executing host commands. 


Where does one code the trace instruction? Anywhere in the code you like. A simple approach is to 
code one trace instruction near the very top of the program. It can be set to trace n (the default), and 
then changed to any other value desired during debugging. Just remember to set it back to trace n 
once debugging is completed. This approach is simple and consistent but does require changing the 
code to change the trace setting. 


Another approach is to code a trace instruction at the start of the program, then have the program read 
the trace option dynamically, from the outside environment. For example, the program could prompt 
the user to enter the trace setting. Or, it might accept it as an optionally coded command-line argument 
to the program. Or, the program could even read this information from a “control file” or configuration 
file that dictates program behavior. For example, under Windows you could use an . ini file to config- 
ure tracing. Under Unix or Linux, you might use a config file. 


However you set the trace option, you can code as many trace instructions as you like in a single script. 
These can flip the trace off or on, or set different levels of trace detail appropriate to different routines or 
sections of code. Scripts can dynamically control their trace levels themselves. 
The trace instruction accepts the setting as a constant (a string literal or symbol), or it can be encoded 
as a variable or even as an expression to evaluate with the optional value keyword. These are the two 
basic formats for the trace instruction: 

trace [setting] 


or 


trace value [expression] 
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Here’s how to set the trace level by using a variable: 


trace_variable = 'r' 
trace value trace_variable 


The trace instruction can be coded multiple times in a program, and you can turn tracing on or off (by 
trace o) as desired. This is mainly of use in very large programs, where you really want to zero in only 
on problems occurring in a newly added routine or better understand the effects of newly changed or 
problem code. 


Let’s look at some examples. Here is the output that results from placing a trace r instruction in the 
rindex function immediately after the 1st line of code (after the procedure instruction): 


D:\Regina\hf>regina rindex.rexx ab b 


16 *-* parse arg string /* vead the string “eh 
>>> "ab" 

18 *-* say string search_byte /* show recursive trace for fun */ 
>V> Ucio 
>V> jet 

ab b 

20 *-* string_length = length(string) /* determine string length a 
>V> "ab" 

Mi se Sereabavepe MSinve jel 1k = Assays (Sicrentiate)) il jf <Chsjeevautinyercl Sisiestiays; Meteveiel, = il // 
>V> "ab" 

23 was ale Gieiediag, Sa 1! /* Here's the 'end recursion' condition. */ 
>V> Nels)" 

25 = Clo) 

26 *-* if substr(string,string_length,1) == search_byte then 
>V> Neus)" 
>V> nM 
>V> gyi 

Bi P= jeseibliein Siexaiare;_ Ik~eraye elon 
>V> Ween 


The rightmost byte position is: 2 


With trace r, line 16 shows how the parse arg instruction assigns values on entry to this function. 
Every expression appears prior to execution, then the result to which it evaluates. The listing shows that 
this trace setting resolves most debugging needs handily. 


If you continue to have trouble, change the trace r to trace i and see the intermediate results of 
expression evaluation as well. This makes for longer, more complex output that you'll want to see only if 
you're having real trouble in debugging. 


Let’s take out the trace instruction in the rindex function, and instead place a single trace 1 at the 
top of the driver program. This traces all the labels the script execution passes. In this case, it verifies that 


the driver routine invokes the rindex function: 


D:\Regina\hf>regina rindex abc a 
14 *-* rindex: 


137 


Chapter 9 


The trace 1 label trace is great for automatically displaying which internal routines are called during a 
large program. It gives more concise output than trace r when you're just worried about which rou- 
tines are being called and when. Use it for those situations in which you're not sure if a routine is being 
called or if it is not clear how often a routine is invoked. 


To debug scripts that issue operating system commands, trace c isa good choice. It traces host com- 
mands prior to execution, and it gives the return code from any command that results in error or failure. 
To check its output, here’s a simple test program that we ran under Windows. This program intends to 
issue the dir (list directory) command to Windows, but the command was misspelled as dri: 


/* Script to test tracing output for a failed operating system command */ 
trace c 
Nheat | /* Mistake - this should have been coded as: dir yf] 


Running this script gives this output: 


3} xe 'dri' 
'dri' is not recognized as an internal or external command, 
operable program or batch file. 
+++ RC=1 +++ 


The output clearly shows the problem with the operating system command that was issued. 


trace e shows any host command that results in error or failure and its return code, while trace f 
shows host commands that result in failure and their return code. We recommend trace c because it 
always lists the command that caused the problem. 


Reading Trace Output 


Trace output is designed to be easy to read. The preceding example shows that lines are numbered for 
easy identification. Right after the line number is the identifier *- * and the source line of code from the 
program. The symbol >>> identifies the value assigned to variables as a result of parsing or a value 
returned from an internal routine. For example, look at these two lines from the trace of the preceding 
rindex function: 


16 *-* parse arg string /* read the string sa 
>>> "ab" 


The trace output on the second line shows that this string was assigned to the variable string asa 
result of the parse arg instruction. 


When the trace shows the contents of a variable, it precedes with this symbol >v>. These two statements 
show that the string sent back via the return instruction is “2”: 


27 *-* return string_length 
>V> 2" 


Notice how the trace is indented to convey more information. The strings displayed on the screen by the 
say instruction start on the left, while program statements and variable contents are indented. This 
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sample code is pretty linear, but where nesting is more involved, indentation makes the trace output 
much easier to follow. 


For many programs, just these simple rules are all that is required to interpret trace output. Here are the 
trace output identifiers you might encounter: 


Trace Output Identifier Meaning 
*_* A source line or clause 
+++ A trace message 
>>> The result of an expression (for trace r),a value assigned toa 


variable from parsing, or the string returned by an internal 
function or subroutine 


>.> Identifies a what is assigned to a placeholder(the period) dur- 
ing parsing 


These output prefixes appear only if trace intermediates (trace i) is in effect: 


Trace Output Identifier Meaning 
>V> Identifies variable contents 
>L> Identifies a literal string 
>F> The result of a function call 
>P> The result of a prefix operation 
>O> The result of an operation on two items 
>C> Contents of a compound (array) variable after substitution and 
before use 


The trace Function 


The trace instruction enables scripts to dynamically turn the trace facility off and on, and to specify the 
level of detail provided by the trace. In addition to the trace instruction, there is also a trace built-in 
function. The trace function returns the current value of the trace, and optionally sets the trace level to 
a new value. 
When coded without an input parameter, the trace function returns the current trace setting: 

say trace() /* display current trace setting */ 


An input argument can be coded to set the trace: 


current_trace = trace('0') /* turns the trace setting off Ey 
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The allowable values for the trace function are the exact same as those for the trace instruction. The 
following table lists the possible trace function values. Since these values are the same as those for the 
trace instruction, you can review the trace instruction table near the beginning of this chapter for a 
full explanation of each setting. This table lists the one-word meanings of the options for easy recall: 


Trace Setting Meaning 
All 


Commands 


Errors 


17m > 


Failure 


Intermediates 


il 


Labels 
Normal 
Off 


Results 


A O27 


When the trace function includes an operand, it returns the current trace setting; then it alters the 
trace level to the new setting. Look at these three instructions run in sequence: 


say trace() == N /* displays the default setting Reh 
say trace('C') == N /* returns current trace setting, then alters it */ 
say trace() == C /* displays the current trace setting Ai 


Interactive Tracing 


So far we have discussed the trace setting as if it is something one turns on or off (multiple times if 
desired). Then you read its output after the script executes. This is a “batch” approach to debugging. In 
fact, one of the biggest benefits of tracing is the potential to pause the script at desired points and per- 
form real-time operations, called interactive tracing. 


To start interactive tracing, code the trace instruction with a question mark ( ? ) preceding its argu- 
ment. For example, this statement starts interactive tracing for results: 


trace ?r /* turn on interactive tracing for Results */ 
Here’s another example. This statement turns interactive tracing on for commands: 
trace ?c /* turn on interactive Command trace */ 
The ? is a toggle switch. If tracing is off, this it turns on; if tracing is on, this turns it off. The first trace 


instruction or function you execute with ? encoded turns tracing on. The next one that executes with the 
question mark will turn it off. 
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When in interactive mode, the Rexx interpreter pauses after each statement or clause. Or, to be more pre- 
cise, the Rexx interpreter pauses after executing each statement and displays the next statement to exe- 
cute. At this point, you can perform any one of three actions listed in the following table: 


Your Action Result 

Press the <ENTER> key (also referred The interpreter continues until the next 
to as entering a null line) point at which it should pause. 

Enter an equals sign = The interpreter reexecutes the last 


clause. This allows you to “go back” one 
clause, make changes, and allow it to be 
rerun. For example, you could alter the 
value of a variable or change how an if 
instruction might be evaluated. 


Enter any Rexx clause or expression or statement Rexx immediately executes what you’ve 
entered. 


The last option listed in this table bears some explanation. When the interpreter pauses, you can enter 
any valid Rexx clause, expression, or statement. The interpreter then immediately executes what you’ve 
entered. This allows you to change the value of variables to see how the program will respond. For 
example, you could enter an executable statement like this to alter a variable’s value and see how this 
alters the script’s execution: 


my_variable = '123' 


As another example, you could enter statements to display the contents of an array. This would allow 
you to verify that the array contains what you think it should at that point in your program: 


do j = 1 to 5; say array_name.j ; end ; 


You can even enter a statement to change the level of detail in the trace output, or you can run any other 
valid Rexx statement. 


Interactive tracing lets you single-step through a script, inspecting and then running that code one clause 
at a time. You can inspect or change variables at will, see how code changes would affect execution, 


change various aspects of the environment, and alter the trace level itself. 


Settings for the trace instruction are saved and restored across internal routines. If you enter an internal 
routine of no interest, merely turn off the trace: 


trace o /* turn trace off */ 
The original trace setting will be restored when the caller is reentered. 
Trace options are one of the few places in which Rexx uses abbreviations. Normally, the language uses 
full words for enhanced readability. The reason the trace instruction is an exception is that interactive 


tracing allows terse input from the keyboard so that the developer does not have to type so much and 
can work with simple mnemonic abbreviations when debugging. 
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Sometimes during a trace, its useful to be able to “skip ahead” a number of clauses with the interactive 
trace temporarily turned off. To do this, code a negative number on the trace instruction. This tells the 
interpreter to skip tracing a certain number of clauses, and then to resume as before. For example, this 
statement skips tracing the next 50 clauses, after which tracing resumes: 


trace -50 


You can also code a positive number on the trace instruction to skip a specified number of interactive 
pauses. For example, this instruction skips the next five interactive pauses, then resumes tracing as 
before: 


trace 5 


Some Rexx implementations allow turning on the trace externally, so you do not have to alter your script 
to trace it. An example is mainframe Rexx, described in detail in Chapter 29. Mainframe Rexx under 
operating systems such as VM and OS permits immediate commands, which can alter the trace level from 
outside the script while the script executes. All standard Rexx interpreters support internally changing 
the trace through the trace instruction and trace function. 


Summary 


As an interpreted scripting language, Rexx offers superior debugging facilities. Chief among them is 
interactive tracing, by which you can dynamically inspect and even alter your script’s variables and its 
execution. 


In most cases a simple batch approach to turning on the trace quickly resolves any programming prob- 
lem. But when called for the full power of a completely interactive tracing facility is available. Using it, 
there are very few logic and programming errors you cannot quickly rectify. The trace facility is a big 
advantage of Rexx scripting versus programming in traditional compiled programming languages. 
Interacting tracing can dramatically reduce the time spent in debugging and resolving logic errors. 


Test Your Understanding 


1. What is the default setting for the trace instruction? What settings are recommended for: 
OQ General-purpose debugging 


QO Seeing which subroutines and internal functions are being entered and executed 


OQ Viewing intermediate results of all clauses 
2. Your script issues commands to the operating system, but they are failing. What do you do? 
3. How do you turn interactive tracing on? Off? 


4. How do you single-step through the code of a script as it executes? 


142 


16 


Errors and Condition 
Trapping 


Overview 


Full-featured programming languages require a mechanism through which programmers can 
catch, or trap, exceptions or errors. In Rexx, this is often referred to as exception handling or condition 


trapping. 


Rexx offers a simple, but serviceable, means for trapping exceptional conditions. When an exception 
occurs, control is transferred to a routine to address the error. After the error routine handles the 
condition, execution of the primary script can resume. 


This chapter explores Rexx’s exception-trapping mechanism and the way in which you can use it 
in scripts to identify, capture, and manage errors. First, we'll discuss the specific kinds of errors 
that Rexx can trap. We'll discuss how to set up, or enable, error trapping. Then we'll take a look at 
a program that illustrates the exception-trapping mechanism. We'll progressively improve this 
program to expand its error-trapping capabilities and demonstrate different approaches to manag- 
ing errors. We conclude by mentioning some of the limitations of exception conditions in standard 
Rexx, and how some Rexx interpreters extend beyond the ANSI standards to provide more gener- 
alized error trapping. 


Error Trapping 


When an error condition occurs, it is considered to be raised. Rexx interpreters that adhere to the 
TRL-2 standard allow the raising of six different error conditions, while the ANSI-1996 standard 
adds a seventh error condition. The table below lists all the error conditions: 
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Error Condition 


ERROR 
FAILURE 
HALT 


NOVALUE 


NOTREADY 


SYNTAX 
LOSTDIGITS 


Use 


Raised when a host command indicates an error upon return. 
Raised when a host command indicates failure. 


Raised by an external interrupt to a program. Example: the user 
presses Control-C (aka Ctrl-C). 


Raised when a variable that is to be used has not been assigned a 
value. The invalid variable reference could occur in an expression, in a 
parse template, or in a procedure or drop instruction. 


Raised by an input/output (I/O) error on a device unable to handle 
the I/O request. 


Raised by a syntax or runtime error in the script. 


Raised when an arithmetic operation would cause the loss of digits. 
Significant digits in the result exceed the number of significant digits 
currently set by numeric digits or the system default of nine signifi- 
cant digits. (This trap was added in the ANSI-1996 standard and may 
not be present in Rexx implementations that adhere to the earlier TRL-2 
standard.) 


How to Trap Errors 


The procedure to manually trap errors is simple. First, code either a signal or call statement in your 
script to identify the error you wish to intercept. This instruction can optionally specify the name of the 
routine to transfer control to when the error occurs. Second, code the routine to handle the error. Rexx 
transfers control to this trap routine based on the label encoded in the signal or call statement that 
refers to that error condition. 


If the signal or call statement does not the specify the name of the error routine to which to transfer 
control, by default Rexx transfers control to a routine with the same name as that of the error. For exam- 
ple, say you code: 


signal on novalue 


This statement enables the NOVALUE error condition without specifically naming the error routine to han- 
dle it, so Rexx assumes that it will find an error routine named NOVALUE to handle the condition. 


Here’s the basic coding template for how to enable and code for error conditions: 


main_routine: 


signal 


on novalue 


name novalue_handler 


/* main_routine's code goes here. */ 
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exit 
novalue_handler: 
/* Code to handle the NOVALUE error goes here. */ 


signal main_routine /* go back to the main_routine after error-handling */ 


Figure 10-1 shows the basic logic of conditions or error handling diagrammatically. 


Condition Trapping 


signal on condition name label_name 


.code of the main routine... 


label_name: 


.code of the error handling routine... 


Figure 10-1 


Remember that we previously saw the signal instruction used in a manner similar to an unconditional 
GOTO statement. This is a new form of the signal statement that sets up and enables a condition trap. 


In the sample code, this line enables the trap for the NOVALUE condition and names the routine that will 
handle this error: 


signal on novalue name novalue_handler 
This line does not immediately transfer control to the routine to which it refers; it only enables the trap so 


that the error routine will be invoked when and if the exception condition named on the signal state- 
ment (the NOVALUE condition) occurs. 


The name keyword is followed by the name of the error routine for that condition. In this example, 

the name of the routine that will be run when the NOVALUE condition occurs is novalue_handler. 
Somewhere later in the code there must be a label that identifies the routine that handles the error condi- 
tion. This error-handling code performs any appropriate processing for the specified condition. In most 
cases, error routines return control to the point of invocation after printing an error message or perform- 
ing other corrective action. But they could end the script or take any other action desired. 
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The signal or cal] instructions can be coded without explicitly specifying the name of the trap routine. In 
this case, the label of the error routine must be the same as the condition that is raised. Here are examples: 


signal on error /* enables ERROR trap to be handled by routine named ERROR: */ 
signal on novalue /* NOVALUE condition requires a routine labeled NOVALUE: xy 
call on failure /* FAILURE errors are handled by a routine labeled FAILURE: */ 


We'll get into the differences between signal on and call on later. For now, note that signal can 
be coded with all seven conditions but that call cannot be coded with the SYNTAX, NOVALUE, and 
LOSTDIGITS errors. call enables a smaller set of error-condition routines. 


A Sample Program 


Here’s a simple script that illustrates how to trap syntax or runtime errors. The program prompts the user 
to enter a Rexx expression or statement. Then it executes the interpret instruction to evaluate that 
expression and execute it. The prompt/interpret loop continues indefinitely until the user enters the let- 
ters exit. At that point the interpret instruction executes the exit instruction the user entered, which 
terminates the program. 


Besides showing how to trap an error condition, this is a useful script because it allows you to interac- 
tively test various Rexx statements. You can purposely enter a statement with invalid syntax and read 
the error message with which Rexx responds. The script provides a handy “statement tester.” It also 
shows how the interpret instruction can be used to dynamically interpret and execute Rexx state- 
ments. Here’s the script: 


f* REX TRY bd 
is e/, 
Ve Reads user-input Rexx statements and interprets them. i] 


say "Type: 'exit' to end this program" 


start_loop: 
signal on syntax /* establish error trap Bd 


do forever 


Sell ohavouts gaa /* prompt/read on 1 line ay 
parse pull expressions 
interpret expressions /* INTERPRET user's input */ 


end 


end_start_loop: exit 0 


SYNTAX: 
say 'SYNTAX:' errortext(rc) '(error' rc')' /* write error*/ 
signal start_loop /* return to processing La 


Here’s a sample interaction with the program: 
C:\Regina\pgms>regina rexx_tryl.rexx 


Type: ‘'exit' to end this program 
== Say or. 
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5 
SSS GE @=3) ielieia 


SYNTAX: Incomplete DO/SELECT/IF (error 14) 
SSS GE aes 

SYNTAX: THEN expected (error 18) 

SSS Seale 


The sample interaction shows that the user starts the program and it prompts him or her to enter a Rexx 
statement. He or she enters: say 3+2. The interpret instruction evaluates and executes this instruc- 
tion, so the script displays the result: 5. Next the user enters an invalid if instruction. The interpret 
instruction runs it, which raises the SYNTAX exception. 


In the script, this line enabled the syntax condition trap. The error routine it enables must be labeled 
SYNTAX: since no other explicit label was specified: 


signal on syntax /* establish error trap =} 


All the error handler does in this script is write an error message and send control back to a label in the 
main routine. Here is the code for the exception handler: 


SYNTAX: 
say 'SYNTAX:' errortext(rc) '(error' rc')' /* write error ey 
signal start_loop /* return to processing */ 


rc is one of Rexx’s special variables (others include result and sig1). rc contains the error code associated 
with the syntax error. The line that displays the error message applies the built-in function errortext to 
the error code in special variable rc to display the complete text of the syntax error message to the user. (In 
the cases of ERROR and FAILURE conditions, rc is set to the return code from the failed host command.) 


At the end of the SYNTAX error routine, the signal start_loop instruction transfers control back to 
the main routine. When using signal to enable the error routine, the trap routine must explicitly direct 
execution back to the main program, if desired. This return of control from the exception routine is not 
automatic when the trap is invoked by the signal instruction. 


Note the sample code transfers control back to a point at which it will reexecute the signal statement that 
enables the ERROR trap: 


start_loop: 
signal on syntax /* establish error trap Bg 


Whenever a trap is enabled by signal, then processed, it must be reenabled again to reestablish it. In 
other words, processing a trap by signal turns off that trap and the condition must be reenabled if it is 
to be captured again later. So, typically, the first thing a script does after processing an error condition is 
reenable that condition by reexecuting the signal statement that set it up. 


If we do not reexecute the signal on syntax statement to reenable the error condition, the default 


action for that error condition occurs if the error condition is raised again. The default action is what 
happens whenever an error condition is disabled or has not yet been enabled at all within the script. 
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A signal onorcall on instruction has not been executed to enable the error trap. The default action 
for a syntax error is for Rexx to write an appropriate error message and stop executing the script. 


These are the default actions for all untrapped conditions: 


Condition Default Action 


SYNTAX and HALT Rexx writes an appropriate error message and ends the program. 


ERROR, FAILURE, NOVALUE, The condition is ignored and the program continues. 
NOTREADY, LOSTDIGITS 


You can dynamically enable and disable trap routines from your code. To turn a condition on, code signal 
on or call on. To disable it, use signal off orcall off. Here is an example: 


call on error /* enable ERROR error trap */ 


/* some code might go here */ 
call off error /* disable ERROR error trap, accept default action for error */ 


/* some code might go here */ 


call on error /* enable ERROR error trap again */ 


You can also code multiple routines to handle a single error condition, then dynamically determine 
which one will be enabled at any time. This code first enables one error routine, then another: 


signal on notready name notready_routine_1 /* enable NOTREADY error handler */ 
/* some code might go here */ 


signal off notready /* enable a different NOTREADY e/) 
signal on notready name notready_routine_2 /* error handling routine 2 yf 


Of course, only one routine should be enabled at any time. If you code statements that try to enable more 
than one routine, Rexx simply uses the last one enabled. In the following code sequence, Rexx would 
run the second routine when the SYNTAX error is raised: 


signal on syntax name routine_1 
signal on syntax name routine_2 


An Improved Program 


Let’s improve the preceding program to manage all the conditions Rexx can raise for traps. This version 
uses signal to set traps for all seven conditions. You can enter various expressions to see which the pro- 
gram identifies through its error conditions. Here’s the script: 
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/* BEX TRY Z¢ / 
ps of 
lie Reads user-input Rexx statements and interprets them. uf 


say "Type: 'exit' to end this program" 


Startoloon: 
signal on syntax name syntax_rtn /* establish error traps */ 
signal on error name error_rtn 
signal on failure name failure_rtn 
signal on halt name halt_rtn 


signal on notready name notready_rtn 
signal on novalue name novalue_rtn 
signal on lostdigits name lostdigits_rtn 


do forever 


Call eharout. 4 =a" /* prompt/read on 1 line ay 

parse pull expressions 

interpret expressions /* INTERPRET user's input */ 
end 


end_start_loop: exit 0 


SYNTAX_RTN: 
say 'SYNTAX:' errortext(rc) '(error' rc')' 
signal start_loop 


ERROR_RTN: 

say 'ERROR: The comand entered returned an error, rc=' rc 
say 'The command was:' sourceline(sig1l) 

signal start_loop 


FAILURE_RTN: 
say 'FAILURE: Uninitialized variable or failure in system service' 
signal start_loop 


HALT_RTN: 
say 'HALT: External interrupt identified and captured' 
signal start_loop 


NOTREADY_RTN: 
say 'NOTREADY: I/O error occurred' 
signal start_loop 


NOVALUE_RTN: 
say 'NOVALUE: Variable was not assigned a value:' expressions 
signal start_loop 


LOSTDIGITS_RTN: 
say 'LOSTDIGITS: arithmetic operation lost significant digits' 
signal start_loop 
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This script operates the same as the simpler version but traps more error conditions. Here’s a sample 
interaction: 


D:\Regina\pgms>regina rexx_try2.rexx 
Type: ‘exit' to end this program 


== say oe 

Wf 

==> say a 

NOVALUE: Variable was not assigned a value: say a 

=—s 3=4 

==> say a 

4 

==> /* A user entered CTRL-C on this line */ 
HALT: External interrupt identified and captured 

sas "eheu,! /* user incorrectly enters DIR command */ 


‘dri' is not recognized as an internal or external command, 
operable program or batch file. 
19 *-* interpret expressions /* INTERPRET user's input afk 
+++ RC=1 +++ 
ERROR: The command entered returned an error, re = 1 
The command was: interpret expressions /* INTERPRET user's input yf 
==> 


The interaction shows that the say a instruction was intercepted by the NOVALUE condition, because the 
variable a had not yet been assigned a value. The blank input line is where the user entered the key com- 
bination Control-C. The HALT condition routine caught this and displayed its message. 


Lastly, the user tries to enter a Windows dir (list directory) command, but mistypes it as: dri. The 
Error-condition trap gains control. It displays the value returned by the failed command, its condition 
code, available in Rexx special variable rc. Rexx also sets the value of special variable sig1 whenever 
transfer of control is effected to an internal subroutine or by raising a condition. sig] is set to the line in 
the source code where the transfer occurred. It can be used to identify the line that caused the problem 
by a trap routine. This script uses it as an input to the sourceline built-in function, which then displays 
the source code of the line that caused the condition to be raised: 


say 'The command was:' sourceline(sigl) 
This line in the code resulted in this display output: 
The command was: interpret expressions /* INTERPRET user's input */ 


This correctly identifies the interpret instruction as the line in the script from which the condition was 
raised. 


We should note in passing that the sourceline function also has another use. Coding sourceline 
without any arguments returns the number of lines in the script: 


script_line_count = sourceline() /* determine number of lines in the script */ 


150 


Errors and Condition Trapping 


In this script, the seven signal on statements enable all the trap conditions. These instructions specify 
the names of the trap routines. If not explicitly named, the routine names default to the name of the con- 
dition which they trap. For example, the ERROR condition would require the label ERROR: in the script if 
the signal on instruction does not specifically name some other error routine. 


Each trap routine ends with this statement: 
signal start_loop 


The label start_loop occurs before the cascade of signal on instructions, so that after any trap routine 
executes, the program reenables it. If the script did not do this, then each error condition would be dis- 
abled after one execution of its corresponding error routine. The default action would then apply to any 
error condition that was subsequently raised. 


One more word about this sample program: It is somewhat system-dependent. For example, different 
operating systems handle the Control-C entry in slightly different ways. An entry of Ctrl-C on one sys- 
tem was immediately trapped in the program, while in another, it was necessary to enter Ctrl-C, then 
press the Enter key. Your operating system may give slightly different results. When trapping error con- 
ditions, it is very important to test the script on the system on which it will run. 


With this improved version of this script, we have a truly useful program. Use it to interactively test any 
Rexx statement and also learn about any of Rexx’s error conditions by trapping them. The script is a 
generic Rexx “statement tester and verifier.” Its exception handling allows it to display good error mes- 
sages to the user when a statement does not check out. 


Special Variables 


In this chapter, we've identified two more special variables, rc and sigl. In the TRL-2 standard, Rexx 
has but three special variables — variables identified by a hardcoded keyword, into which Rexx places 
information at certain times. This chart summarizes the special variables: 


Special Variable Meaning 
rc The return code from a host command, or a Rexx SYNTAX error code. 
sig] The line number that caused control to jump to a label. This could be set 


by the transfer of control caused by a trapped condition, or simply by a 
regular call to an internal routine or invoking an internal function. 


result The string sent back to a calling routine by the return instruction. 
If return is coded without an operand result is set to uninitialized. 


All special variables are uninitialized until an event occurs that sets them. While we won’t go into them 
here, it is probably worth noting that the ANSI-1996 standard adds several more special variables to the 
language. 


151 


Chapter 10 


signal versus call 


So far, our sample code has used the signal instruction. Rexx also permits enabling error conditions 
through the ca11 instruction. Let’s discuss the differences between signal and call. 


First, signal applies to all seven error conditions. cal1 does not apply to SYNTAX, NOVALUE, and 
LOSTDIGITS errors. These are invalid and cannot be coded: 


call on syntax /* Invalid ! */ 
call on novalue /* Invalid ! */ 
call on lostdigits /* Invalid ! */ 


Second, recall that signal forces an abnormal change in the flow of control. It terminates any do, if, or 
select instruction in force and unconditionally transfers control to a specified label. cal1 provides for 
normal invocation of an internal subroutine to handle an error condition. It offers a more “normal” way 
to implement trap routines through the commonly used subroutine mechanism. Control is automatically 
transferred from the error routine back to the main program when the return instruction in the trap 
routine executes (as with any called routine). 


There is one wrinkle. The result special variable is not set when returning from a called condition trap; 
any value coded on the return instruction is ignored. 


To illustrate the use of cal1, here is a script that asks the user to input an invalid operating system com- 
mand. This raises the ERROR condition and starts the ERROR: routine. The trap routine puts the user into 
Rexx’s interactive debugging mode, from which he or she can enter various diagnostics. When the user 
turns off the trace, the script continues. Here is the code: 


[fo TRIDOK WMRNES) ee 
fe eff 
es Shows how CALL traps a command ERROR. y/ 
2 Places user into interactive debugging mode. taf 


say "Type: 'exit' to end this program" 
start_loop: 
call on error /* establish error trap */ 


do forever 


call charout ,"Enter bad command ==> " 7* prompt La 

parse pull expressions 

interpret expressions /* INTERPRET user's input */ 
end 


end_start_loop: exit 0 


ERROR: 
say 'ERROR: The line entered returned an error, rc=' rc 
say 'ERROR MESSAGE:' errortext (rc) 


say 'ERROR LINE:' sourceline(sigl) 

ieacveKela) 0)” /* put user in interactive trace mode */ 
say 'Interactive Trace' 

return 
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At the program prompt, the user should enter an operating system (OS) command. For example, under 
Windows he or she could enter the directory (dir) command: 


Enter bad command ==> dir 


This command executes normally. The error condition is raised when the user enters an incorrect operat- 
ing system command: 


Enter bad command ==> dri 


In this case, the user mistyped the command. When the error is raised, the trap routine displays the error 
message by the built-in function errortext. It also displays the source line that caused the problem by 
using the sourceline function with the sig1 special variable as an input parameter. Finally, it places 
the user in interactive trace mode through this instruction: 


trace tee 


Once inside the interactive trace, the user could interactively enter whatever statements might be useful 
to gather information and solve the problem. Since the user entered an invalid command, perhaps he or 
she would ask the operating system for help by entering: 


help dir 


This would execute the Windows help command and display more information about the dir com- 
mand to the user. Since the trace facility allows entering any valid statement, the user could also enter 
any other command that he or she believes might be helpful to understand the situation. 


When the user finishes with interactive debugging mode, he or she just turns off the interactive trace by 
issuing this instruction, and the script resumes: 


trace off 


This script shows how to identify errors and place users into interactive sessions to fix them. This could 
be useful during program development or in certain kinds of system administration scripts. The ability 
to dynamically place the user into an interactive session with the interpreter is a feature unique to Rexx 
scripting that should only be used with knowledgeable users but that is very powerful where applicable. 


Recall that when Rexx encounters a command that is not part of the Rexx language, by default it passes 
it to the operating system for execution. In this case, the Rexx interpret instruction ultimately passed 
the OS command the user entered to the operating system for execution. This is how the dir command 
got sent to Windows for execution. 


This sample script is operating-system-dependent because the commands it asks the user to enter are OS- 
specific. For example, the dir (list directory) command is common to all versions of Windows, while the 
help dir command is only common to some versions of Windows. Both commands fail under Linux, 
Unix, BSD, and other operating systems. (Since this script captures failed operating system commands, 
perhaps that’s okay!) 
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For the sake of completeness, we mention that there a few obsolete operating systems that always send 
back a return code of 0 from all OS commands. Running this program on these systems will not 
properly trap the error code. This is a defect of those operating systems, not of Rexx or its error 
handling. 


For example, running this program under Windows 98SE failed to trap the error and instead just 
reflected back the OS error message: 


Enter bad command ==> dri 
Bad command or file name 
Enter bad command ==> exit 
D:\Regina\pgms> _ 


Modern Windows versions have long since corrected this behavior. 


The condition Function 


The built-in condition function offers a trap routine another means of obtaining information about 
the circumstances under which it was invoked. condition takes a single input argument, which may 
be any of the following: 


Condition Argument Full Name Meaning 


C Condition name Returns the name of the trapped condition (e.g., 
ERROR, FAILURE, HALT, NOVALUE, NOTREADY, 
SYNTAX, or LOSTDIGITS) 


D Description A system-dependent description or reason for 
the condition 


I Instruction Returns either CALL or SIGNAL to tell how the 
condition was trapped 


S State The current state of the trapped condition (not the 
state at the time when the condition was trapped). 
May be one of the following: 
ON — the condition is enabled 
OFF — the condition is disabled 
DELAYED — any new occurrence of the condition 
will be delaved (ignored) 


What if an error condition is executing and the same condition is raised again? This is the purpose of the 
DELAYED state. This state prevents a second trap from being invoked while an error-condition routine is 
executing. 
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A Generic Error-Trap Routine 


To this point, we have discussed error trapping by progressively refining a single program. The program 
gives users the ability to discover error numbers and messages for various Rexx errors by interactively 
submitting error-prone statements to the script. One version of the script, in the earlier section entitled 
“An Improved Program,” trapped all seven ANSI-1996 standard error conditions. Each condition was 
handled by its own separate trap routine. 


Now, here’s a twist. This sample script also handles the seven ANSI-1996 standard error conditions. But 
this program sends all errors to a single, consolidated, generic error-handling routine. The trap routine 
obtains orientation information about the error that occurred through the condition function by issuing 
that function with various parameters. Here is the code for the script: 


/* REXX TRY4: ai 
ifr yf 
es Shows how to use the CONDITION function to get yf 
fre information in the trap routine. a 


say "Type: 'exit' to end this program" 


Startoloop: 
signal on syntax name who_am_i /* establish all raised wil 
signal on error name who_am_i /* conditions to the at 
signal on failure name who_am_i /* same trap routine ey 
signal on halt name who_am_i 


signal on notready name who_am_i 
signal on novalue name who_am_i 
signal on lostdigits name who_am_i 


do forever 


Cali ceharout. Ama % /* prompt for user input ay 

parse pull expressions 

interpret expressions /* INTERPRET user's input */ 
end 


end_start_loop: exit 0 


WHO_AM_I: 
say 'Name of trapped condition:' condition('C') 
say 'Description:' condition('D') 
say 'Method of invocation:' condition('I') 
say 'Current state of the trapped condition:' condition('S') 
signal start_loop 


The trap routine named WHO_AM_I invokes the condition function several times to learn information 
about its environment and invocation. Here is sample output for this script: 


C:\Regina\pgms\regina rexx_try4.rexx 
Type: 'exit' to end this program 
eo ys 

Name of trapped condition: NOVALUE 
Description: HI 

Method of invocation: SIGNAL 
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Current state of the trapped condition: OFF 

==> 1f a=b then 

Name of trapped condition: SYNTAX 

Description: Error 14.3: THEN requires a following instruction 
Method of invocation: SIGNAL 

Current state of the trapped condition: OFF 

==> epic 


This script highlights a basic design decision when trapping errors. Do you write one trap routine to han- 
dle all conditions, as in this script, or should you trap each error separately, as in the previous examples in 
this chapter? 


What determines your approach is likely how much you care about error trapping in the program and 
how specific you want the code to be for each error condition. If generic error handling is acceptable, 
one routine to manage all errors will be suitable and faster to develop. If the program needs very spe- 
cific, tight control of errors, then taking the time to write a separate routine for each anticipated condi- 
tion is probably justified. The trade-off is between the specificity of the error routines and the time and 
effort required to develop them. 


Some sites adopt sitewide standards for error handling. These sites supply a common error routine you 
invoke from your code to manage errors. Sitewide standards promote standardized exception handling 
and also reduce the workload because each programmer does not have to define and code his or her 
own error routines. 


Limitations 


There are two downsides to error trapping in Rexx. First, there are seven error conditions but no provi- 
sion to add or define more yourself. Unlike some programming languages, ANSI-standard Rexx does 
not provide a generalized mechanism by which you can define and raise your own error conditions. 
Second, standard Rexx offers no way to explicitly raise conditions. All conditions are only raised by the 
interpreter when the specific condition events occur. 


To handle conditions outside the scope of the seven Rexx provides you'll have to write code to identify 
and invoke them yourself. 


How is this done? It depends on the errors you wish to trap, but the general technique is for the script to 
simply check status after attempting a task. For example, say you wish to manage error codes from a 
relational database or SQL calls. Simply check the return code and status from these calls in your pro- 
gram, and invoke the internal routine you’ve written to manage specific return codes. Other interfaces 
can be controlled in much the same manner. Check the return code from any call to the interface; then 
manage errors through an error-handler in your script. Chapters 15 through 18 explore interface pro- 
gramming and error handling for interfaces in detail. 


A few Rexx interpreters go beyond the TRL-2 and ANSI-1996 standards to support enhanced error han- 
dling within the interpreter. Reginald Rexx, described in Chapter 23, allows developers to define their 
own error conditions and manually raise them if desired. Open Object Rexx also provides enhanced 
error-trapping features. Chapters 27 and 28 describe Open Object Rexx. 
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Summary 


This chapter discussed the basic mechanism through which special errors or exceptions are captured and 
addressed. Standard Rexx supports seven error conditions, two of which are specifically oriented toward 
handling host command errors. 


Error conditions are enabled by either the signal or cal1 instructions. Error routines can be given unique 
names or coded under the default name of each error condition. If appropriate, be sure to reenable a condi- 
tion once it has been raised and its error routine executed. 


Depending on how concerned you are with trapping and addressing errors, you may take the simpler, 
more generic approach, and handle all errors from within one error routine, or you may wish to write a 
detailed routine for each condition. 


This chapter provides several generic error-handling routines. You can take them and adapt them to 
your own needs. We progressively evolved the sample script to give a good idea of the different ways in 
which exceptions can be handled. Two of the scripts took diametrically opposed approaches to enabling 
and trapping all seven kinds of error conditions. One coded a separate routine for each exception, while 
the other coded one generic routine to handle all error conditions. Take these examples as a starting 
point in determining which approach works best for your own projects. 


Test Your Understanding 


1. What is the purpose of error trapping? What are the seven kinds of condition traps, and what 
error does each manage? Which error condition was added by the ANSI-1996 standard? 


2. How do you capture an external interrupt from within a script? 


3. Whatare the differences between signal on and call on? Are their conditions for which 
call is invalid? 


4. What instruction is used to dynamically evaluate and run expressions? 


5. How do you enable an error condition? Can you have multiple error routines to handle the 
same error condition in the same program? 


6. What should you always do after executing an error-condition routine? 


7. Is it better to write one generic error routine to handle all errors, or should you write a different 
routine to manage each kind of error? 


157 


17 


The External Data Queue, 
or “Stack” 


Overview 


Most Rexx interpreters support an in-memory data structure called the external data queue, or stack. 
It is a general-purpose mechanism for passing data— between routines, programs, scripts and the 
operating system, and other entities. 


A number of instructions and built-in functions manipulate the stack: pull, parse pull, push, 
queue and the queued built-in function. This chapter covers those instructions. 


The stack evolved from Rexx’s mainframe origins. Mainframe operating systems supported the 
stack as an integral feature of the environment, so it was only natural that Rexx support this key 
operating system feature. If you use mainframe Rexx you employ the stack to send commands to 
the operating system, to retrieve the results from those commands, for interprogram communica- 
tion, and for other purposes. 


Few operating systems other than those on mainframes support a stack. Rexx interpreters, there- 
fore, come with their own “stack service” that mimics how Rexx operates with the mainframe stack. 


Depending on your operating system and your Rexx interpreter, you may or may not end up 
using the stack. Nevertheless, it is important to know about it for several reasons. First, much Rexx 
documentation mentions the stack. If you don’t know about it or understand it, understanding 
Rexx documentation becomes difficult. Second, the stack is a built-in feature of Rexx interpreters 
that has some good uses. For example, it’s pretty common to use the stack as a vehicle to send 
input to operating systems commands and retrieve their output. 


This chapter provides the necessary introduction to the stack that developers on all platforms 
require. 
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What Is the Stack? 


The stack is sometimes called the external data queue, but we follow common usage and refer to it as the 
stack. It is a block of memory that is logically external to Rexx. Instructions like push and queue place 
data into the stack, and instructions like pull and parse pull extract data from it. The queued built- 
in function reports how many items are in the stack. 


The stack is a general-purpose mechanism. The manner in which it is implemented within any particular 
Rexx interpreter varies. Different Rexx interpreters support the stack by different internal mechanisms. The 


goal is to support a stack that mimics that of mainframe Rexx, as defined in the various Rexx standards. 


Computer scientists define a stack as a particular kind of data structure, diagrammed in Figure 11-1. 


Stack: a Last-In-First-Out data structure 


PUSH _™ PULL 


Figure 11-1 


The push operation places data onto the stack; the pull operation removes data from the stack. The most- 
recently pushed data is retrieved first by the pull operation. Therefore, data that was most recently 
placed on the stack is retrieved first. This is referred to as a last-in, first-out (or LIFO) data structure 
because of the order in which data is stored and retrieved. 


Computer scientists define the data structure called a queue in a similar manner. As visualized in Figure 


11-2, the queue operation puts data into the queue, and the pull operation removes it. The oldest data in 
the queue is removed first, so a queue structure is a first-in, first-out (or FIFO) mechanism. 
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Queue: a First-In-First-Out data structure 


> PULL 


QUEUE— 
Figure 11-2 


What we call “the stack” in Rexx actually functions as either a stack or a queue. Figure 11-3 shows that 
data is placed into the Rexx stack by either push or queue operations (by the push and queue instruc- 
tions, respectively). Then the pull or parse pul] instructions retrieve data from the Rexx stack. 


The Rexx "Stack" is both a Stack and a Queue 


PUSH PULL, 
“ae —— PARSE PULL 
QUEUE— 
Figure 11-3 
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Whether the Rexx stack functions as a stack or queue data structure is dictated simply by whether one 
uses the push or queue instruction to place data into the stack. (Of course, you can intermix push and 
queue instructions, but then it’s up to you to keep track of how you've placed data on the stack.) The 
Rexx stack can be used either as a stack or queue data structure (or both), depending on the instructions 
you use to manipulate it. 


The data in the stack is always manipulated in terms of character strings. push or queue instructions 
place a string in the stack, and pull or parse pull retrieves that character string from the stack. The 
strings are typically referred to as lines. Place a line onto the stack; retrieve a line of data later. Stack 
access and retrieval is strictly line-oriented. There is no concept of “character-oriented” stack I/O. 


The size of the stack is implementation-dependent. Many Rexx interpreters allow the stack to grow to 
the size of available memory. The stack is always implemented as an in-memory facility. 


An Example — Placing Data into the Stack 
and Retrieving It 


This first sample script was tested under Regina Rexx, which comes with its own built-in stack. But the 
program will work with almost any Rexx interpreter, because most come with built-in stack facilities. 
This sample script places three lines of data into the stack and retrieves and displays them in LIFO order. 
Then it places three lines into the stack and retrieves and displays them in FIFO order. The program 
illustrates how to populate the stack and retrieve lines from it, as well as how to use the stack in its role 
as either a stack or queue data structure. 


Here is sample program output. It shows that the first three lines of data placed in the stack were 
retrieved in LIFO, or reverse order. Then three more lines were placed into the stack. These were 
retrieved and displayed in FIFO order. 


C:\Regina\hf>regina stack.rexx 
STACK: LINE #3 
STACK: LINE #2 
STACK: LINE #1 
QUEUE: LINE #1 
QUEUE: LINE #2 
QUEUE: LINE #3 


Here is the script: 


J* “STROK: ue 
as eff 
Pe This program shows how to use the Rexx Stack as either a uf 
Ps stack or a queue. Muy 
Gloy FJ=1L eo 3 

push ‘Stack: line #' || j /* push 3 lines onto the stack */ 
end 
do j=1 to queued() /* retrieve and display LIFO a, 
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pull line 
say line 
end 


Go Jal two 3 
queue 'Queue: line #' || j /* queue 3 lines onto the stack */ 
end 


do queued () /* retrieve and display FIFO 27) 
pull line 
say line 

end 


exit 0 


The first do loop in the program places three lines of data onto the stack. It uses the push instruction to 
do this. We number the lines so that when they are retrieved in theLIFO order their order is apparent. 
Items placed into the stack by the push instruction are retrieved in LIFO order: 


do j=1 to 3 
push ‘Stack: line #' || j /* push 3 lines onto the stack */ 
end 


The next code block shows the use of the queued built-in function to discover the number of lines on the 
stack, as well as a loop to retrieve all the lines from the stack: 


do j=1 to queued() /* retrieve and display LIFO i): 
pull line 
say line 

end 


Since the three items were placed on the stack via push, they are retrieved in LIFO order. Their retrieval 
and display on the user’s screen appear like this: 


STACK: LINE #3 
STACK: LINE #2 
STACK: LINE #1 


After this do group, the three lines placed into the stack have all been removed. If we were to test 
queued () at this point, it would return a value of 0. 


The next do group uses the queue instruction to place three new lines into the stack. These three lines 
will be retrieved in FIFO order, because the queue instruction placed them onto the stack: 


do j=1 to 3 
queue 'Queue: line #' || j /* queue 3 lines onto the stack */ 
end 


This retrieval do group shows a better way of retrieving lines from the stack. It uses the queued function 


to determine how many items are in the stack, and the interpreter only needs to resolve this value one 
time. At the end of the loop, the stack is again empty. queued () would return 0 if run again at that time: 
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do queued () /* retrieve and display FIFO a7 
pull line 
say line 

end 


Since the three lines were placed on the stack by the queue instruction, they are retrieved and displayed 
in FIFO order: 


QUEUE: LINE #1 
QUEUE: LINE #2 
QUEUE: LINE #3 


Thus the mechanism in Rexx we refer to as the stack really functions as either a queue or a stack data 
structure, depending on which instructions are used to place data into it. 


At this point you are likely to have a key question—aren’t pull and parse pull used to get data from 
standard input (the keyboard)? How does Rexx know whether these two instructions should retrieve 
data from the keyboard or from the stack? 


The rule is this— pull and parse pull will retrieve data from the stack, if there is any data in the stack. If there 
is no data in the stack, then these two instructions retrieve data from standard input (or the specified input stream). 


The stack is thus the priority input for these two instructions. But for any script that does not place data 
into the stack, the stack is empty and it is essentially ignored. In this case (which is what you see most 
often), the pull and parse pul] instructions get their data from an input stream in the standard manner. 


Say we coded this: 


do j=1 to 3 
push ‘Stack: line #' || j /* push 3 lines onto the stack */ 
end 


do j=1 to 4 /* retrieve and display LIFO */ 
pull line 
say line 

end 


We've placed three lines onto the stack, but the retrieval loop tries to pul1 four lines. What happens? Rexx 
reads and displays the three lines from the stack. Now there are no lines on the stack. So the fourth pull 
instruction reads from its default input stream, the keyboard. In other words, after displaying the three 
lines in the stack on the display screen, this script suddenly falls silent and waits for the user to input one 
line from the keyboard. Assuming that the user enters a line, the script then immediately displays it back 
to the user by the say instruction that follows the pu11 instruction in the last iteration of the do loop. 


If you use the stack you need to be cognizant of this behavior. Address it simply by understanding how 
many lines you have on the stack at all times. Use the queued function to manage this, because it tells 
you how many lines are on the stack. 


If you do not use the stack, your scripts retrieve data from the input stream (standard or specified) as 


they always do through the pull and parse pull instructions. Unless the program places lines into the 
stack, you can generally pretend it doesn’t exist. 
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If you have lines in the stack but want specifically to read the next line from default standard input, use 
the instruction parse linein. parse lineinisa short form of: 


parse value linein() with [template] 


Use this statement only if you have lines in the stack and want specifically to avoid them and read from 
standard input. If there is no standard input to read (for example, from the keyboard), this instruction 
pauses until a line is input. 


Another Example — The Stack for 
Interroutine Communication 


The stack has several common uses. Here we see another one. This sample script uses the stack to pass 
data to an internal routine. It allows passing a variable number of parameters to the internal routine 
without worrying about how many there are or having to name them on the procedure expose 
instruction. Here is the code: 


/* STACK PARMS: cf 
fies if 
pe This program shows how pass an arbitrary list of parameters AG /. 
pe to an internal subroutine by using the stack. mf: 
number_of_parms = 5 /* define number of parms to pass */ 


do j=1 to number_of_parms 
queue 'Parm: line #' || j /* queue the parms onto the stack */ 
end 


call get_parms number_of_parms 


exit 0 
get_parms: procedure /* no variables need be EXPOSE'd ie 
clo 3) = i ee aie; (il) /* retrieve and display all the “27h 
parse pull line /* input parms passed in via 2) 
say line /* the stack yf 
end 
return 


In this script, the driver simply queues several lines of input parameters in the stack. The use of queue is 
important — this ensures that parameters will be retrieved in the proper order by the subroutine. Using 
push would create a FIFO structure, in which the parse pull instruction in the subroutine would 
retrieve the input parameters in the reverse order by which they were placed in the stack — probably not 
what is intended. 


The subroutine uses the arg (1) built-in function to control the do loop which retrieves and displays all the 


input parameters. Recall that arg (1) retrieves the value of the first argument to the internal subroutine. In 
this case, this value will be that in the variable number_of_parms, which is 5. 
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Output from this script shows that the passing and retrieval of the parameters between the two routines 
and looks like this: 


C:\Regina\hf>regina stack_parms.rexx 
Parm: line #1 
Parm: line #2 
Parm: line #3 
Parm: line #4 
Parm: line #5 


Practical Use of the Stack 


As mentioned earlier, Rexx has a stack because this was a feature of the mainframe operating system 
under which it was first developed, VM (also referred to as CMS or VM/CMS). The goal was to take 
advantage of the operating system’s stack as a feature of the Rexx language. 


Unfortunately, few operating systems beyond those on the mainframe support a stack. The upshot is 
that a platform-dependency worked its way into the Rexx language definition. How does Rexx support 
a stack when running on operating systems that do not offer one? 


The developers of Rexx interpreters have several choices: 


Q) Add a stack facility to the operating system 


OQ) Create a stack “service” or “daemon” to provide this feature 


Q = Build the stack into the interpreter itself 


The first two approaches have the advantage that the stack becomes a more generic feature with 
expanded features. It could be used, for example, for communication between two programs (in a man- 
ner similar to how piping is used on many operating systems). But the downside is that the Rexx inter- 
preter has to include and be distributed with an external component. 


The last approach, building a stack into the interpreter itself, is simpler and more self-contained but pro- 
vides more limited functionality. For example, even two Rexx scripts run by the same interpreter could 
not use the stack to communicate between them, because running under two invocations of the inter- 
preter means that they each have their own stacks. 


The ANSI-1996 standard does not resolve these internal complexities. It refers to the use of the stack as 
an I/O mechanism for commands through the address instruction as an allowable extension rather 
than as an integral part of the standard. 


Mainframe Rexx includes commands, instructions, and functions to manipulate the stack beyond the 
Rexx standards. For example, you can create your own memory area (or buffer) to provide a “private 
stack” for the use of your scripts. Buffers are created by the makebuf command, and eliminated by the 
dropbuf and desbuf commands. The qbuf function tells how many buffers are in the stack. 
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There is even the ability to work with more than one stack. Commands such as newstack create another 
stack, while delstack deletes a stack, and qstack returns the number of stacks in use. When using 
multiple stacks, the idea is that, at any one time, one stack called the current stack will be used. 


Figure 11-4 diagrams the relationships between buffers and stacks. Each stack can contain a number of 
buffers, and each buffer can contain a number of lines. 


The Relationship Between Stacks and Buffers 


pierre Stacks ie eee 


fn 
aaa pete ne 


Each Stack can contain multiple Buffers, 
and each Buffer can contain multiple lines. 


Figure 11-4 


In mainframe Rexx, the stack is a critical communication area through which commands are passed to 
the operating system for execution, and through which the results of those commands are read by the 
script. Chapter 29 on mainframe Rexx explores this in further detail. 


Most free and open-source Rexx implementations include extensions that mimic the mainframe Rexx 
stack features. Regina, for example, includes VM-like built-in functions to create a new stack buffer 
(makebuf£), remove a buffer from the stack (dropbuf), and remove all strings and buffers from the stack 
(desbuf). Most Rexx implementations simulate IBM mainframe Rexx in that they allow the sending of 
commands to the operating system and the retrieving of the results of those commands via the stack. 
These extensions to standard Rexx offer greater capability in using the stack at the possible price of less 
standardization and reduced code portability. The chapters in Section II on the various Rexx interpreters 
describe the stack-handling features of the different interpreters. 


Some Rexx interpreters on some platforms permit the stack to be used as an interprocess communication 
vehicle. In other words, multiple, separate processes on one machine use the stack to communicate 
among themselves. This is rather like the manner in which pipes or sockets can be used for communica- 
tion between different processes on the same machine. Examples of Rexx interpreters that support this 
are Regina and VM mainframe Rexx. 


167 


Chapter 11 


Some Rexx interpreters go so far as to allow the stack to be used for communication between different 
processes on different machines. Regina is one example. Its rxqueue executable and rxqueue built-in 
function support this feature. The stack thus becomes a generic, machine-independent vehicle for inter- 
process communications. It can even be used for communications between different processes across the 
Internet. See the documentation for your specific Rexx interpreter to determine what uses it supports for 
interprocess communcation using the stack or its stack service. 


Summary 


This chapter explains the role and function of the stack within Rexx. It shows how the stack could be 
used as if it were either of two different in-memory data structures: a stack or queue. Stacks are LIFO 
data structures. The last-in data is the first retrieved. Queues are FIFO data structures, where the first 
item put in the queue is also the first item retrieved. 


We covered the instructions and built-in functions that place data on the stack and retrieve it from the 
stack. These include the push, queue, and pu11 instructions, and also the queued function. Two sample 
programs illustrated use of the stack. The first merely demonstrated how items are placed on the stack 
and retrieved from it, while the other showed how the stack could be used to pass an arbitrary list of 
parameters to an internal subroutine. 


Finally, we discussed how and why the stack came to be part of Rexx. We mentioned that some Rexx 
interpreters on some platforms permit multiple processes on the same machine to access the same stack, 
while others even support using the stack for communications across different machines. These advanced 
facilities are interpreter-dependent and platform-dependent, so check your documentation to see what 
features are available to you. 


The goal of this chapter is to arm you with the background you need so that when you encounter docu- 
mentation referring to the stack, or a Rexx implementation that relies on the stack, you'll know what you 
need to be functional. 


Test Your Understanding 


1. Do all Rexx implementations have a stack? Look in your specific documentation. How does 
your interpreter implement the stack? 


2. What's the difference between the stack and queue data structures? How do you use the Rexx 
stack to mimic the behaviors of both? What is the role of the queued function? 


3. How much information can you place into the stack? 
4. Should you use the stack if your goal is to develop code that can be ported across platforms? 


5. Can you have more than one stack? What are buffers, and how do you create and destroy them? 
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Overview 


One of the primary advantages to Rexx is its ease of use. This leads to programs that are easier to 
read, enhance, and maintain. But as with any programming language, whether these benefits are 
truly attained depends on how scripts are written. Developers who design and build clear pro- 
grams create work that has a longer life; those who develop cryptic or overly clever programs cre- 
ate scripts that will prove less useful after they change jobs. For this reason, we've offered 
recommendations throughout this book regarding Rexx best coding practices. 


This chapter consolidates guidelines for writing clear, maintainable Rexx scripts. While some of 
the rules of thumb it offers might be considered personal preferences, there is value in attempting 
to list some of the techniques that lead to the most useful code having the greatest longevity. 
Figure 12-1 lists some of the techniques we'll discuss in this chapter. 


Sometimes developers downplay readable style because it does not appeal to their desire to create 
“clever” programs. But good programming style is important even to the best developers. It 
directly affects the reliability of one’s code and how many mistakes are made in developing and 
enhancing that code. This should convince even the advanced, hard-core developer of its value. 


Readers are urged to consider how they might write Rexx in the most readable style possible. 
Whatever approach one adopts, consistency is a virtue. A program that passes variables between 
routines in a consistent manner, for example, is relatively easy to understand and change compared 
to a program that uses different means to communicate between different routines. From this comes 
the first rule of thumb for large programs — whatever stylistic or readability conventions you adopt, 
apply them throughout and your program will prove much easier for others to enhance and main- 
tain. With this said, here are suggested points of style for good Rexx programming: 
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The Steps to Good Programming Style 


Etcetera ! 


Error checking 


Structured Code 


Modularity | 


Comments 


Limit Nesting 


Spacing & indentation 


Good variable names 


Capitalization 


Figure 12-1 


Capitalize on Capitalization 


The data that Rexx scripts manipulate is case-sensitive. As are the literal strings you code within your 
Rexx program. A literal string such as This is mine differs from the string THIS IS MINE. 


But the Rexx language itself — its instructions and functions — are case-insensitive. You can code the if 
instruction as if or IF or If. It’s all the same to Rexx. This gives programmers the flexibility to use capi- 
talization as a tool for clarity. Perhaps the most readable style capitalizes Rexx instructions and leaves 
everything else in lowercase. Here’s a sample code snippet that embodies this style. Notice how it lever- 
ages capitalization as a vehicle for greater readability: 


IF social_security_payments > maximum_yearly_contribution THEN DO 
payments = 'completed' 
stop_payments = 'YES' 
END 
ELSE DO 
call payment_routine 
stop_payments = 'NO' 
END 


It’s not unusual to see older or mainframe scripts in all uppercase. This harkens back to the days when 


all coding was uppercase (as in COBOL coding on green-bar paper) and does not take full advantage of 
Rexx’s case-flexibility to enhance readability: 


170 


Rexx with Style 


IF SOCIAL_SECURITY_PAYMENTS > MAXIMUM_YEARLY_CONTRIBUTION THEN DO 
PAYMENTS = 'COMPLETED' 

STOP_PAYMENTS = 'YES' 

END 
ELSE DO 
CALL PAYMENT_ROUTINE 
STOP_PAYMENTS = 'NO' 


END 


Scripting in all lowercase is often popular with those from Linux, Unix, or BSD backgrounds. The author 
confesses to an all-lowercase preference (probably the result of too much C/C++ programming in his 
squandered youth). 


Good Variable Naming 


In Rexx (or almost any programming language), taking advantage of long variable names allows the use 
of much more meaningful descriptors. The preceding sample if statement uses nice long variable 
names. This is far superior to cryptic abbreviations, such as those in this version of the same code: 


IF ssp > mx_yrly_cntrb THEN DO 
p = 'completed' 
stp_p = 'YES' 


END 

ELSE DO 
call pymnt_routine 
stp_p = 'NO' 

END 


In this example, the variable maximum_yearly_contribution is abbreviated as the much-less-memorable 
variable name, mx_yrly_cntrb. Imagine the confusion as one misremembers this abbreviated variable 
name as max_yrly_cntrb or mistypes it as mx_yrly_contrib. While it is easy to overlook the value 

of full variable names when coding, during maintenance, enhancements or other activities the value of 
good variable names becomes evident. 


Most Rexx programmers string portions of the variable names together with the underscore character. 
But this is not required. Sometimes you'll see scripts written by Visual Basic or Java programmers, or 
those from other object-oriented programming backgrounds, that mix case in their variable names: 
SocialSecurityPayments 
This variable-naming style is sometimes called upper camel case or just camel case. Another style you 
might encounter strings together capitalized words with underscores to create full variable names. Here 
is an example of this style: 
Social_Security_Payments 
For some, the use of capitals without intervening underscores (SocialSecurityPayments) leads to 


more typing errors due to the need to toggle the “shift” key while typing the variable name. But any of 
these naming conventions works fine, so long as it is applied consistently throughout the program. 
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Even though Rexx does not require declaring variables, it can often be useful to do so. For example, ina 
large program, defining variable names and their initial values provides useful documentation. With 
good spacing, it’s readable as well: 


auto_list. a ht /* list of cars to process */ 
auto_to_find ae /* car to locate for query */ 
total_queries = 0 /* queries per cookie */ 
debug_flag = 'OFF' /* turn ON if debugging ee): 


Predefining variables in this fashion is also useful in that you can also use the signal on novalue con- 
dition to trap the use of any variable that has not been initialized. 


In large programs using global variables, some developers like to distinguish their global variables from 
those local to individual routines by prefacing them with a common stem. This is yet another use for 
compound variables. Here is a sample code snippet from a operating system utility written in Rexx that 
shows how global variables have been uniquely identified by a common stem: 


global .number_of_current_block 1. /* block on the pass list bes 
global.blocks_processed = 0 /* blocks processed so far */ 
global.split_blocks = 0 /* blocks split due to update overflow */ 


The use of the stem global. makes it easy to spot any global variables within the script. 


Use Spacing and Indentation 


The preceding sample if statement makes obvious a fundamental principle of program readability: 
Make indentation parallel the logic of the program. Remember the rule that an else keyword pairs with the 
nearest unmatched if instruction? Indentation that follows this rule makes the logic obvious to anyone 
reading the program. But indentation that violates program logic makes it much harder to read (and 
safely update) scripts. 


Here’s an example. To Rexx, this is the same if instruction as the one encoded earlier. But to a human 
this is clearly inferior to the original: 


IF social_security_payments > maximum_yearly_contribution THEN DO 


payments = 'completed'; stop_payments = 'YES' 
END; ELSE DO 

call payment_routine ; stop_payments = 'NO' 
END 


As well as indentation, spacing is another tool for enhancing readability. This line is generously spaced 
and easily read: 


if ( answer = 'YES' | answer = 'Y' ) then 
Change the spacing in this statement, and it becomes less easy to decifer: 
if (answer='YES'|answer='Y') then 


Take advantage of Rexx’s free format nature to add extra spaces in your code wherever it might render 
the code more readable. 
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Remember that the one place Rexx will not allow a space is immediately after a function and before the 
parentheses that follow it. This is correct: 


feedback = function_name(argument1, argument2) 
But this incorrect coding means that Rexx will not recognize the function: 

feedback = function_name (argumentl, argument2) /* Invalid ! */ 
The function function_name must immediately be followed by the left parenthesis. The set of paren- 
theses contain its argument(s). If there are no function arguments, just code an empty set of parentheses, 
like this: 

feedback = function_name() /* no arguments to pass means empty parentheses */ 
Another aspect of readability is how statements are continued across lines. Place the line continuation 
character, the comma (, ), at a natural breakpoint between phrases in a statement to enhance readability. 
This example: 

address environment command WITH INPUT STREAM filename_1 , 


OUTPUT STREAM filename_2 , 
ERROR STREAM filename_3 


reads easier than this: 


address environment command WITH INPUT STREAM, 
filename_1 OUTPUT STREAM filename_2 ERROR, 
STREAM filename_3 


Both work fine as far as Rexx is concerned. Placing a few spaces prior to the comma increases its visibil- 
ity. Vertical alignment works wonders in enhancing readability. 


Rexx permits coding more than one statement per line by encoding the line separation character, the semi- 
colon (; ). Generally, putting more than one statement per line is not recommended. It makes code 
denser and therefore harder to read. But there are two situations in which this might make sense: 


Q Initializing variables 


Q Initial assignment of values to array variables 


Consistent vertical spacing makes multiple statements per line much more readable. For example, in 
Chapter 4 this code initialized several array elements in the sample script named Find Book: 


keyword.1 = 'earth' ; keyword.2 = 'computers' 
keyword.3 = 'life' ; keyword.4 = 'environment' 


This is preferable to jamming as many statements as possible on each line: 
keyword.1='earth';keyword.2='computers';keyword.3='life';keyword.4='environment ' 


More than one statement per line can be readable only if done in the proper circumstances and with 
appropriate spacing. 
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Limit Nesting 


Like most expression-based languages, Rexx allows you to nest expressions to almost any depth. This 
provides great flexibility, but in practice, once expressions become too nested, they become unintelligible 
to anyone other than their original author. (And even the original developer will have trouble decoding 
his or her complex statements when maintaining the program after an absence!). 


Functions often form part of expressions, because they can return a result string right into the point in 
the expression in which they are coded. Nesting functions too deeply is tempting to many programmers. 
It’s fun and it’s clever. But ultimately the downside of difficult maintenance outweighs this personal 
value. Unless you know no one will ever have to enhance or change your script, it’s a real disservice to 
the next developer to stick him or her with code made more complex by dense expressions or deeply 
nested functions. 


The way to clarity, of course, is to simplify. Break up that complex expression to a series of simpler ones. 
Break apart deeply nested functions into a series of simpler statements. It makes the code a bit longer, 
but much more readable. 


Here’s an example. Remember the rindex program from Chapter 8? This function found the rightmost 
occurrence of a search byte within a given string. Here is the code for that function: 


/* RINDEX: CUE 
ies ey 
fe Returns the rightmost position of a byte within a string. af 


rindex: procedure expose search_byte 
parse arg string [fe elerevel jelavs) Sicxealiatey / 
say string search_byte /* show recursive trace for fun */ 


length (string) /* determine string length ue 
length(string) -1 /* determined string length - 1 */ 


string_length 
string_length_1 


ie Sieieainegy S= %” /* here's the 'end recursion' condition oe} 
then return 0 
else do 
if substr(string,string_length,1) == search_byte then 
return string_length 
else 


new_string_to_search = substr(string,1,string_length_1) 
return rindex(new_string_to_search) 
end 


This version of the same function eliminates the statements that determine the string length and the 
length of the string minus 1. It takes out these two statements and instead nests these expressions within 
the body of the code: 


string_length length(string) /* determine string length ef 
string_length_l1 = length(string) -1 /* determined string length - 1 */ 
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Here’s the same function with more nesting: 


fe ROLINIDIAD.CS ZG /- 
be aus 
a Returns the rightmost position of a byte within a string. AT, 


rindex: procedure expose search_byte 


parse arg string /* read the string */ 
say string search_byte /* show recursive trace for fun */ 
WE Gieieiliaey SS YY /* here's the 'end recursion' condition Sif 

then return 0 
else do 

if substr(string,length(string),1) == search_byte then 

return length(string) 
else 


new_string_to_search = substr(string,1, (length(string) -1) ) 
return rindex(new_string_to_search) 
end 


The code works just as well but is a little harder to decipher. You could nest the functions in this script 
even further, but nesting is a trend you can get carried away with. It makes for more compact code. But 
for the benefit of reducing the length of this function by a few lines of code, the nested functions make 
this routine tough to understand. 


Comment Code 


Code comments are English-language explanations interspersed among Rexx statements that provide 
explanation of the script. They are valuable in describing what a program does and explaining how it 
does it. While many programmers resist writing comments in their code, without comments the 
longevity of their code is reduced. For example, a very clever program may look like gibberish without 
comments that explain its operations. 


We've seen several styles for program commentary. Comments “blocks” can look like this: 


[BRRRRKRRRKEKEREKKREREREKEREKKE ERK RAE KEKE ER EK EER EKEKEREKEKKEKKKERKKKKEKKKKEREKKKE KK / 


/* RINDEX: This program finds the rightmost position of a byte in a string. nay 
[BRRRRRRERKEKERKKEKEREREKERKRKKEEKKRKEREKREREK EERE KEKE REKEKEKKKK KARR KKK EKKEKEREKKKE KK / 


Or, they can be coded like this, as a single long comment statement: 


[BRRRRKRREKEREREKREREREREREKKE RE KEKE REKREREKKEEREKKEREREKERKERKKEREEKKKREKKKEREKEKE KKK 


fe RINDEX: This program finds the rightmost position of a byte in a string. te 
RREKKKEKRKKKKERKKKEREREKERERKKERE KEKE KEKE EK KEE KKEKEREKEKKKKKKERK KKK KKKKEREKKKE KK / 
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Individual comments may appear on a line of their own: 

/* This routine finds the rightmost position of a byte in a string. | 
Or they can be trailing comments, appearing on the line of code they explain: 

square = a_number * a_number /* find the square of the number */ 
The main point of comments is: that you use them! So many programmers severely minimize program 
commentary that it compromises the value of what they develop. While their code was obvious to them 
when they developed it, without some English explanation those who maintain that code in the future 


are left clueless. Document while you program, or do it after you’re done. Just be sure you do it. 


For significant industrial programs, we minimally recommend a comment block with this information at 
the top of the program: 


[RRRRRERKRRERERREREREEE EK ERER EKER RE KEKE RE K KEKE EKRKERKKKEREKEREKKKKEREKEEEKEKEKE K / 


/* Program: fin_1640 Date: 08/06 i // 
ie By: H. Fosdick ay) 
Upset Zo); 
/* Purpose: Kicks off the nightly batch financial system. yf 
IPs 72, 
/* Usage: fin_1640 if 
/* Parms: none “if 
fpr 25); 
/* Inputs: (1) financial scheduler track (2) previous nite txn list gf 
/* Outputs: none directly, but 3 history files through called subroutines ca) 
fee a // 
/* Calls: all "fin_" package programs (14 of them, see Nightly Run List) yf 
(ps Si, 
/* Maintenance: Date By. inaioe eff 
ee 08/06 HF Created. i 
Fe 08/14 HF Updated DB2 error processing se 
es 09/12 BC Added job fin_1601 on abend Bs /i 


[RRREREKREREKKEEEKKAEREKKEREKKEKE RR KKKE EK EEE EKER ERK ER EKEKEREKRKEKEKKKAKEKKKERKEK KK / 


Every time a programmer changes the code he or she should be sure to add a comment on the change(s) 
made, to the “Maintenance” section of this comment block. 


Each internal or external function or subroutine should also have its own leading comment block. On 
one hand, assuming that the subroutines are small, this may be no more than a brief statement of pur- 
pose for the routine. On the other hand, if subroutines are large, or if they involve complicated interac- 
tions with other routines, their documentation should be correspondingly more detailed. In this case, 
documentation should detail input and output variables, file updates, and other changes the routine 
makes to the environment. 


Good comments carry intelligence. Poor comments do not add to the information already available in 


the program. Cryptic, codelike comments offer little value. Here are a few favorites, collected verbatim 
from production programs at IT sites: 
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/* Obvious to the casual observer */ 

/*yew, move the ting over there */ 

/* Add to the mess already created! */ 

/* Do NOT show this code to any manager !! */ 

pe not sure what this does, but suggest that you don't mess with it wi 
/* Don/t blame me I didnt write. it I just work here */ 


/*Think this is bad you should c my java.*/ 


While there is no way to scientifically assess the value of commentary, clearly some comments are more 
useful than others. 


Write Modular Code 


Modularity is fundamental to large programming systems that are maintainable and flexible. Monolithic 
code is almost always difficult to change or improve. Modularity limits the “breakage” that occurs from 
an incorrect enhancement because each module is small and performs a single, limited task. The unin- 
tended consequences or side effects of code changes are minimized. 


Modules also lend themselves to easier, more exhaustive testing than monolithic systems. A large pro- 
gram that consists of many small, well-defined routines is almost always a better program going for- 
ward than one that has fewer lines of code but less clear-cut interfaces between its larger, more complex 
modules. 


How does one best define modules? Some favor top-down methodologies which progressively refine the 
functionality of the modules. Others use any of the many automated design tools, such as AllFusion, 
Oracle Designer, the Information Engineering Facility, IBM’s Rationale tools, or others. Automated tools 
tend to enforce good design discipline and often embed guidelines for optimal program design or best 
practices. 


All internal routines (functions and subroutines) follow the main routine or driver in the source code file. 
The main routine should be clearly marked as such. The internal routines should optimally appear in the 
file in the same order in which they are initially referred to by the main routine. Subroutines that are 
invoked from within subroutines should appear in the source code listing immediately below the subrou- 
tine that invokes them. Widely shared subroutines can be collected in their own documented area. 


Beyond good modular design, variable scoping across routines is a major area for good program design 
that affects program reliability. 


The best approach is to code the procedure expose instruction at the start of each internal routine. 
This protects all variables that are not specifically listed from inadvertently being changed by the sub- 
routine. It also ensures that you know exactly which variables each subroutine requires, and documents 
this list for anyone maintaining the program in the future. 
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Should you use any global variables? Best practice says no. The risk is not to the programmer who first 
develops the code, but rather to any who must later maintain or modify it. The risk of breakage or unin- 
tended side effects rises exponentially when a large program uses many global variables, especially in 
languages like Rexx that allow variables to be defined by first use (rather than requiring declarations). 
This is because the person doing maintenance cannot be sure what variable names have previously been 
used or where. 


If you must use global variables, here are some suggestions: 


Define (declare) all of them in a single block at the top of the code. 
These variable definitions should initialize each variable. 


Precede all global variables with a common stem, such as global . 


Coo do 


Include a comment block to specifically identify this set of global variable declarations. 


Another approach is to pass information between all routines by a global stack. Essentially the stack 
becomes a control block or in-memory * . ini or configuration file that defines behavior and passes 
information. 


However you pass information between routines (procedure expose, input arguments, global vari- 
ables, or a global stack), be consistent across all routines in the program. Mixing modes in information 
passing almost guarantees future error during program maintenance. Our best recommendation is to 
code procedure expose for each internal routine, listing all variables used by that routine. 


Write Structured Code 


Structured programming requires only one entry point and one exit from any code block. The benefit is 
increased clarity and easier code enhancement and maintenance. Studies also show that structured cod- 
ing results in fewer errors. Writing structured, modular code provides a big payback and really helps 
you script Rexx with style. 


Chapter 3 discussed the control constructs used in Rexx for structured programming. Let’s review them 
here. These are the instructions you should use in your code in order to write structured programs: 


Structured Control Constructs 


if-then 

if-then-else 

do-end group 

do-while 

do n times 

do initialize-loop-counter to limit by increment 


select 
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Structured Control Constructs 


call 
return 


exit 


As a powerful general-purpose programming language, Rexx also supports unstructured control con- 
structs. Their use is not recommended as they fall outside the principles of structured programming. If 
you use any of the following instructions, as described in the following table, your code is unstructured: 


Unstructured Control Constructs 


Instruction Unstructured Use Use Instead 
signal Used as an unconditional GOTO if-then-else 

do-until Bottom-driven loop do-while 

do forever Endless loop requiring an unstructured exit do-while 

iterate By-passes statement(s) within a loop if-then-else 

leave Unstructured exit from a loop if-then-else, do-while 


The column on the right-hand side of this table shows the structured constructs that should be used to 
replace the unstructured ones on the left side. We recommend that you replace any instances of the 
unstructured instructions in the leftmost column in your code with their structured equivalents from the 
right-most column. 


Any unstructured control construct can be replaced by a structured one. Any pro- 
gram logic that can be written as unstructured code can also be written in structured 


form. 


Handle Errors 


Error-handling code greatly increases the robustness of an application. Scripts that omit the small 
amount of code it takes to include good error checking are greatly inferior to those that include it. 


Identifying and handling common errors allow an application to better adjust to its environment. It 
saves application users both time and confusion when scripts, at the very least, display a descriptive 
error message that explains unexpected conditions or failures. 


Why don’t all scripts check for and handle errors? Quite simply, it is quicker for most developers to pro- 


gram without including such “extraneous” coding. Unfortunately, developers do not often go back and 
add error checking to their scripts after the initial script is up and working. 
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The errors that scripts should check for fall into several categories. Here are the major categories of prob- 
lems for which your scripts should check and manage: 

Command results 

Interpreter-raised error conditions 

Return codes from interfaces 


I/O results 


Coo do 


Chapter 14 goes into how to issue operating system commands and verify that they worked. Scripts can 
check return codes from the commands and even parse their message outputs for further information. 
The condition traps for ERROR and FAILURE also capture errant commands. 


Remember that there are several other exception conditions scripts can trap, including HALT, NOVALUE, 
NOTREADY, SYNTAX, and LOSTDIGITS. Chapter 10 covers Rexx’s condition-trapping mechanism and how 
scripts use it to manage errors. 


Many scripts interface to external packages, for example, for graphical user interfaces (GUIs) or database 
storage. Always check the return codes from functions or commands that control external interfaces. A 
program that fails to recognize an interface error and blithely continues could cause a hard failure, a fail- 
ure that stops an application and leaves no clue as to what happened. 


Be sure to check the return string from the stream I/O functions. As listed in Chapter 5, some of these 
functions and their return strings are: 


charin— Returns number of characters read (0 if none were read). 
charout — Returns number of characters not successfully written (0 means success). 
chars — Returns a nonzero value if characters remain to be read. 


1linein— Returns a line read from a file, or the null string if no line exists to read. 


Coovco o 


1ineout — Return value varies by requested operation. For writing one line, a return value of 0 
means the line was successfully written, 1 means it was not. 


QO) lines — Returns a nonzero value if there is at least one line left to be read. 


Failure during charin or linein can result in raising the NOTREADY condition if some problem occurs. 
As shown in Chapter 10, this can be trapped by an appropriate error routine. 


And now, a mea culpa. The scripts in this book do not include robust error checking because we limit the 
size of the scripts for clarity. Including good error handling in all the scripts would be redundant and 
detract from what the scripts illustrate. If you’re coding in the workplace, we urge you not to take the 
easy way out but to code strong error checking. Industrial-strength programming requires complete 
error checking and a fail-safe coding approach. 
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Additional Suggestions 


There are many other suggestions to make for producing the most readable, maintainable, error-free 
code. In the sections that follow, we briefly discuss a few of the more widely accepted. Following these 
suggestions will make your code much more readable, maintainable, and reliable. Good programming 
practices are as much a part of the value of scripts as are the algorithms those scripts embody. 


Subscripts 


For looping control variables, use common subscript names like i, j, and k. These should always be set 
explicitly at the start of the loop: don’t make assumptions about whether a loop control variable has 
been used previously in the code or what its value is. Also, do not use these subscripts for other pur- 
poses. Limit their use to subscripting and use more descriptive variable names for other purposes. 


A classic scripting error is to use one of these common variables as a loop control variable, and then 
assign it another value for another purpose inside the loop! While this may sound like silly mistake to 
make, it indeed happens in large programs or in situations where many developers maintain a single 
program. Another classic error is to use the same subscripting variable for an outer loop and for an inner 
loop nested within the outer loop. This produces “interesting” results in the behavior of the outer loop! 


To summarize, our recommendations for loop-control subscripts are: 


Q ~~ Explicitly initialize them at the top of each do loop in which they are used. 
Q = Donotalter them within the loop (let the do instruction increment them). 


Q) Use your set of subscripting variables only for subscripting. 


Quotation marks for commands 


Chapter 14 explores in detail how to issue operating system commands from within scripts. That chapter 
demonstrates how to issue OS commands, how to send them input and retrieve their output, how to rec- 
ognize and identify commands that fail, and a host of other important related topics. This section sum- 
marizes a few rules of thumb for limiting errors in scripts that issue operating system commands or 
commands to other external interfaces. 


Some programmers always enclose the operating system commands within their scripts within quota- 
tion marks. This readily identifies where OS commands occur within scripts. Other developers prefer 
not to enclose operating system commands in quotation marks, unless they must in order to avoid 
Rexx’s evaluation of the expression before passing it to the operating system. This produces readable 
code because it is less cluttered with quotation marks. Either approach works fine. We recommend con- 
sistency with whichever you choose. 


Try to avoid double-nesting quotation marks. Especially in mainframe scripting, you'll sometimes see 
complex nesting of quotation marks that is really not necessary. 


It is better to build a command string through several simple statements than to dynamically concatenate 


a complex command in a single statement. Also, it is easier to debug commands that are built within vari- 
ables: Simply display the variable’s contents to the screen and see if it appears as a valid command. 
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Here is an example. This statement builds a character string that will be an input argument to a function: 


sqlstr = "insert into phonedir values('" || Iname || "'", 
more | | phone mryn 


The string concatenated into the variable is syntactically complex. If we want to ensure that it is correct, 
we could issue a simple say statement to display the value on the screen: 


say sqlstr /* display string on screen to verify accuracy */ 


Here’s the interface command in which this character string is used. You can see that building the com- 
mand component separately is way easier than if we had actually nested it within this statement: 


if SQLCommand(il,sqlstr) <> 0 then sqlerr('During insert') 
To summarize, our recommendations for building commands and function strings are: 


QO) Build them in several simple steps, not in one complicated statement. 


Q ~Build them in a variable, which can easily be displayed and verified. 


Q = Avoid cluttering command statements with superfluous quotation marks. 


Consider declaring all variables 


Some developers find it clear to define or declare all variables in advance and initialize them at that 
time. In large programs, it can otherwise be difficult to locate the first use of a variable or tell what it was 
initialized to. 


This code snippet illustrates this principle. Here we assume that we have a very large script, and the 
declaration of all global variables at the top of the program helps document and explain their use. 
Separating the global variable definitions from the start of program logic segments the program into 
more readily understood components. Each variable in the program is initialized to some value, which 
makes it easy to find the initial setting for any variable: 


[RRREKRRRREEKEKERERKERKKERERERKEKERE RRR EK RAKE RE KEKERKKREREKEEEEKKREREKEKEKKKEKEREK EK / 


/* Variable Declaration and Initialization Section rh 
[RERRRERKRREKKERERE KEKE REE EERE KEK KKK EKER KK KEKE KKEK EKER ERE KKEREK KKK EKEKEREKKEER KK / 
global.number_of_current_block = 1 /* block on the pass list x /, 
global .blocks_processed = 0 /* blocks processed so far ee 
global.split_blocks = 0 /* blocks split due to update overflow */ 
fe further variable declarations appear here... ay 


[RRRRRERKRREKKEREREKEKERKEKEREKEKK KKK KE RKK KEKE EKER KEKE KARR KKEREKKERKEKKKEREKEKE KK / 


/* Main Routine: ae 
[RRR RREREREERERREREKEEER KEKE KR EKEREKK KARR EKER ERE KRER ERE RERE KARR KEK RAR EKKKEREKEKE KK / 


if global.memory_blocks_allocated >= (global.seg_count * global.block_size) 


By splitting out the definition and initialization of all variables prior to the “main routine,” the program- 
mer makes the entire program clearer and better modularizes program activity. 
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Rexx-aware editors 


Some editors are Rexx-aware. They highlight elements of the language in different colors and assist in 
indenting code. Rexx-aware editors make your job easier because they highlight the structure of scripts 
by color-coding and indentation. We recommend using these editors if you have the opportunity, 
because they tend to reduce error rates and make coding quicker and easier. 


Examples of Rexx-aware editors include: 


Q THE (The Hessling Editor) for Linux, Unix, Windows, and other platforms 
Q The Rexx Text Editor (or RexxEd), which is distributed along with Reginald Rexx 
Q The Interactive System Productivity Facility, or ISPF, on the mainframe 


QO) =XEDIT on the mainframe 


Publish site standards for coding style 


Consistency within a program is key to its readability. Consistency across all programs at a site extends 
this virtue to the code asset owned by the company or organization. Many organizations consider devel- 
oping, disseminating, and enforcing such standards fundamental to the value of their code base. 


The keys to the viability of site coding standards are that they are easily accessed by the developers and 
that management holds the developers accountable to scripting to the standards. Standards can be made 
readily accessible by publishing them on a corporate intranet or placing them on a shared local area net- 
work drive. Programmers should be able to access the standards in the normal course of their work with 
little or no extra effort. 


Developers can be held accountable to corporate standards by several means. Two of them, automated 
checking tools and code reviews, are discussed in the following sections. 


Consider automated tools to ensure standards compliance 


Consider purchasing or developing automated tools to enforce good program documentation and style. 
Simply promulgating site standards is of little value unless those standards are adhered to. Automated 
tools are one means to ensure that this happens. 


Here is a very simple example of “automation” in the service of standards. One site keeps a set of docu- 
mentation templates on a shared departmental disk drive. Programmers copy each template, and fill in 
the blanks to document their applications. This ensures developers provide all the required documenta- 
tion elements, and at the same time, makes it easier on the developers because they do not have to worry 
about designing the structure of the documents. By completing what is already provided, programmers 
both meet the documentation standards and do so with the least effort. 


Consider code reviews 


In the absence of automated tools, code reviews (having one’s code looked over by a peer) can be a way 
of administratively enforcing good programming practice or sitewide programming standards. Several 
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formal methodologies optimize code reviews, including structured walk-throughs and joint application 
development techniques. A quick Web search on either of these terms will give you good beginning infor- 
mation about what they entail. 


While many programmers don’t care to have their code checked in this manner, code reviews are a 
proven technique to ensure conformance to site standards and more reliable code. The “egoless pro- 
gramming” promoted by code reviews tends to render applications more maintainable and prolong 
their life. 


Avoid Common Coding Errors 


Some of the most common coding errors in any programming language derive from odd or hard-to- 
remember syntax and coding detail. Fortunately, using Rexx results in fewer errors of this nature than 
many languages because of its spare, clean style. 


Nevertheless, a few coding errors are common among Rexx programmers, especially those new to the 
language. This brief section lists the more common errors you'll encounter. 


Failing to end a comment 


Each comment starts with the two characters /*. Be sure to code the corresponding ending characters 
*/, Otherwise, the rest of your script becomes one long comment! Also, the two characters /* and */ 
must be immediately adjacent one another with no intervening blank. 


Failing to end a literal string or parenthetical expression 


For each single or double quotation mark, there must be a corresponding end quotation mark. This rule 
applies to parentheses as well. For each left parenthesis, there must appear a corresponding right paren- 
thesis later in the code. 


Improper coding of functions 


When invoking functions without the ca11 instruction, the left parenthesis must immediately follow the 
function name: 


fd = function_name(argument1, argument2) /* No space prior to first paren ( */ 


Forgetting that functions return a string 
A function returns a value. If you code the function as the only item on a line: 
function_name (argument1) /* nowhere for the result string to go ! */ 
the value it returns has to go somewhere. Where Rexx will send it is to the default command environ- 


ment. Thus if the function above returns a value of 1, this string will be sent to the operating system for 
execution! 
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One solution is to capture the result string in a variable: 


feedback = function_name(argument1) /* result string goes into FEEDBACK */ 


Another approach is to invoke the function by the cal1 instruction so that the special variable result 
can capture the result string: 


call function_name argument1 /* RESULT contains the result string */ 


Using parentheses on call 


Do not enclose arguments to the call instruction in parentheses. This statement is incorrect: 


call subroutine(argument1, argument2) /* K INCORRECT ! */ 
Here is the correct way to code this statement: 
call subroutine argumentl, argument2 P Coiwiceeic a 


This is an easy mistake to make because when you encode an embedded function you always immedi- 
ately follow it by parentheses. A cal1 is different in this respect. 


Failure to use commas on call or in parse arg 


While parentheses are not needed, commas to separate input arguments to a routine are (see the above). 
Commas must also be coded between the arguments referred to in the parse arg instruction: 


parse arg argumentl , argument2 


Confusing command-line arguments with internal routine 
arguments 


As in the preceding example, retrieve arguments passed in to internal routines by using the arg or 
parse arg instruction and variables separated by commas. Contrast this to command-line arguments, 
which are retrieved into a routine by the same instructions but without separating commas: 


parse emd_line_arg_1 cmd_line_arg_2 


The arg() function tells how many parameters were passed into an internal routine. It only returns 0 or 
1 when applied to command-line arguments. 


Global variables 


Global variables are convenient when first developing a large program but significantly reduce reliabil- 
ity as that program undergoes enhancements and maintenance. Code procedure expose for each 
internal function or subroutine. 
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Forgetting return or exit 


Remember to code the return instruction when a subroutine ends to send control back to the caller. 
Functions must return a string to the caller; subroutines may optionally do so. Be sure to encode the 
exit statement at the end of the main routine and prior to any subroutines and functions that follow it, 
so that the flow of control does not inadvertently “roll off” the end of the program into the internal rou- 
tines placed after it. 


Forgetting about automatic uppercase conversion 


Instructions pull and arg automatically convert input to uppercase. This is convenient but must be 
kept in mind when later using those strings in comparisons; compare those strings to their uppercase 
equivalents. If uppercase translation is not desired, code parse pull and parse arg instead. 


Uppercase translation can be particularly tricky when reading in filenames. Under operating systems 

like Windows or DOS, filenames are not case-sensitive. However, operating systems like Linux, Unix, 
and BSD use case-sensitive names. Having the user input these filenames when running under Linux, 
Unix, or BSD means that your program must use parse arg or pull arg to read them. arg or pull 

alone translates the filenames to uppercase, which likely produces incorrect filenames. 


Another place to remember about automatic uppercase translation by the interpreter is with variable 
names and values. Rexx uppercases variable names internally, and it will also uppercase character 


strings that are not enclosed in quotation marks. Several sample scripts in Chapter 4 relied on these facts 
to work properly. 


Incorrectly continuing a statement 


Rexx uses the line continuation character, the comma (, ), to separate items in a list as well as for line 
continuation. Rexx interprets this coding: 


a = max(1, 3, 5, 
7, 9) 


as: 
a = max(1, 3, 5 7, 9) 


Correct this by recognizing that you need one comma to separate every item in the list as well as an 
extra comma for line continuation: 


Te 99 /* correct */ 


We suggest surrounding commas with spaces or blanks for enhanced readability. 
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Failing to use strict comparisons 


Remember that in a character string comparison, Rexx ignores leading and/or trailing blanks and blank- 
pads the shorter item in the comparison as necessary. Use the strict comparison operators like strictly 
equals ( == ) when strings must be precisely compared on a character-by-character basis, without Rexx 
making assumptions concerning spaces or padding. 


Incorrectly coding strict comparisons for numbers 


Strict comparisons make sense only in comparing strings and should not mistakenly be coded when 
comparing numeric values. 


Summary 


Good coding style is often a matter of preference. Nevertheless, there are a few rules of thumb that ren- 
der scripts more readable and maintainable. We've discussed some of the generally accepted ones in this 
chapter. These include the proper use of capitalization, good variable naming, proper spacing and 
indentation, extensive code commentary, structuring and modularizing code, and robust error and 
exception handling. 


We also listed a few common coding errors and how to avoid them. Learning to avoid these errors in 
your coding will quickly reduce the time you spend in debugging and testing your scripts. Some of the 
most common errors include incorrectly coding the invocation or return from routines and functions, 
improperly passing or reading arguments or parameters, and failing to terminate comment blocks or 
encode line continuations. 


While many developers style themselves as “heavy-duty techies” — and write obscure code to prove it— 
the best programmers write the most readable code. Their scripts feature lower error rates, are 
easier to enhance and maintain, and remain useful longer. We urge readers to take the stylistic 
concerns highlighted in this chapter to heart and write code that conforms to best practice. 


Test Your Understanding 


What is “the virtue of consistency” when applied to programming practice? 
Why do some programmers deeply nest functions? What is the downside of this practice? 
What makes a “good” comment in a script? What are the three styles of commenting scripts? 


What are the basic principles of modularity? Of structured programming? 


oP SMP 


What's wrong with do-until loops and the signal instruction used as a GOTO? With what 
should you replace these two constructs? 


6. What makes a “good” variable name? Why is good variable-naming important? 


7. Should you use global variables? Why, or why not? 
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Overview 


One of the great advantages to Rexx is that it runs on every available platform, or hardware/oper- 
ating system combination. Rexx scripts run on handheld devices, laptops, PCs, midrange servers 
of all kinds, all the way up to the largest mainframes. 


This book covers the major Rexx interpreters. All are either free or open source or come bundled 
with an operating system. All support classic Rexx, the form of the language standardized by TRL- 
2 and later by the ANSI-1996 standard. Additionally, there are Open Object Rexx and roo!, true 
object-oriented supersets of classic Rexx, and NetRexx, a Rexx-like language for developing appli- 
cations in the Java environment. Figure 13-1 below shows how object-oriented Rexx interpreters 
and NetRexx evolved from classic Rexx. Beyond these free implementations and variations, there 
exist several commercial implementations as well. 


The Evolution of Rexx 


Object-oriented Rexx 


Early 1980s Mid 1990s 


"Classic" 
Rexx 


NetRexx 
Figure 13-1 
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Rexx’s ubiquity and standardization have two implications. First, this means that your knowledge 
applies to a broad range of platforms. If you know how to code Rexx scripts on a PC, you can do it ona 
mainframe. If you program Rexx under Windows, you can do it under Linux, Solaris, VM, or any of 
dozens of other operating systems. In learning Rexx, you acquire a broadly applicable skill portable 
across numerous environments. 


The second advantage to ubiquity and standardization is code portability. For example, a script could be 
developed under Windows and then run under Unix. Code can be designed to be platform-independent, 
leading to savings for organizations that support diverse platforms. Different kinds of problems can be 
addressed by scripts hosted on different platforms. One could develop scripts in one environment and 
run them in another. 


Code portability is not a given. Regardless of language standards, there are still different platform- 
unique characteristics that intrude upon this goal. This chapter points out some of the factors affecting 
code portability and how to address them when writing Rexx scripts. 


Whether code portability is desirable depends on your goals. In most cases, creating scripts that are com- 
patible across many operating systems, platforms, and Rexx interpreters restricts the use of the language 
to its standard capabilities. It forgoes the power of language extensions and OS-unique features beyond 
the Rexx language standards. Writing and testing portable code also typically involves extra effort. This 
chapter does not argue for code portability — whether portability is desirable depends on your own 
needs. The purpose here is simply to offer guidance where portability is a goal. 


To provide this guidance, the chapter covers several key topics. First, we discuss some of the factors that 
affect code portability. These orient you as to how easy (or difficult) it may be to achieve portability in 
different application projects. Next, we discuss the various Rexx standards. Understanding what these 
standards contain and their slight differences helps you achieve portable scripts because you'll know 
better what it means to “code to the standard” if you know what the standards define. 


After this, we discuss how scripts learn about their environment. This underlies portability. Only the 
environmentally aware script can act in ways that support its portability. We start by reviewing various 
functions and features of Rexx that the book has already covered, but this time we view them through a 
new lense — how can they aid portability? We also introduce new instructions and functions whose 
main purpose is environmental awareness. Then, we demonstrate some of the principles of portability 
with a script that intelligently determines the platform and interpreter it runs under. This is the core 
requirement of a portable application: the ability to query and understand the environment in which it 
executes. 


We conclude the chapter with a more detailed discussion of the techniques and challenges of portable 
code. This addresses Rexx tools and interfaces, and the manners in which they can enhance (or detract) 
from portable scripting. 


Factors Affecting Portability 


Your knowledge of Rexx is widely applicable across platforms because humans have the ability to dis- 
cern (and allow for) minor differences. Programs, of course, have no such capability unless it is explicitly 
recognized and coded for. 
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There are several factors that affect code portability. 


First is whether the code stays within the Rexx standards. Code that remains within the ANSI-1996 stan- 
dard will be most portable. Better yet, code within the slightly more narrow TRL-2 standard definition, 
since many Rexx implementations were designed for TRL-2 and do not address the minor ANSI-1996 
improvements. Later in this chapter we summarize the evolution of Rexx standards and the minor dif- 
ferences between them. 


The second factor that affects the portability of Rexx scripts across platforms is whether the developer 
considers code portability a goal during program design and development. Sometimes it is quite possi- 
ble to make choices that provide a higher degree of code portability without any extra effort — all that 
is required is that the developer recognize the nuances of code portability in his or her program and 
address them up front. 


Take, for example, file I/O. Recall that Chapter 5 illustrated both line-oriented and character-oriented 
I/O. Both are implemented through a set of instructions and functions that are all well within all Rexx 
standards. Yet scripts making certain assumptions when using character-oriented I/O will be less 
portable than those using line-oriented I/O (since character I/O reads the line-ending and file-ending 
characters that vary across operating systems). This is a simple example where code can be made much 
more portable at the mere price of understanding platform differences. 


Perhaps the biggest factor affecting code portability is the degree to which the script issues operating 
system commands. This is one of the major uses of Rexx, of course, and operating system commands 
vary by the OS. 


Recognize that the OS’s under which the script is to run affect how portable that script can be. For exam- 
ple, Windows is a family of like operating systems. It is easier to write a script to run under different ver- 
sions of Windows and to issue Windows commands than it is to write a script that issues both Windows 
and Linux commands and runs under both Windows and Linux, for example. Cross-platform portability 
is always easier when the operating systems involved are similar, such as those within a single operating 
system family. Portability across all forms of Windows or across all varieties of Linux is easier than 
achieving portability across Windows and Linux. 


The nature of the commands the script issues affect its portability. If you write a script that runs under 
the three major varieties of Unix (Oracle Solaris, IBM AIX, and HP HP/UX), the higher-level commands 
are common across these three OSs. By higher-level, we mean Unix commands that meet generally 
accepted Unix System standards. The lower-level commands diverge among these three versions of Unix. 
They become unique and system-dependent. Lower-level commands include, for example, those of the 
proprietary volume managers used in these three systems. Another example is parameters that 
configure the Unix kernel. 


Foreknowledge of the environments in which a script will run is a key determinant in how much effort 
it costs to make the code portable. The developer can design and modularize code to address the target 
operating systems. He or she can isolate OS-specific code to certain places within the program, and 
avoid literal command strings in favor of building them within variables, for example. Retroactively try- 
ing to impose code portability on a working script that was designed without this goal in mind is always 
more difficult and always costs more. 
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How many operating system commands a script issues (and how OS-specific those commands are) 
determine how portable code is and how much effort portability takes. A script that performs a generic 
task independent of operating system should be highly portable. The scripts in this book provide exam- 
ples. Up to this chapter, only one executed an operating system command (the Windows cls command 
to clear the display screen). It was easy to test these scripts under both Windows and Linux. The next 
chapter goes into more detail about how to issue commands from Rexx scripts to the operating system. 
Since these scripts are oriented toward issuing OS commands, they are much more bound to the plat- 
form for which they were developed and run. The rule of thumb is: generic tasks can be coded to be run any- 
where, whereas OS-specific tasks will always present a challenge if code portability is a goal. 


Finally, many Rexx programs interface to outside packages, for example, for user interaction through a 
GUI or data storage via a database management system. The following chapters describe and illustrate 
some of these interfaces. Interfaces present another portability challenge. Some interfaces are themselves 
designed to be platform-independent, so they make scripts more portable. Other interfaces are platform- 
dependent and so render scripts that use them platform-specific. Consider the costs as well as the bene- 
fits of any interface before deciding to use it in your scripts. 


Rexx Standards 


Outside of limiting the operating system commands your script issues and sticking to cross-platform 
interfaces, the biggest action you can take to develop portable code is to code within the Rexx standards. 
This section describes these standards in more detail as well as the manner in which they evolved and 
the differences between them. Understanding the standards and their differences enables you to code for 
greatest portability. 


Figure 13-2 shows the evolution of Rexx and its standards. 


Rexx Standards 


Early 
1985 1990 90s 1996 
| | | 
TRL-1 TRL2 SAA ANSI 
3.50 4.00 5.00 Baneusee 
Level 


Figure 13-2 
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This table summarizes the four Rexx key standards and when each was promulgated: 


Standard Date Language Level 
TRL-1 1985 3.50 

TRL-2 1990 4.00 

SAA 1992 -- 

ANSI 1996 5.00 


Michael Cowlishaw, the inventor of Rexx, wrote his definitive book The Rexx Language: A Practical 
Approach to Programming in 1985. He produced this book after several years of feedback on Rexx from 
the thousands of users connected to IBM’s VNET network (an internal IBM network that presaged the 
Internet). The result was that the original Rexx language definition embodied in TRL-1 was remarkably 
complete, mature and stable. 


Mr. Cowlishaw issued the second edition to his book, called TRL-2, in 1990. TRL-2 lists the changes it 
makes over TRL-1 in an appendix. There are 33 changes that take only four pages to describe. Many of 
the changes are highly specific “minor additions” more than anything else. The major improvements are 
summarized below. 


Major TRL-2 Standard Additions to TRL-1 


Input/output — The stream function is added for greater control over I/O, and it 
and the NOTREADY condition offer greater control over I/O errors. 


Condition trapping — In addition to the NOTREADY condition, the condition func- 
tion provides more information to error routines. The signal and call 
instructions can refer to named trap routines (previously the names of the trap 
routines were required to be the same as the name the condition they handled). 


Binary strings — Binary strings are added as well as several conversion functions 
that apply to them: b2x and x2b. 


More specific definitions — TRL-2 tightens up the definitions of TRL-1 where neces- 
sary, providing a more accurate language definition for interpreter writers. There are 
also many very small miscellaneous changes. 


Rexx interpreters that conform to the language definition of TRL-1 are said to be of language level 3.50. 
Those conforming to TRL-2 are at language level 4.00. 


IBM defined and published its Systems Application Architecture standard, or SAA, in the early 1990s. The 
goal of SAA was to increase code and skills portability across IBM’s diverse operating systems. As part 
of this effort, IBM identified Rexx as its common procedures language across all its operating systems. This 
had two effects. First, IBM ensured that Rexx was available and came bundled with all its operating sys- 
tems. This not only included mainframe operating systems in the OS, VM, and VSE families, but also 
included systems such as IBM i and i5/OS. The second effect of SAA was that IBM converged the fea- 
tures of its Rexx implementations across its platforms. TRL-2 (and its VM/CMS implementation) formed 
the common base. 
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An American National Standards Institute, or ANSI, committee embarked on standardization of Rexx 
beyond that of TRL-2 in the early 1990s. The committee completed its work in 1996 with the publication 
of the Rexx standard X3.274-1996. This standard is commonly referred to in Rexx circles as ANSI-1996. 
The ANSI-1996 standard makes only minor language additions to the TRL-2 standard. The primary con- 
tributions of the ANSI-1996 standard to Rexx are below. The language level of ANSI-1996 is 5.00. 


Major ANSI-1996 Standard Additions to TRL-2 


ANSI legitimacy — Confers the prestige and imprimatur of an international standard 
upon Rexx. ANSI is the main organization for standardization of programming 
languages. 


A few new features — ANSI-1996 adds a few language features where they are 
nondisruptive to existing scripts and earlier standards. These include, for example, 
the new built-in string manipulation functions changestr and countstr, and the 
new trap condition LOSTDIGITS. The date and time functions are enhanced to per- 
form conversions in addition to just reporting the date and time. A few more special 
variables are added (.rc, .rs, .result, .mn, .sigl). 


Data left to read — The chars and lines functions previously returned the number 
of characters or lines left to read on the input stream. Determining these values 
could consume much time for large files. ANSI-1996 allows the returning of 1, mean- 
ing “some undetermined number of characters or lines are left to read.” The lines 
function has two options: c, which returns the number of lines left to read in the 
file, and N, which allows a return of 1 for one or more lines left to read and 0 if there 
are no lines left to read. For backward compatibility, N is the default. 


Command I/O — ANSI-1996 more accurately defined how input is sent to commands 
and how command output and errors are captured. These are reflected in enhance- 
ments to the address instruction and address function. The address instruction 
now includes keywords input, output and error to manage communication 
to/from the operating system or other external command execution environment. 
The address function can return the setting of these three new keywords. Chapter 
14 illustrates how to use the address instruction and address function. 


More precise language definition — Provides a more precise definition of Rexx 
beyond that provided by TRL-2. TRL-2 defines Rexx in book form, readable by the 
typical software developer or IT programmer. The ANSI-1996 standard is written in 
a format designed for those who need the precise definition necessary to create a 
Rexx interpreter or assess whether a specific interpreter meets international stan- 
dards. The ANSI-1996 standard is more rigorous than TRL-2 but less readable for 
the average developer. 


Nearly all Rexx implementations meet the TRL-2 standard. Many also either meet the ANSI-1996 stan- 
dard or are being enhanced to meet it. To rephrase this in terms of the “language level,” nearly all Rexx 
implementations meet or exceed language level 4.00 and some achieve 5.00. The main exceptions to this 
rule would be those Rexxes that were purposely designed as “language variants,” for example, NetRexx. 
Rexx thus features a strong, well-defined and widely adhered to language standard. Coding to it greatly 
increases code portability. 
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All the programs appearing to this point in this book conform to the TRL-2 and ANSI-1996 standards. In 
the upcoming section of this book on “Rexx Implementations” we cover some of the implementation- 
and platform-specific aspects of various Rexx interpreters. Subsequent chapters on interfaces to outside 
packages (like databases, the Tk GUI, XML and the like) also go beyond the Rexx standard, because they 
are not part of the language. 


One big factor in Rexx’s success as a widely used scripting language is that it was defined rigorously by 
a highly readable book, TRL-2, relatively early in its history. Yet this language definition was published 
after the language had reached a full, stable state. Compared to many programming languages, Rexx 
was lucky in this regard. The popularity of some programming languages suffers because they become 
widely implemented before a standard solidifies; other languages quickly gain a standard but this 
occurs before the language gains all the necessary features. Rexx programmers benefit from this happy 
history with much more standardized and portable code than many other languages. 


The bottom line is that to render your scripts as standardized and as portable as possible, all you need 
do is code to the TRL-2 and ANSI-1996 standards. This section spells out exactly the differences between 
the major Rexx standards. Combined with information from your Rexx interpreter’s manual, this knowl- 
edge makes it much more possible to code portable scripts. 


How a Script Learns about Its Environment 


We've mentioned a few factors that affect code portability. Underlying this is the script’s ability to learn 
about its environment. To issue operating system commands in a cross-system manner, for example, the 
script needs to be able to determine under which operating system it runs. The script might also need to 
know about how it was invoked, the version and language level of Rexx running it, the date and time, 
and other bits of environmental information. This section addresses this need. First we'll repeat (but con- 
solidate) instructions and functions that provide information to scripts that have been discussed in previ- 
ous chapters. Then we'll get into new material showing how scripts retrieve environmental information 
critical to their knowledgeable interaction with their environment in a cross-platform manner. 


As covered earlier in Chapter 8, a script learns its input arguments or parameters through these two key 
instructions: 


Qo parse arg— Access input parameters (without automatic uppercase translation) 


Qo arg—Access input parameters (with automatic uppercase translation) 
arg is just the “short form” of the instruction: 
parse upper arg [template] 
The arg function can: 


Q Tell how many input arguments were passed — Coded as arg () 


Q) Tell if the nth argument exists — Coded as arg(n,'E') 


Q Return the nth argument (assuming it exists) — Coded as arg (n) 


A number of built-in functions allow scripts to access environmental information. Scripts that issue these 
functions without any arguments retrieve environmental information: 
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Function 
address 
date 

digits 

fuzz 

form 


sourceline 


time 


trace 


Environmental Information Returned 


Returns current default command environment, or, returns the current input, 
output, and error redirections. 


Returns the date in any of a variety of formats based on the input parameter. 
Returns numeric precision. 
Returns precision for numeric comparisons (the fuzz factor). 


Returns whether current format for exponential numbers is SCIENTIFIC or 
ENGINEERING. 


Returns the total number of lines in the source script, or returns a specific line if a 
line number is supplied as an argument. 


Returns local time in 24-hour clock format. A variety of options allow the time to 
be returned in any desired format. Can also be used to measure elapsed time (as 
an interval timer). 


Returns the current trace level. 


Many of these functions can also be used to set operational characteristics by supplying input argu- 
ments. We’ve seen examples of all these functions except for date and time. 


The stream function is also useful for retrieving information about I/O operations and the I/O environ- 
ment. Most Rexx interpreters provide for a much broader use of the stream function than the Rexx stan- 
dards minimally require. This transforms the stream function into a general-purpose mechanism for 
retrieving I/O information, controlling I/O devices, and issuing I/O commands. All interpreters mini- 
mally support these two stream options: 


QQ =p (Description) — An implementation-dependent description of I/O status 


Q)  s (Status) —The state of the stream: ERROR, NOTREADY, READY, or UNKNOWN 


Individual I/O operations return values that indicate whether the I/O operation was successful. Take a 
new look at the I/O functions from the perspective of their return values and the information these carry: 


1/0 Function 


charin 
charout 
chars 
linein 


lineout 


lines 
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1/0 Information Returned 


Returns the number of characters read (0 if none were read). 

Returns the number of characters not successfully written (0 means success). 
Returns a nonzero value if at least one character remains to be read. 

Returns a line read from a file or the null string if no line exists to read. 


Return value varies by requested operation. For writing one line, a return 
value of 0 means the line was successfully written, 1 means it was not. 


Returns a nonzero value if there is at least one line left to be read. 
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The chars and lines functions may return either the exact number of characters or lines left to be read, 
or 1, indicating that some unspecified number of characters or lines remain to be read. The ANSI-1996 
standard permits the interpreter flexibility in this regard. The trade-off is between providing precise 
information about the amount of data left to be processed in the file versus the performance overhead of 
calculating this value. 


Trap or exception routines help script writers managed I/O errors raised by the NOTREADY and SYNTAX 
conditions. signal on orcall on instructions enable trap routines you write in the program. Trap rou- 
tines can be used to handle these error conditions: SYNTAX, HALT, ERROR, FAILURE, NOVALUE, NOTREADY, 
and LOSTDIGITS. These built-in functions provide useful information to trap routines: 


Function Feedback to the Error Routine 


condition Returns the name of trapped condition, a textual description of the con- 
dition, how the trap routine was invoked (call or signal), and the cur- 
rent state of the trapped condition (ON, OFF, or DELAY) 


errortext Returns the textual error message for a given Rexx error number 


sourceline Returns the number of lines in the source script, or a specific line if a 
line number is supplied as an argument 


trace Returns the current trace level, or can be used to alter it 


All these functions can be coded anywhere in Rexx scripts except for condition, which specifically 
returns information about the current trapped condition and is thus not likely to be useful outside of a 
trap routine. 


Several important Rexx special variables provide information both to trap routines and throughout Rexx 
scripts. The three special variables in the TRL-2 standard are uninitialized until an event occurs that sets 
them: 


Special Variable Meaning 
rc The return code from a host command, or a Rexx SYNTAX error code. 
sig] The line number that caused control to jump to a label. This could be set 


by the transfer of control caused by a trapped condition, or simply by a 
regular call to an internal routine or invoking an internal function. 


result The string sent back to a calling routine by the return instruction. If 
return is coded without an operand, result is set to uninitialized. 


Previous chapters in this book have mentioned most of these sources of information for Rexx scripts. 
Our intent here is to consolidate this information, then build upon it and combine it with new features to 
show how you can write portable scripts. Now, let’s move on to adding new sources of environmental 
information: the parse source and parse version instructions. 
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The parse source instruction provides three information elements. They are listed in this table: 


parse source Information Element Meaning 
system A single word for the platform on which 
the script is running. Often cites the 


operating system. 


One word that indicates how the script was 


invocation invoked. Often returns COMMAND, 
FUNCTION or SUBROUTINE. 
filename The name of the file containing the Rexx script 


that is running. Usually this is a fully qualified 
file name conforming to the conventions of the 
operating system on which the script is running. 


Here’s sample code that shows how to retrieve this system information: 


parse source system invocation filename 
say 'System:' system 'Invocation:' invocation 'Filename:' filename 


The output of this code, of course, depends on the platform on which it is run. Here’s an example of the 
output generated when this code runs under Regina Rexx on a Windows system: 


System: WIN64 Invocation: COMMAND Filename: C:\Regina\pgms\parseenv.rexx 
The same statements run under many Linux distributions with Regina yield: 
System: UNIX Invocation: COMMAND Filename: /regina/parseenv.rexx 


This output is system-dependent (which is the entire point!). By retrieving it the script can understand 
on which platform it is running. The script also knows the filename containing its own code and the 
manner in which it was invoked. Of course, the filename will represent the file-naming conventions of 
the operating system on which the script runs. For example, Windows filenames will have backslashes 
between directory levels, while Linux, Unix, and BSD will contain forward slashes between directory 
names. 


The system or platform keyword is most significant. Table L-1 in Appendix L lists common values for 
the system data element for popular Rexx interpreters running on various platforms. It also contains a 
script you can run on any system to return these environmental values. Using code like this cues your 
script into these platform differences. 


The parse version instruction tells the script about the Rexx interpreter that is running it. While 
parse source yields basic platform information, parse version supplies basic interpreter informa- 
tion. This can be used, for example, to figure out in real time which Rexx features will be supported or 
which version of an interpreter is being used. Here are the parse version data items: 
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parse value Information Element Meaning 
language Interpreter name and version 
level The language level this interpreter supports, 


according to the Rexx language levels described 
earlier in this chapter (e.g., 3.50, 4.00, 5.00, or 
similar identifier) 


date Along with month and year, describes the 
release date for the interpreter 

month See date 

year See date 


Here’s an example of how to code to retrieve this information: 


parse version language level date month year 
say 'Language:' language 'Level:' level 'Date:" date 'Month:' month 'Year:' year 


When run under Windows with Regina Rexx, here is sample output: 


Language: REXX-Regina_ 3.9.6(MT) Level: 5.00 Date: 29 Month: Apr Year: 2024 
Running the statements on many Linux distributions with Regina yields output like this: 


Language: REXX-Regina_3.9.5(MT) Level: 5.00 Date: 25 Month: Jun Year: 2022 


The level is especially important because it tells the script what Rexx features it can expect to see. The 
script could execute different code appropriate to the particular interpreter under which it runs to fulfill 
its tasks. 


The language allows the script to dynamically adapt to any known peculiarities or extensions offered 
by specific Rexx interpreters. Chapters 20 through 30 describe many of these extended features and how 
to use them. 


After collecting information from parse source and parse version, a script usually knows enough 
about its environment that it can issue operating system commands appropriate to the platform on 
which it is running. By running different statements or modules based on the platform, scripts can be 
rendered platform-independent. 


Another step is often useful. Based on the parse source system feedback, issue an operating system 
command appropriate to the OS that provides more information on its version and release level. For 
example, under Windows and DOS systems, execute the ver (version) command. For all forms of 
Linux, Unix, and BSD, run the uname command (such as uname ~-a ). The script can capture the 
feedback from these commands and know exactly what operating system it is working with. (An error 
return code from the command shows that the script was not on track with the command it executed.) 
This can be trapped by an exception condition routine if desired or simply addressed by analyzing the 
command return code. 
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To this point, we have discussed a variety of instructions and functions that can aid in writing portable 
code. Some of these functions were introduced in earlier chapters in different contexts, while others are 
newly introduced in this chapter. All are useful to writing portable code because all supply environmen- 
tal information to scripts. Now, we need to look at an example program that shows how to synthesize 
this information into portable code. 


This example program determines the Rexx interpreter under which it runs and the Rexx standards for 
that interpreter. This is a key ability portable scripts must have: the ability to determine how they are 
being run and under which interpreter. In this instance, the script expects to see the Regina interpreter. If 
not, it displays a message. 


The script also determines whether it is running under Windows or Linux. It issues an OS command to 
determine the OS version and release (either ver for Windows or uname -a_ for Linux). Then it displays 
the OS version and release information to the user. 


/* WHERE AM I: ay, 
Ba ey 
Vie This script learns about its environment and determines ay 
/* exactly which Windows or Linux OS it runs under. */ 
parse version language level date month year 


parse source system invocation filename 


language = translate (language) /* ensure using Regina Rexx */ 
if pos('REGINA', language) = 0 then 
say 'ERROR: Interpreter is not Regina:' language 


say ‘Interpreter version/release date:' date month year 
say 'Language standards level is: ' level 
say 'Version information from an OS command follows...' 


/* determine operating system, get its version/release info */ 
select 
when system = 'WIN32' | system = 'WIN64' then 
'ver' 
when system = 'UNIX' | system = 'LINUX' then 
‘uname -a' 
otherwise 
say 'Unexpected SYSTEM:' system 
end 
abire fete; <<55. (0) Aeloueynl /* write message if OS command failed */ 


say 'Bad return code on OS Version command:!' rc 


Here is sample output for this script on a Windows system running Regina Rexx: 


Interpreter version/release date: 29 Apr 2024 
Language standards level is: 55 OC) 
Version information from an OS command follows... 


Microsoft Windows [Version 6.1.760] 
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Here is output from the script when run under a common Linux distribution with Regina: 


Interpreter version/release date: 25 Jun 2022 


Language standards level is: 500) 
Version information from an OS command follows... 
Linux delll 5.15.0-112-generic #122-Ubuntu SMP Thu May 23 07:48:21 UTC 2024 x86 64 


x86 64 x86 64 GNU/Linux 


Let’s discuss the program code. In the program, these two lines retrieve all the necessary environmental 
information: 


parse version language level date month year 
parse source system invocation filename 


Following these statements, the select instruction issues either the ver command for Windows sys- 
tems, or the uname -a command for Linux and Unix systems. The following code snippet shows how 
scripts can dynamically tailor any operating system dependent commands they issue. The select state- 
ment keys off of the environmental feedback previously retrieved by the parse source instruction: 


select 
when system = 'WIN32' | system = 'WIN64' then 
"ver' 
when system = 'UNIX' | system = 'LINUX' then 
"uname -a' 
otherwise 


say 'Unexpected SYSTEM:' system 
end 


In this manner, the script interacts intelligently with its environment. The Where Am I? script could eas- 
ily be turned into a generic function or subroutine which returns environmental information depending 
on its input parameters. It then becomes a generalized service routine, which can be incorporated into any 
larger script. In this manner, a script can learn about its environment and adapt its behavior and the 
commands it issues to become portable and platform-independent. 


Techniques for Command Portability 


To this point, we have summarized the various instructions and functions that aid in making code 
portable, and we have synthesized several of them into a sample program that determines critical facts 
about its environment. Now we can discuss various approaches for designing portable scripts that issue 
operating system commands. 


The first rule is simple and sometimes applicable: minimize the use of OS commands. This eliminates 
the case in which a script casually issues an OS command which really is not necessary, thereby 
compromising its portability. 


Where equivalent OS commands exist and their results can be handled generically, simple if instruc- 
tions can issue the appropriate OS command. For example, the script named Menu in Chapter 3 issued 
the Windows cls (clear screen) command to clear the display screen before writing its menu for the 
user. The direct equivalent command under Linux and Unix is clear. Since these two commands are 
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equivalent in function, the program could easily be made portable simply by determining which operat- 
ing system the script runs on, and then issuing the proper command to clear the display screen through 
a simple if instruction. 


Of course, return codes from commands are just as system-dependent as the commands themselves. 
Generally, a return code of 0 means success, while anything else means failure. This example shows that 
the situation is vastly simplified if the script does not need to inspect or react to return codes. 


What if the OS command produces output the script needs to process? This is a more complicated case. 
For example, say that the program issues the dir command under Windows or the 1s command under 
Linux or Unix to display a file list to the user. The outputs of these two commands are close enough that if 
the goal is merely to display the file listing to the user, the script can use the same technique as with the 
cls and clear commands — just encode an if statement to issue the appropriate command for the oper- 
ating system and display its output to the user. But if the script processes the command outputs, the situa- 
tion becomes much more complicated. Output formats from dir and 1s are significantly different. Here 
the approach might be to invoke an appropriate internal function specific to each operating system to 
issue the file list command and perform the analysis of its output. This is another common technique — 
code a different OS-dependent module to handle each operating system’s commands. 


A third technique is to determine the platform, then invoke an entirely different script depending on 
which operating system is involved. Here the top-level, or driving, script is only a small block of code at 
the very highest level of the program. It does little more than identify the operating system. After this 
determination, it calls an OS-dependent script. 


Which technique is best depends on the tasks the script performs and the numbers and kinds of operat- 
ing system commands it issues. The binding or degree to which the code depends on the operating sys- 
tem determines which approach makes sense for a given situation. In all cases, identifying the platform 
on which the script is running is the first step, and isolating OS-dependent code (by if logic or into sep- 
arate modules or routines) is the key. 


Foreknowledge of the need for portability and the operating systems that will be supported vastly 
reduces the effort involved in developing portable code. The similarity (or differences) among the sup- 
ported platforms is another critical factor in determining the effort required. For example, it is relatively 
easy to develop a script that is portable across all versions of Windows, or to test a script across all major 
Linux distributions. It’s quite another matter to port a script that issues a lot of OS commands from 
Windows to Linux or vice versa. 


Issues in Code Portability 


At the beginning of this chapter, we discussed a few factors that affect the portability of code. Now that 
we've described the instructions, functions, and coding techniques that pertain to portability, we can 
revisit the earlier discussion with greater specificity. Let’s explore these issues in greater detail. Here are 
a number of issues of which to be aware when writing portable scripts: 


Q) = Retrieving platform and interpreter information — The earlier sample script demonstrates how to 
retrieve operating system and Rexx interpreter information. Implemented as a callable service 
routine, such code can be used by any Rexx script to get the information it needs to run as a 
cross-platform program. A service routine that determines operating system, platform, inter- 
preter, and other environmental information forms the basis of platform-independent code in 
many large applications. 
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Screen interfaces — Input/output to the display screen is a major area of incompatibility among 
many platforms. Using a cross-platform user interface like the Rexx/TK or Rexx/DW libraries 
are one way to get around this problem — assuming that these interfaces are portable across 
the platforms on which the scripts will run. Chapter 16 discusses GUI interfaces in some detail. 


Database interfaces — Databases can mask I/O differences across platforms. For example, 
interfacing your Rexx script to Oracle makes the I/O interface between Windows and Linux the 
same because Oracle calls are the same in both environments. Just ensure that the database itself 
can be relied upon for portability across the platforms you target. From this standpoint, major 
databases like Oracle and Db2 offer good portability among the major commercial databases. 
Among open source databases, MySQL, PostgreSQL (aka Postgres), SQLite, and Berkeley DB 
offer great portability. Chapter 15 discusses database programming in detail and shows how to 
accomplish it with sample scripts. 


Other interfaces — We mention GUI and database interfaces specifically because these issues 
pertain to so many programs. But the principles apply to many other packages and interfaces as 
well — they may be useful as levers to gain more code portability, or they may hamper 
portability by their own isolation to certain environments. If portability is a goal, the key is to 
consider the impacts of any external packages with which your scripts will interface. Careful 
thought will allow you to leverage interfaces for greater application portability and avoid 
having them limit the portability of your scripts. 


Character sets and code pages — Different platforms use different character-set-encoding 
schemes. For example, Windows, Linux, Unix, BSD, and DOS systems use ASCII, whereas 
mainframes use EBCDIC. Scripts that manipulate characters as hexadecimal or bit strings need 
to be aware of these different encodings. Related issues include collating (or sort) order and code 
pages or character sets. 


Interpreter differences — We've already mentioned how scripts retrieve interpreter information. 
Code within the lowest common denominator language level to ensure the widest portability of 
your scripts. We might call this interpreter portability — Rexx scripts that can be run under any 
Rexx interpreter. This trades off the convenience and power of using implementation-specific 
built-in functions, for example, for the benefit of code portability. 


options Instruction — The options instruction issues interpreter-specific instructions to 
the Rexx interpreter. Its format is: 


options expression 


Here’s an example that instructs a Rexx interpreter to conform to language level 5.00 and ensure 
that the trace is off: 


options '5.00 Notrace' 


The options that can be set are unique to each Rexx interpreter. Check your language manual to see 
what your version of Rexx supports. If the interpreter does not recognize any the items, it ignores 
them without issuing an error. This means that if it is important to know whether the options were 
set properly, your code will have to perform this task. (Wouldn’t it be nice to have a 
corresponding options function by which your script could retrieve the options in effect? 
There is none.) Using options may force interpreter-dependent code unless its use is carefully 
controlled. 
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Q 


Capturing errors by conditions — The ability to trap conditions and process them through error 
routines can be a tool to gain greater cross-platform portability. NOTREADY might help with han- 
dling I/O issues while LOSTDIGITS can manage concerns with significant digits. 


Universal “not” sign — Use the ANSI-standard symbol for the “not” sign, which is the backslash 
(\). For example, for “not equals” you should code \= or <> or >< instead of the mainframe- 
only symbols +=. See Figure 13-3. 


Which 'Not' Symbol ? 


od \ 


Mainframe only All platforms 


We recommend using the universal 'Not' symbol \ 
Examples: \= \< > 


Figure 13-3 


First line of the script — For greatest portability, do not code a Linux/Unix/BSD interpreter- 
location line as the first line of the script, as in this example: 


#!/usr/local/bin/rexx 


Without this line, you’ll typically have to run Rexx scripts explicitly. Instead code this as the first 
line of the script for maximum portability, starting in column 1 of line 1: 


/* REXX */ 


This ensures that the script will run properly on mainframes running VM or OS, and it’s still 
compatible with almost every other platform, as long as the script runs explicitly. 


The address instruction — The address instruction sends input to OS commands and captures 
their output. The ANSI-1996 address instruction standard provides for the new keywords 
input, output, and error to manage command I/O. The alternatives are to use the stack for 
command I/O when using the address instruction, or to avoid the address instruction 
entirely by using redirected I/O. 


Many Rexx interpreters still emphasize the stack for command I/O, yet this feature is not central 
to the ANSI-1996 standard. The ANSI-1996 address keywords for I/O are the true standard, yet 
many Rexx interpreters still do not support them. You'll have to investigate what interpreter(s) 
and platform(s) your portable code is to run on to decide which approach to use. Chapter 14 cov- 
ers the address instruction in detail. 


Writing Portable Rexx 


Q = Stay within the ANSI-1996 standard for the stack —On the mainframe and in some other environ- 
ments, the stack is not only used for command processing, it is used for many other purposes as 
well. For greatest portability, stay strictly within the stack definition provided by the ANSI-1996 
standard. Or better, use standard language features other than the stack to accomplish the work. 


Q Use only standard operands — The Rexx standards define certain instructions and functions and 
allows them to have implementation-specific (nonstandard) operands. Examples include the 
options instruction (to issue directions to the interpreter) and the stream function (to issue 
I/O commands). If portable code is a goal it is prudent not to use nonportable operands for 
these instructions and functions. 


I/O and Code Portability 


File input/outout is a major area in which operating systems differ. This is because the I/O routines, or 
I/O drivers, are different for every operating system. Whether you code in Rexx or some other scripting 
language, you may encounter I/O incompatibilities when scripts are run on different platforms. I/O 
should be encapsulated (or placed in separate routines or modules) to isolate this platform-specific code 
within large Rexx scripts. 


OS differences lead to minor differences in Rexx implementations. Check your release-specific documen- 
tation to understand these differences. 


Generally, line-oriented I/O is more portable than character-oriented I/O because character I/O may 
read OS-dependent characters (representing line or file end) as part of the input stream. Scripts can be 
written to rationalize the differences in character-oriented file I/O across platforms if they recognize this. 


To stay within the strictest standards, assume that the chars and lines functions return 0 if there is no 
more data to read, or some nonzero value otherwise. The nonzero value might be the number of charac- 
ters or lines left to read in a persistent stream, or it could simply be 1, indicating more data to read. 
These two functions should only be applied to persistent streams (files), not to transient streams (like 
keyboard input). 


To explicitly flush the output buffers and close a file, code the lineout function without a string to 
write. Almost all Rexx implementations follow this TRL-2 standard. If program logic permits, the most 
standard, portable way to close a file is to simply let Rexx close it without instruction from the script. 


The earlier section titled “How a Script Learns about Its Environment” discussed standard return codes 
from the I/O functions: charin, charout, chars, lines, linein, and lineout. Given that I/O varies 
across operating systems, this is one area in which many Rexx interpreters still do have minor differ- 
ences. The reader is advised to check his specific interpreter documentation for details. When coding 
across platforms or developing code that runs under more than one Rexx implementation, check the 
documentation for all interpreters involved. And also, test the script under all the operating systems 
under which it will run! 


Portable scripts should avoid explicitly positioning the read and write positions within files. Some Rexx 


interpreters provide good advanced facilities in this regard that are outside the Rexx standards. Part II 
discusses these extended features for file positioning and direct data access. 
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Interfaces for Portability — RexxUtil 


We've previously mentioned that interfaces can aid in code portability. The popular RexxUtil package is 
an example. This is an external function library that enhances code portability across multiple platforms. 
These include operating systems in the Windows, Unix/Linux/BSD, macOS, mainframe, DOS, and OS/2 
families. Instead of issuing operating-system-dependent commands, scripts can invoke routines in the 
RexxUtil package. These then translate the script’s requests into OS-specific commands. This buffers the 
script from issuing operating-system unique commands. 


Figure 13-4 shows how this works. A script invokes a RexxUtil service, and the RexxUtil function per- 
forms the appropriate operating system calls. Since RexxUtil runs on a number of platforms, it effec- 
tively shields the script from issuing OS-specific calls in order to access OS features and facilities. 
Instead, the script interfaces with the portable RexxUtil package. 


Using an Interface Package to 
Increase Script Portability 


Operating 
System 
Facilities 


iH» RexxUtil }—— > 


Generic Operating 

Rexxutil System 

calls specific 
calls 


Figure 13-4 


There have been various versions of the RexxUtil library over the years, tailored and adapted to a range 
of platforms, Rexx interpreters, and products. It might be useful to describe the kinds of functions that 
the library contains to give an idea of the system-specific requests from which it buffers scripts. This list 
enumerates and describes the major categories of functions in RexxUtil packages: 


Ll Housekeeping — These functions load the RexxUtil library and make it accessible, or drop it 
from use and memory. 


CL) File system management — These functions manage, manipulate, search, and control 
operating system files and directories. 


CL] System interaction — These functions retrieve operating system, environmental, 
configuration, and hardware information. 


L1 Macro-space control — These functions manage the macros available for execution. Macros can 
be loaded, cleared, dropped, initialized, stored, and so on. 


C1 Console I/O — These functions support basic screen and keyboard I/O. 


CL] Stem manipulation — These functions manipulate arrays via their stems. To give one example, 
the do over function processes an entire array in a simple loop, even for sparse arrays or 
arrays with non-numeric indexes or subscripts. These functions also provide for array I/O. 
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Q)  Semaphores— These functions manage semaphores (flags used for synchronization), including 
mutexes (semaphores designed to single-thread critical code sections). 


Q) Character-set Conversions — These functions convert to and from Unicode and support file 
encryption and decryption. 


RexxUtil is not the only interface package which can be used to enhance code portability. Various 
database, GUI, and server-scripting packages provide the same platform-independence as the RexxUtil 
package. Chapters 15 through 18 describe a number of these interface packages and how to use them. 
Just be sure that the interface ports across all the platforms on which your scripts are to run! 


Summary 


This chapter discusses issues of code portability and offers some suggestions on how to write portable 
scripts. For some projects, code portability is a key goal. The ideas in this chapter may help achieve it. 
For other projects, portability is irrelevant and one doesn’t need to spend time or effort on it. Always 
understand your project goals thoroughly before making these choices and coding a scripting solution. 


Where code portability is a goal, understand the Rexx standards, the differences between them, and how 
the interpreter you are using fits with the standards. Coding to the standards is an important means to 
achieving portable code. 


This chapter also listed many functions and instructions through which scripts can derive environmental 
information. We discussed a brief program that interrogated its environment to determine the inter- 
preter running it as well as the operating system platform. Such a program can be expanded into a more 
robust, generic “service routine” to provide intelligence to other routines about their environment. The 
first step any portable script must take is understanding the environment in which it runs. 


We discussed a list of issues developers face when striving to make their code portable. Hopefully, the 
discussion brought up points that stimulate your own thinking on how you can write code that is 
portable across the platforms with which you are concerned. 


The next chapter goes into detail on how to issue commands from within scripts to the operating system 
(or other outside interface). It addresses how to send input to OS commands, how to check their return 
codes, how to capture their output, and how to capture their error messages. 


Test Your Understanding 


Is code portability always a virtue? 
What instructions might a script issue to learn about its environment? 
What is the difference between arg and parse arg? 


What is the sourceline function used for? 


la ol 


Where can you find a list of the differences between the TRL-1 and TRL-2 standards? 
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Overview 


One important use of Rexx is to develop command procedures. These are scripts that issue operating 
system commands. The ability to create command procedures is one of Rexx’s great advantages. 
You can automate repetitive tasks, create scripts for system administration, and customize or tailor 
the operating system to your preferences. 


Command procedures must manage many aspects of interaction with the operating systems, such 
as building and issuing the proper OS commands and handling bad return codes and errors. 


Many refer to command procedures as shell scripts, although technically this is not quite accurate 
because Rexx is not a shell. Rexx is a scripting language interpreter that runs outside of the shell or 
OS command interpreter. (There is one exception: a version of Regina runs within the zsh shell 
and provides true shell scripting capability. With it you can permanently change the current envi- 
ronment and perform tasks that can only be accomplished from within a shell, such as setting 
environmental variables and changing the working directory). 


Command procedures are useful for a wide variety of reasons. Scripting operating system com- 
mands allows you to: 


Ql = Automate repetitive tasks — Ever been faced with entering a lengthy list of commands to get 
something done? Scripting allows you to automate these tasks, whether they are for sys- 
tem administration or simply for individual users. 


An example is an “install script.” For one site the author developed a simple install script 
that, once developed, ran on hundreds of desktops to install a relational database man- 
agement system. Performing this task without automation would have been unthinkably 
time-consuming. The users themselves could not have done it because they did not have 
the expertise, and the tasks would have been too error-prone. Command scripting pre- 
sented a time-efficient way to get this work done. 
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Save keystrokes — Creating simple scripts eliminates mundane typing and saves keystrokes. You 
can create “shortcuts” for command sequences and save time. 


Eliminate error — Many system commands are complicated. Scripting them eliminates the need 
to remember (and correctly enter) various cryptic switches and options. 


Embed intelligent interaction in the script — Error handling, special cases, and other unusual 
situations — these are not what you want to face when you interact with an operating system 

to perform some complex system administration task. Scripting allows you to embed intelligent 
interaction with the operating system in a portable, sharable form. Someone with less experi- 
ence can run a script and perform a job without having the same level of expertise that was 
required to develop the script. 


Run scheduled tasks —Once commands are encoded in a script, that procedure can be run in off- 
hours or scheduled to run whenever desired. This is referred to as a batch command or batch 
procedure. 


An example from the author’s experience is scripting the create database command ina 
database system that single-threaded that task (only one such command could run at one time). 
We strung together the dozen create database commands we needed to issue in a simple 
Rexx script and let it run overnight. Had we performed this work interactively, it would have 
taken us over 14 hours. Running it during the day would have also meant developers could not 
use the server that day. Running the command script at night saved a day’s work for the entire 
programming staff. 


Document procedures —The create database script provided us with an historical activity log, 
a file that we kept to document the parameters used in creating the databases. Performing the 
same work interactively often means that the actual commands that were issued and their out- 
put messages are lost or forgotten. Scripting can produce log files that later can be inspected or 
analyzed to understand what happened or to recall exactly what was done. 


Extend the operating system — Under most environments one can execute a Rexx script simply by 
entering its name. To the world, the script appears as if it were a new operating system com- 
mand. Rexx thus provides a way to extend, enhance, customize or tailor the environment to 
either personal preference or corporate standard. 


Speed — In terms of elapsed or “wall clock” time, it is way faster to run a “batch” script than to 
interactively perform some set of tasks via a graphical user interface (GUI). GUIs are great for 
simplifying tasks that need to be performed interactively (read: manually). But scripted automa- 
tion is always faster. Moreover, it is sometimes difficult to reduce complex tasks to simple 
repeatable procedures using GUIs because of their context-driven nature. GUIs and command 
scripts work together to handle interactive and automated tasks in an effective way. 


While writing scripts to automate operating system commands is very useful, there are some downsides. 
The big one is that any script that issues OS commands becomes platform-dependent. In most cases, this 
is fine. The whole point of a command script is to issue commands specific to the platform on which it 
runs. But don’t issue operating-system-specific commands in a script you intend to port. If you do, think 
carefully about how this can be done in a modularized, portable way. It is not unusual to see scripts 
which issue just a few system commands and become system-dependent, only to mount an effort to port 
them later to some other platform. A little forethought can minimize porting effort. Chapter 13 covered 
this issue in its discussion of how to develop portable Rexx code. 


210 


Issuing System Commands 


Issuing Operating System Commands 


Let’s look at how to issue operating system commands from within scripts. We'll start with a very sim- 
ple, one-line sample script; then we'll progress through various techniques that yield better flexibility 
and programmability. In the next section, we'll look closely at how scripts read feedback from the com- 
mands to ensure they ran properly. There are several techniques to accomplish this and you'll want to 
understand them all. 


For a first example, here is a complete, one-line script that issues an operating system command. The 
script issues the Windows dir (directory) command: 


Glatie /* this script issues the DIR command */ 
The output to this script depends on the files in the current directory. Here’s an example: 
Volume in drive D is WD_2 


Volume Serial Number is 1E20-1F01 
Directory of D:\Regina 


<DIR> 03-24-04 11:47p . 
<DIR> 03-24-04 11:47p .. 
REXX EX] 344,064 04-25-03 5:20p rexx.exe 


E 
E 


REGINA EX] 40,960 04-25-03 5:21p regina.exe 
REGINA DLL 385,024 04-25-03 5:21p regina.dll 


First, we need to understand how the Rexx interpreter knows to send this command to the operating 
system for execution. The basic rule is this: Rexx evaluates the expressions in any line it reads. If it ends 
up with a string that it does not recognize (a string that is not a Rexx instruction, label, or assignment 
statement), Rexx passes the string to the active environment for execution. 


By default, the active environment is the operating system. Sometimes this is called the default environ- 
ment. Rexx does not “understand” or recognize operating system commands. Rexx evaluates expres- 
sions, ends up with a character string outside the Rexx language definition, and passes it to the active 
environment for execution. 


After the command executes, control returns to the script line that immediately follows the command 
(exactly the same as if the script had called an internal or external routine). The special variable rc will 
contain the return code issued by the operating system command. What this value is depends on the 
command, the operating system, and the command’s success or failure. 


This example executes the Windows dir or directory command, captures the return code the operat- 
ing system issues for that command, and displays an appropriate message: 


dir /* this script issues the DIR command */ 
aliE ete! = 0) ielavetal 

say 'DIR command execution succeeded' 
else 

say 'DIR command failed, return code =' re 


It is important to remember two key rules when building commands. First, you are just building a char- 


acter string (a string that represents a valid command), so you can leverage all the power of Rexx’s string 
manipulation facilities to do this. 


211 


Chapter 14 


Here’s an example that issues the directory command with two switches or options to the Windows com- 
mand window. The Windows command we want to build lists files in the current directory sorted by size: 


dir /OS 


The coding to build this command uses automatic concatenation (with one blank) for pasting together 
the first two elements, and explicit concatenation by the concatenation operator to splice in the last item 
without any intervening space: 


dir '/o' || 's' 


So, you can dynamically build character strings that represent commands to issue to the operating sys- 
tem in this fashion. You can even programmatically build arbitrarily complex commands using Rexx’s 
expression evaluation. Here’s a “gibberish generator” that ultimately builds and issues the exact same 


command: 
dir_options = 'ABCDLNOPQSTWX4' /* list of all options for the DIR command */ 
/* build the DIR command with options Le 
'dir /' || substr(dir_options,7,1) || substr(dir_options,10,1) 


Use whatever coding you want (or have to) to build operating system commands. It’s all the same to the 
Rexx interpreter. You can leverage the flexibility inherent in the interpreter’s evaluation of expressions 
prior to passing the resulting character string to the operating system for command execution. 


Sometimes building the command string becomes complicated enough that developers prefer to build 
the string inside a variable, then issue the command by letting Rexx interpret that variable’s contents: 


command = dir '/o' || 's' /* build the operating system command */ 
command /* issues the command string to the OS */ 


This approach also makes it easy to verify that the command string is built correctly because you can 
just display it on the screen: 


say command /* display the command to ensure correctness */ 


The second important rule to remember is that Rexx evaluates the expression before passing it to the operat- 
ing system for execution. Say we directly coded the above dir command in the script, exactly like this: 


dir /0S 
The results are not what we expect: 
Error 41 running "C:\Regina\pgms\dir_test.rexx", line 2: Bad arithmetic conversion 


What happened? Rexx evaluates the expression before passing results to the outside command environ- 
ment, the operating system, for execution. Rexx sees the slash as the division symbol, and recognizes 
that operands were not encoded correctly to evaluate the attempt at division. To avoid evaluating the 
expression, do what you always do in Rexx: enclose the command in quotation marks and make it a 
string literal. This line gives the expected result of a directory listing because the single quotation marks 
prevent Rexx from evaluating the string before sending it to the OS for execution: 


Yehie  /OS" 
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Feedback from OS Commands 


Of course, a script that issues an operating system command must ensure that the command executed 
properly. Most scripts need to verify the command by feedback they receive after it executes. Feedback 
from OS commands comes in several forms: 


OQ) The command return code 
Q Error condition traps 


Q The command’s textual output. This potentially includes an error message 


To view the command return code, simply view the value of special variable rc. Rexx sets this special 
variable for your script to inspect after the command has been issued. Since command return codes are 
both OS- and command- specific, refer to the operating system’s documentation or online help system to 
see possible values. 


Robust code handles all possible error codes. A typical approach is to identify and directly address the 
most common ones in the script, such as “success” and “failure.” Unexpected or highly specific return 
codes can be handled by displaying, printing, and logging them. 


One occassionally sees scripts that ignore command return codes. This mistake leads to scripts that can- 
not even tell if the OS commands they issue succeeded or failed. We strongly recommend that any script 
check whether the OS commands it issues succeed. In return for the small amount of time you save in 
not checking command return codes, the user is left absolutely clueless when an error occurs. Design 
scripts to fail safe, so they at least display appropriate error messages when commands they issue fail. 


Error or exception routines are another way to manage OS commands that result in error. Chapter 10 
demonstrated how command errors and failures can be trapped and addressed in special routines by 
coding an error trap routine. Enable that routine through these instructions: 


signal on error 
signal on failure 
call on error 
call on failure 


If call on failure and signal on failure are not active, the ERROR condition is raised instead. So, 
you could handle both situations without distinguishing between them simply by coding call on 
error or signal on error. 


The last form of command feedback is the textual output the command issues. This could be valid com- 
mand output, such as the list of filenames that result from the dir command. Or it could be an error 
message. For example, a dir command might result in a textual error message such as: 


File Not Found 


Your script can capture and analyze the OS command output. It can take special actions if the text out- 
put is an error or warning message of some kind. 


Let’s look at a simple way to capture output from an operating system command. Most operating sys- 
tems permit I/O redirection, the ability to direct an input stream into a command and the ability to direct 
its output to a file. Operating systems that support redirection include all forms of Linux, Unix, BSD, 
Windows, and DOS. 
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One simple way to capture command output is to redirect the output of that command to a file, then 
read the file’s contents from within the Rexx program. This complete script issues the dir command 
and redirects its output to a file named diroutput.txt. The do loop then reads all lines from this file 
and displays them on the screen: 


‘dir > diroutput.txt' /* issue DIR command, redirect output to a file */ 
do while lines (diroutput.txt) > 0 /* show the Rexx script can access all */ 

say linein(diroutput.txt) /* lines of DIR output by reading file */ 
end 


The lines and linein functions refer to the filenamed diroutput.txt. You may or may not need to 
quote the filename depending on which operating system the script runs under. Unix-derived systems like 
Linux use case-sensitive filenames, so you will typically encode filenames in quotation marks. Windows 
and related systems do not necessarily require quoting filenames in that they are not case-sensitive. The 
above code is a Windows example. 


Of course, the point of redirecting command output is to capture it so that the script can analyze it. 
Instead of displaying the output, as above, the script might parse it looking for messages that indicate 


specific errors, for example. Then it could intelligently identify and respond to those errors. 


In the following table, you can see the three redirection symbols most operating systems support. 


Redirection Symbol Use 
< Input comes from the named file. 
> Output is written to the specified file. If the file does not exist it is 


created. If the file does exist, it is over-written. 


>> Output is appended (added on to the end of) the specified file. If the 
file does not exist it is created. Use this symbol to preserve existing 
file contents and add to it. 


In the Rexx script above, we have surrounded the entire dir command with single quotation marks. 
This prevents Rexx from becoming confused by the output redirection symbol (>) during expression 
evaluation. Otherwise Rexx interprets > as its “greater than” symbol. The single quotation marks 
prevent Rexx from evaluating the expression, so it passes the entire string, including the redirection 
symbol to the default command environment (the operating system) for execution. 


Here’s an example in which a Rexx script redirects both input and output for an operating system com- 
mand. This is a sort command, as issued from within the Rexx script: 


MAOINE K<SHOWICsLia OSE SSONZICOMNIE « tei, 


The script directs that the sort command take its input to sort from the file sortin. txt, and that it 
send the sorted list to the output file sortout . txt. If the input file sortin.txt contains these lines: 


python 
LETS. OK 
perl 
php 
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The output file sortout.txt contains the same items in sorted order: 


perl 
php 
python 
rexx 


The script can set up the input file to the sort by creating it, if desired. The script accesses the output file 
simply by reading its contents. The script could then perform any desired analysis of the command 
output. For example, it could parse the output to recognize and respond to common error messages. It 
could recognize error messages from the sort command such as these examples: 


Invalid switch 
Input file not found 


Of course, the script needs to know from where to read the error messages. On some operating systems, 
error messages will appear concatenated to or in place of the results when an error occurs. On others, 
they may go to a default output device with a standard name, such as stderr. stderr may or may 
not be directed by default to the same place as command output, depending on the operating system 
and the command redirection syntax you encoded. For example, for a Windows script to intercept error 
messages through the same location as it reads correct command output, the sort command would 
need to be changed to the following: 


VSO KSeweieslin oe SSowmieewic ioe BSieilY 


This Windows-specific form of the command directs standard error output (stderr) to the same output 
file as the sort command’s output. So, if an error occurs, the phrase 2>&1 directs the textual error 
messages to the output file named sortout.txt. Here, the script can read, parse, and analyze any 
error messages that appear. Different operating systems have different conventions and syntax that 
dictate where and how scripts access command error messages. Most Unix-derived operating systems 
employ a similar syntax to this Windows example. 


The more sophisticated the script, the better it will be at these two tasks: 


C1 Recognizing textual error messages 


C1 Responding to them intelligently 


You must consider how comprehensive and fail-proof you want your script to be. It might just report any 
unexpected output to the user and stop, or it could be intelligent enough to identify and react to every 
possible command error. Different levels of coding will be appropriate for different situations. There is 
clearly a trade-off between effort and the robustness of a script. The choice is yours. We recommend 
minimally recognizing that an error has occurred and informing the user with a descriptive message. 


Rexx provides other ways to feed input to operating system commands and to capture their output. 


These offer flexibility and address operating systems and other command environments that do not sup- 
port redirection. We discuss them next. 
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Controlling Command I/O 


With this introduction to issuing operating system commands, several questions pop up. For operating 
systems that do not support redirection, or in cases where we want to control these operations more 
closely from within the script, we must address these issues: 

How to direct input lines to a command 


How to capture command outputs 


How to capture command error messages 


Coo do 


How to issue commands to environments other than the operating system 


The address instruction fulfills all these needs. It allows you to specify an origin for command input 
and targets for command output and command error output. The address instruction refers to com- 
mand input, output and error messages by the following keywords: 


Command I/O address Keyword 
Command input input 

Command output output 

Command error output error 


The input, output, and error parameters can be specified in either of two ways, as character streams 
or arrays. This is the basic format for the address instruction that redirects the command’s input, out- 
put and error information via three character streams: 


address environment command WITH INPUT STREAM filename_1 , 
OUTPUT STREAM filename_2 , 
ERROR STREAM filename_3 


The with clause and its keywords input, output, and error were added to Rexx as part of the ANSI- 
1996 standard. Here is the same command with input, output, and error information directed to and 
from three different arrays: 


address environment command WITH INPUT STEM array_name_1. , 
OUTPUT STEM array_name_2. , 
ERROR STEM array_name_3. 


The keywords stream and stem redirect to files or arrays, respectively, when using the address 
instruction. The period is a required part of the array names because the address instruction refers to 
what are properly termed stem variables. 


The environment appears immediately after the address keyword. The environment is the target to which 
commands are sent. In all examples we’ve presented thus far this is the operating system. But it also 
could be a variety of other programs or interfaces, for example, a text editor or a network interface. What 
environments are available depend on the platform on which the script runs and which tools or inter- 
faces are installed on that platform. The available environments are platform-dependent. 
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In Regina Rexx, the string SYSTEM refers to the operating system. To maximize portability, this string is 
the same regardless of the platform on which the Regina script runs. Other Rexx interpreters refer to the 
operating system by other keywords. Table L-2 in Appendix L lists some of the popular ones and shows 
the instruction you run to determine its default for your system. 


The command is the string to send to the environment for execution. It is evaluated before being sent to the envi- 
ronment for execution, so consider whether it should be enclosed in quotation marks to prevent evaluation. 
You can either create the command string in advance and refer to the variable holding it in the address 
instruction, or allow Rexx to dynamically create the command for you by its expression evaluation. 


The keyword with is followed by one, two or three redirection statements. The three redirection state- 
ments are identified by the three keywords input, output, and error. Any one or all three of these 
redirections can occur; those not listed take defaults. They may be coded in any order. 


input refers to the source of lines that will be fed into the command as input. This essentially redirects 
input for the command. output collects the command output, and error collects what the command sends 
to “standard error.” 


Using the keyword stream, as in the first example, means that input, output or error is directed 
to/from operating system files. For input, each line in the file is a line directed to the command ’s stan- 
dard input. Command output and error are directed to the named output and error files. 


The alternative to using streams for command input/output is arrays. The keyword stem permits cod- 
ing an array name for the three redirections. Be sure to code the stem name of the array as shown earlier 
(the name of the array immediately followed by a single period). 


When using array input, you are required to first set array element 0 to the number of lines that are in 
the input. Using the preceding example, if the input has 10 lines, set it like this before issuing the 
address instruction: 


array_name_1.0 = 10 
You would also move the 10 input lines into the array before issuing the operating system command. In 
this example, this means setting the values of array_name_1.1 through array_name_1.10 with the 
appropriate command input lines. 
After the command executes, array element 0 for output contains the number of lines output, and array 
element 0 for error contains the number of error lines output. For example, this statement displays the 
number of output lines from the command: 

say array_name_2.0 /* display number of output lines from the command */ 
Display all the output lines from the command simply by coding a loop like this: 

do j = 1 to array_name_2.0 

/* process array elements here */ 


end 


This is the preferred technique for displaying or processing the command output. Another technique is 
to set the array to the null string before issuing the command: 


array_name_2. = '' /* all unused array values are now the null string */ 
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Process all elements in the output array by checking for the null string: 


do j = 1 while array_name2.j <> '' 
/* process array elements here */ 
end 


You can intermix stream and array I/O in one address instruction. For example, you could present 
command input in an array, and direct the command output and error to files. Or, you could send file 
input to the command, and specify that its outputs and error messages go into arrays. There is no rela- 
tionship among the three specifiers; use whatever fits your scripting needs. 


One can even code the same names for input, output, and error. Rexx tries to keep them straight and 
not intermix their I/O. This practice becomes complicated and confers no particular advantage. It is not 
recommended. 


A Few Examples 


To this point, we have described the basic ways in which scripts control and access command I/O. The 
address instruction underlies these techniques. Since the address instruction is easier to demonstrate 
than it is to describe, we need to look at a few more examples. 


Remember how we redirected input to the sort command earlier and redirected its output? We did this 
through the redirection operators supported in operating systems like Windows, Linux, Unix, BSD, and 
DOS through this command: 


‘sort <sortin.txt >sortout.txt' 


This address instruction achieves the same result. We’ve enclosed the input and output filenames in 
single quotation marks to prevent uppercasing: 


address SYSTEM sort WITH INPUT STREAM 'sortin.txt' , 
OUTPUT STREAM 'sortout.txt' 


We code the keyword SYSTEM because Regina Rexx defines this string as its standard identifier for the 
operating system (regardless of what the underlying OS may be). Other Rexx interpreters may require 
other strings under various operating systems (see Table L-2 in Appendix L). 


The keyword with tells Rexx that one, two or three redirections will follow, identified by the keywords 
input, output, and error. These three keywords may appear in any order. Those that are not coded 
take defaults. Since we want to send input to the sort command from a file, we coded keyword stream, 
followed by the filename, sortin. txt. 


Coding output stream tells Rexx to send the command output to the file named sortout. txt. Rexx is 


case-insensitive, so the case of keywords like with input stream is irrelevant to the interpreter. We 
used mixed case here simply to clarify the address instruction keywords. 
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output and error streams can either replace or be appended to the named files. Use the keywords 
replace or append to denote this. replace is the default. Here is the same example that was given ear- 
lier, but with the provision that the output stream will be added (appended) to, instead of replaced: 


address SYSTEM sort WITH INPUT STREAM 'sortin.txt' , 
OUTPUT APPEND STREAM 'sortout.txt' 


Recall that the comma (, ) is the continuation character. We've coded it here simply to continue this long 
instruction across lines. We also placed single quotation marks around the filenames. The instruction 
works without them but then the filenames will be altered to uppercase. Whether this is desirable 
depends on the operating system. Operating systems like Linux, Unix, and BSD are case-sensitive in 
their filesnaming convention; operating systems like Windows and DOS are not. 


Since we’ve specified append on the address instruction’s output stream, if no output file named 
sortout.txt exists, running this instruction results in an output file containing: 


perl 
php 
python 
rexx 


Running the command a second time appends to the output file for this result: 


perl 
php 
python 
rexx 
perl 
php 
python 
rexx 


The replace option would always give the same result that is listed first in this example. In other 
words, the replace option replaces any existing file with the results, while append will add results to 
the end of an existing file. 


You can mix file I/O and array I/O in the same address instruction. This example provides input via an 
array but writes the output to a file to give the same results as the previous examples: 


in_array.0 = 4 /* REQUIRED- place number of input lines in element 0 */ 
in_array.1 = 'python' ; in_array.2 = 'rexx' ; 
in_array.3 = 'perl' ; in_array.4 = 'php' 


address SYSTEM sort WITH INPUT STEM in_array. OUTPUT STREAM 'sortout.txt' 


You must place the number of input array lines in element 0 of that array prior to executing the address 
instruction or it will fail. Of course, you also place the elements to pass in to the command in the array. If 
you specify array output, Rexx communicates to your program how many output and error lines are 
produced by filling in array element 0 with that value. 
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Many Rexx instructions have corresponding functions. For example, the arg instruction reads input 
arguments while the arg function returns information about input arguments. In like manner, the 
address builtin function complements the address instruction. Use the address function to find out 
what the default command environment is. This statement displays the default command environment: 


say address () /* displays default command environment. Example: SYSTEM */ 


The ANSI-1996 standard added several parameters you can specify on the address function to retrieve 
specific address instruction settings. The following table lists the address function options: 


address Function Option Option Stands For... Meaning 
I Input Returns the input default 
O Output Returns the output default 
E Error Returns the error default 
N Normal Returns the default environment 


Here is an example. This say instruction displays the defaults for each source or target: 


Sey Vibajoyhe siebreesg / erelohessie((V10)) , 
"Output target:' address('O') , 
"Error target: " address('E"') 


What this displays will be system and interpreter dependent. Here’s an example of output for Regina 
Rexx running on a Windows computer: 


Input source: INPUT NORMAL Output target: REPLACE NORMAL Error target: REPLACE NORMAL 


The address function, then, is the basic means through which a script can get information about 
where its commands will be issued and how their I/O is controlled. 


Issuing Commands to Other Environments 


In addition to redirecting command I/O, the address instruction is the basic mechanism by which 
you direct commands to environments other than the operating system. To do this, simply code a 
different environment on the address instruction: 


address KEDIT 'set autosave 5! 
This example sends a command to the KEDIT program, a text editor. Of course, what environments 
are available (and how you refer to them in the environment string), strictly depends on your platform 


and the available interfaces. Typical command interfaces are for program and text editors, network 
control, teleprocessing monitors, and the like. 
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There are two basic ways to tell Rexx where to send commands to. We’ve seen one — code the environ- 
ment string on the address instruction. Another way is to issue the address instruction with an 
environment specified but lacking a command. This sets the command target for all subsequent commands. 
Look at these commands run in sequence: 


address SYSTEM /* all commands now will go to SYSTEM for execution i 
“elaie! jr ilatsic, elit sealers) alig claves Glaticreyoncvoyiety yf 
Wee! /* see what version of Windows we’re running e/] 
address KEDIT /* all commands will now go to KEDIT for execution aif 
"set autosave 5' /* issue a command to KEDIT aff 
address SYSTEM /* all subsequent commands go to SYSTEM again aff 
"help! /* list commands for which Windows offers Help ss/i 


Using this form of the address instruction has the advantage that you can code shorter, more 
intelligible commands. But explicitly coding a command on the address instruction along with its 
environment better documents where the commands are sent for execution. Personal preference dictates 
which to use. 


You might also see the address instruction coded without any target: 

address 
In this case, the instruction causes commands to be routed to the environment specified prior to the last 
time it was changed. In other words, repeated coding of address without any environment operand 
effectively “toggles” the target for commands back and forth between two target environments. 
While this could be appropriate and convenient for certain situations, we do not recommend this 
approach. It becomes confusing; we prefer one of the two more self-documenting approaches described 


previously. 


Remember that you can always code the address function to determine the target environment for 
commands: 


say address () /* displays the default command environment. */ 
Finally, we mention that the address instruction requires that the environment must be a symbol or 
literal string. It cannot be a variable. As in certain other Rexx instructions, code the value keyword if 


you need to refer to the environment as a value contained in a variable: 


environment variable = 'SYSTEM' 
address value environment variable /* sets the environment to SYSTEM */ 


Sending a variable parameter into the address instruction provides greater flexibility than hard- 
coding and allows scripts to dynamically change the target of any commands. 
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A Sample Program 


You now know the basic techniques for issuing operating system commands and managing their results. 
Let’s look at a sample program that shows some of these techniques in action. 


This program provides command help information for a Windows computer. First it issues the Windows 
help command to the operating system without any operands. The command would be issued like this: 


help 


This command outputs a list of operating system commands with one line of description for each. The 
output looks similar to this: 


ASSOC Displays or modifies file extension associations. 
AT Schedules commands and programs to run on a computer. 
ATTRIB Displays or changes file attributes. 
BREAK Sets or clears extended CTRL+C checking. 
etc 


The script captures this output and places it into an array. The command name is the index; the com- 
mand description is stored in the array at that position. For example, the subscript Assoc holds the line 
of help information on that command, the array element with subscript AT contains a line of 
information on that command, and so on. 


(Note that a few commands contain more than one line of description. This program ignores the second line 
for those few commands.) 


After building the array of command help information, the script prompts the user to enter an operating 
system command. In response, the script displays the one-line description for that command from the 
array. It also asks the user if he wants more detailed command information. If the user responds yes or 
y, then the program issues the help command for the specific command the user has chosen to the 
operating system. For example, if the user wants more information on the dir command, the script 
issues this Windows command on the user’s behalf: 


help dir 


This OS command displays more extensive information about the command and its use. Several lines of 
command help information appear as well as a listing of command options or switches. 


After the user views the verbose help information on the command, the program prompts him to enter 
another command about which he needs information. The user either enters another OS command 
seeking help information, or he enters quit and the program terminates. 


Here is example interaction with this script: 


C:\Regina\pgms> regina command _help.rexx 
Enter Command you want Help on, or QUIT: ver 
VER Displays the Windows version. 
Want detailed information? n 
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Enter Command you want Help on, or QUIT: vol 

VOL Displays a disk volume label and serial number. 

Want detailed information? y 

Displays the disk volume label and serial number, if they exist. 


VOL [drive:] 

Enter Command you want Help on, or QUIT: ls 
LS No help available. 
Enter Command you want Help on, or QUIT: quit 


Here is the script: 


/* COMMAND HELP: af 
ls wi 
pts (1) Gets HELP on all OS commands, puts it into an array. a): 
ye (2) Lets user get HELP info from the array or the OS. if 
trace off /* ignore HELP command return code of '1'*/ 
emd_text out. = "' /* array to read HELP output into ef 
cmd_help. = it /* array to build with command HELP info */ 


addresses oh Maain ci ou Wilh OUTED ilar SLE Maomcla rex cm Outer 
/* read contents of CMD_TEXT_OUT, build help array CMD_HELP iy) 


dows tosomdictextrout 0 
parse var cmd_text_out.j the command command desc 
cmd_help.the command = command_desc 

end 


/* allow user to query CMD HELP array & issue full HELP commands a 
call charout ,"Enter Command you want Help on, or QUIT: " 


rOUelellee om clgsieny 
do while cmd_in <> 'QUIT' 


aie uitel laveulljo).Cuitel aay = YY aelevein 
say cmd_in ' No help available.' 
else do 


say cmd_in cmd_help.cmd_in 
call charout ,"Want detailed information? " 
pull answer 
if answer = 'Y' | answer = 'YES' then 
address SYSTEM 'help!' cmd_in 
end 


call charout ,"Enter Command you want Help on, or QUIT: " 
pull cmd_in 
end 


This script first sets the trace off, because issuing a valid help command under many Windows 
versions sends back a return code of 1. This contravenes normal operating system convention and 
means that if the script does not mask the trace off, the user will view error messages after the script 
(correctly) issues Windows help commands. 
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Then the script initializes all elements in its two arrays to the null string: 


emd_text_out. = '! /* array to read HELP output into Af 
cmd_help. = /* array to build with command HELP info */ 


The subsequent address instruction gets output from the Windows help command into the array 
named cmd_text_out: 


address SYSTEM 'help' WITH OUTPUT STEM cmd_text_out. 


This instruction does not specify input to the help command because it intends to issue the help 
command without operands or any input. The output from the help command goes into the array 
cmd_text_out. Each element in this array contains an OS command and one line of help information. 


The script needs to break apart the OS command from its single line of help information. The following 
code does this and builds the new array cmd_help. 


/* read contents of CMD_TEXT_OUT, build help array CMD_HELP */ 


do j=l to cmd_text_out.0 
parse var cmd_text_out.j the command command_desc 
cmd_help.the command = command_desc 

end 


The cmd_help array contains one description line per Windows command. Its index is the command 
itself — it is an associative array, as explained in Chapter 4. Once the array is built, the next step is to 
prompt the user to enter the operating system command about which he wants help. This statement 
causes the prompt to appear on the user’s screen: 


call charout ,"Enter Command you want Help on, or QUIT: " 
The program then uses the command the user enters as an index into the cmd_help array. This 
statement applies that command as the index into the array and displays the associated line of help 
information to the user: 


say cmd_in cmd_help.cmd_in 


Now, the script presents the user with a choice. Either he can ask for full information about the OS 
command about which he is inquiring, or he can say “no more” and ask about some other OS command. 
These statements prompt the user as to whether he wants more information about the current command: 


call charout ,"Want detailed information? " 
pull answer 


If the user answers YES to this prompt, the script then issues the Windows help command with the OS 
command of interest as its operand. The generic format for this Windows help command is this: 


help command 
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For example, if more information were desired about the Windows dir (directory) command, the script 
would issue this command to Windows: 


help dir 


As another example, if more information were needed about the ver (version) command, the script 
would issue this Windows command: 


help ver 


This form of the help command prompts Windows to display several lines of detailed help 
information on the screen. This is the line in the program that actually issues the extended help 
command: 


address SYSTEM 'help' cmd_in 


The variable cmd_in is the command the user wants detailed information about. So, if the user requests 
information on the dir command, this statement resolves to: 


address SYSTEM 'help!' dir 


Since SYSTEM is Regina Rexx’s default command environment, the program did not need to explicitly 
encode the address instruction. This line would have given the same result: 


"help' cmd_in 


This statement is less cluttered than coding the full address instruction, but one must know what the 
default command environment is to understand it. Some developers prefer to code the address 
instruction in full to better document their code. Others prefer to issue operating system commands 
without it for the sake of brevity. 


Using the Stack for Command I/O 


The manner in which commands are sent input and their outputs and errors are captured varies 
between Rexx interpreters. This chapter describes the ANSI-1996 standard, which specifies the input, 
output, and error keywords on the address instruction. Rexx interpreters increasingly comply with 
this standard, but not all do. Some Rexx interpreters have not yet upgraded to support the new ANSI 
1996 forms of the address instruction. The ANSI-1996 standard ultimately should offer more 
portability, so this approach is recommended where possible. 


For many years in mainframe Rexx, the external data queue or stack was used for communications 
between Rexx scripts and the commands they executed. (You'll recall that Chapter 11 discussed the 
stack and its use in some detail and presented several sample scripts that make use of it.) Because 
mainframe Rexx was the first available Rexx, and because the ANSI-1996 standard was devised rather 
late in the Rexx evolution, most Rexx interpreters also support the stack for command I/O. 


Regina Rexx is typical in this regard. It fully supports the ANSI-1996 standard address instruction 
with its ANSI keywords for stream and stem I/O. But in recognition of the historical importance of 
mainframe Rexx, it alternatively allows you to use the stack for command I/O. This fits with Regina’s 
philosophy of supporting all major standards, both de facto and de jure. 
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Using the stack for command I/O via its keywords FIFO and LIFO is an “allowed extension” to the 
ANSI-1996 standard. FIFO and LIFO stand for "first-in, first-out" and "last-in, first-out", respectively. 
Chapter 11 introduced these concepts along with their common uses for the stack. 


Remember the example of how to code the sort using redirected input and output? The OS command we 
originally coded within a script was: 


"sort <sortin.txt >sortout.txt' 
This code implements the same result by using the stack in Regina Rexx: 
/* Show use of the Stack for Command input and output */ 
queue ‘'python' /* place 4 unsorted items into the stack */ 
queue 'rexx' 


queue 'perl' 
queue 'php' 


Ziclchaesss) SSN Souci WMNsl IWIN 2WMP IeItiele) YY OIUMIeOfe ILiate) 4 

do queued () 
parse pull sSertec mesic /* retrieve & display stack items */ 
Sealy SoicSel iissiuulic 

end 


The code places four unsorted items into the stack through the queue instruction. The address 
instruction uses the keywords input fifo to send those four items in unsorted order to the sort 
command. The output fifo keywords retrieve the four sorted items from the sort command in 
FIFO order. The two back-to-back single quotation marks that appear in these clauses mean that the 
default stack will be used: 


WITH INPUT FIFO '! 
WITH OUTPUT FIFO '' 


Rexx clears or flushes the stack between its use as an input to the command and its role as a target to 
collect the command output. The interpreter endeavors to keep command input and output accurate 
(not intermixed). 


The do loop at the bottom of the script displays the four sorted items on the user’s screen: 


joe lb 
php 
python 
rexx 


We recommend using the ANSI-1996 standard address instruction and its keywords with, input, 


output, error, stream and stem. This is more portable than using the stack and is becoming more 
widely used. But either approach will work just fine. 
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Summary 


Operating system commands bring great power to Rexx scripts, while scripting brings programmability 
and flexibility to operating systems. This chapter describes how Rexx scripts issue commands to the 
operating system and other target environments. It shows how to verify success or failure of these 
commands by checking their return codes, as well as other techniques to analyze command results. It 
also describes the several methods by which input can be sent to those commands, and through which 
command output and errors are captured. 


Rexx implementations traditionally use the stack for command I/O, but developers increasingly favor the 
ANSI-1996 standard approach. This chapter illustrates both methods and showed several code examples. 


We looked at the ways in which operating system commands can be assembled and submitted to the OS 
for execution. We investigated how scripts know whether commands succeed, and ways to inspect their 
error output. Then we explored the address instruction, the basic vehicle by which command I/O can 
be intercepted, managed, and controlled, and the address function, which returns information about 
the command execution environment. Finally, we showed how to use the stack for controlling 
command I/O. Many Rexx scripts use the stack for command I/O instead of the ANSI-1996 compliant 
address instruction. 


Test Your Understanding 


1. When does Rexx send a command string to an external environment? What is the 
default environment? 


2. Why and under what conditions should you encode OS commands in quotation marks? 
Describe one method to prepare an entire command before coding it on the line that will 
be directed to the OS for execution. How would you print this command? 


3. What are the three basic ways to get feedback from OS commands within scripts. Where do 
you look up return code information for OS commands? 


4. Name two different ways to redirect OS command input and output in a script. Which 
should you use when? 


5. What are the two kinds of sources and targets you can specify with the address command? 
Can the two be intermixed within a single address command? 


6. Howdo you code the address command to tell Rexx to send all subsequent commands to a 
particular target environment? How do you “toggle” the address target between two 
different environments? 
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Interfacing to Relational 
Databases 


Overview 


Many scripts are only useful when the scripting language interfaces to a wide variety of packages. 
For example, scripts need to control graphic user interfaces, or GUIs, perform database I/O, serve up 
customized Web pages, control TCP/IP or FTP connections for communications, display and 
manipulate images, and perform many other tasks that require interfaces to outside code. 


Rexx offers a plethora of free and open-source interfaces, packages, and function libraries for these 
purposes. Appendix H lists and describes many of the more popular ones. This chapter explores 
how scripts interface to databases. Then Chapters 16 through 18 explore other free interfaces for 
Rexx scripts, including GUIs, graphical images, programming Web servers, and Extensible 
Markup Language (XML). 


Databases are among the most important interfaces. Few industrial-strength programs can do 
without the power and data management services of modern database management systems, or 
DBMS. 


Most database systems are relational. They view data in terms of tables composed of rows and 
columns. Relational DBMSs typically provide complete features for data management, including 
transactional or concurrency control, backup and recovery, various utilities, interfaces, query lan- 
guages, programming interfaces, and other features for high-powered data management. 


Several packages enable Rexx scripts to interface with databases. These allow the scripts to inter- 
face to almost any DBMS, including both open-source and commercial systems. This chapter 
focuses on the most popular open-source database interface, Rexx/SQL. Rexx/SQL interfaces 
Rexx scripts to almost any database. Among them are open-source databases like MySQL, 
PostgreSQL, Mini SQL, mSQL, and SQLite, and commercial databases like Oracle, DB2 UDB, SQL 
Server, and Sybase. A full list follows in the next table. 
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Rexx/SQL has been production tested with several different Rexx interpreters, including Regina and 
Open Object Rexx. The examples in this chapter were all run using Regina Rexx with Rexx/SQL. 
Rexx/SQL supports two types of database interface: custom, or native, interfaces and generic database 
interfaces. Native interfaces are DBMS-specific. They confer performance advantages but work with only 
one database. Generic database interfaces work with almost any database and offer greater standardiza- 
tion and more portable code — but at the possible cost of lesser performance and the exclusion of non- 
standard features. 


We cover Rexx/SQL in this chapter because it is: 


Widely used 
Open source 


Interfaced to all major databases 


Coo vo 


Conforms to database standards 


The sample scripts in this chapter all run against the MySQL open-source database. MySQL is the most 
widely used open-source database and we used it for the database examples because it fits with the 
book’s emphasis on free and open-source software. While the sample scripts use the MySQL interface, 
they could run against databases other than MySQL with very minor modifications. In most cases, only 
the first database function call (SqlConnect) would have to be altered in these sample scripts to run 
them against other databases. The latter part of this chapter explains how to connect scripts to other 
popular databases, including Oracle, DB2 UDB, and Microsoft SQL Server. The chapter’s sample scripts 
were tested on a Windows server running MySQL. 


Rexx/SQL Features 


The Rexx/SQL database interface follows the two major database standards for a call-level interface, or 
CLI. These two interface standards are the Open Database Connectivity Application Programming Interface, 
or ODBC API, and the X/Open CLI. 


Rexx/SQL supports all expected relational database operations and features. It executes all kinds of SQL 
statements, including Data Definition Language, or DDL, and Data Manipulation Language, or DML. Data 
definition statements create, alter, and remove database objects. They include, for example, create 
table or drop index. Data manipulation statements operate on rows of data, and include such state- 
ments as select, insert, update, and delete. 


Rexx/SQL provides all the features and functions with which you may be familiar from the call-level 
interface of any database. If you are familiar with the CLI used by Oracle, DB2 UDB, MySQL, or any 
almost any other database, you will find Rexx/SQL easy and convenient. Rexx/SQL supports features 
such as cursor processing, dynamic statement preparation, bind variables and placeholders, SQL control 
structures such as the SQL Communications Area (SQLCA), SQL error messages, null processing, auto- 
commit options, concurrent database connections, and the retrieval and setting of database interface 
behaviors. 


If you have no experience with call-level database processing, this chapter offers an entry-level tutorial. 
It will help you download and install Rexx/SQL and write simple Rexx scripts that process the database. 
Ultimately, you may want to pursue the topic of database processing further by reading about the ODBC 
or X/Open CLIs. 
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Downloading and Installing Rexx/SQL 


Information on Rexx/SQL is available at http: //rexxsql.sourceforge.net. If Web site addresses 
change, enter the keyword Rexx/SQL into any search engine and download sites will pop up. 


Both source and binaries appear as downloadable for various platforms. For example, Windows users 
can download a *.zip file. Decompressing that file effectively installs the product. Linux, Unix, and 
BSD users can download *.tar.gz files. Source is available in *src.zip files. 


Download the file specific to the database to which your Rexx scripts will connect, or download the 
generic ODBC driver. Look for these keywords within the download filename to tell you which database 
it supports, as outlined in the that follows. 


Keyword Supports 
ORA Oracle 
DB2 Db2 (Db2 UDB) 
SYB Sybase 
SAW Sybase SQL Anywhere 
MIN Mini SQL (mSQL) 
MY MySQL 
ODBC Generic ODBC driver 
UDBC Openlink UDBC interface 
SOL Solid Server 
VEL Velocis (now Birdstep) 
ING Ingres 
WAT Watcom 
INF Informix 
POS Postgres and PostgreSQL 
LITE SQLite 
PRO Progress 


Rexx/SQL uses these abbreviations throughout the product whenever there is a need to provide a stan- 
dard moniker for a database. Of course, updates and changes may occur to the list so check the 
Rexx/SQL home page documentation to determine which databases are fully supported. 


As an example, let’s interface Rexx to a MySQL database under 64-bit Windows. Download either a file 
named rxsql__odbc_w64.zip orone named rxsql__my_w64.zip. Some of the underscores in these 
sample filenames are replaced by the version number of the product. For example, depending on the 
version number, a real filename might be something like rxsql24_odbc_w64.zip. The filenames show 
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which database the driver supports. For example, rxsql24 odbc _w64.zip supports the generic ODBC 
driver, while rxsq124 my w64.zip supports MySQL. We chose the native MySQL interface for the 
examples in this chapter, but either works fine and provides the same results. 


Under Windows, if you use an ODBC driver, you must use Windows’ ODBC Data Sources Administrator 
Tool to register the ODBC driver with Windows. On Windows, access this panel through Start | 

Settings | Control Panel | Administrative Tools | Data Sources (ODBC). Or use the Help function and 
search for keyword ODBC. 


If you’re not using Windows, or if you’re on Windows but are using a native interface, registering the 
driver via the ODBC Data Sources Administration Tool is not necessary. Since we use the native MySQL 
interface for the examples in this chapter, we did not have to use the ODBC Data Sources Administrator 
Tool. 


The Rexx/SQL download will decompress to include files with names starting with the letters README. 
For example, in downloading the ODBC driver for Windows, we saw the two files README.odbc and 
README. rexxsql among the extracted files. Read these files! They tell you all you need to know about 
setting up Rexx/SQL for your particular platform. 


On some platforms, you may need to finish the installation by setting a couple of environmental vari- 
ables. The PATH variable on many operating systems might need to include the directory where Rexx/ 
SQL is installed. The README file will tell you if any other actions are required. 


For example, on Windows systems, the PATH should be set to include the folder in which the Rexx/SQL 
Dynamic Link Library, or DLL, file resides, named rexxsql.d11. For Linux, Unix, and BSD systems, the 
directory in which the shared library file for Rexx/SQL resides must be pointed to by the environmental 
variable that references library files. On Linux this environmental variable is named LD_LIBRARY_PATH. 
See the README file for this name for other Unix-derived operating systems. 


Once Rexx/SQL is installed, run the product's test script named simple. cmd. It resides in the directory 
in which Rexx/SQL installs. This test program simply connects, then disconnects, from the database for 
which you installed Rexx/SQL. It lists descriptive error messages in the event of any problem. 


Next run the product test script named tester.cmd. This is a more ambitious test script that creates 
some tables, makes multiple database connections and disconnections, and runs a wide variety of com- 
mon SQL statements on the database. The documentation at the top of this script gives you advice about 
how to run it. You must set an environmental variable or two, the nature of which varies by the database 
you use. Read the documentation at the top of the script for all the details — prior to running the script. 


If the two test scripts work, Rexx/SQL is installed successfully on your system. Incidentally, the two test 
scripts provide excellent examples of how to code for Rexx/SQL in your scripts. Along with the sample 
scripts in this chapter, you can use them as coding models to get started with Rexx/SQL and database 
scripting. 


The Basics 


The Rexx/SQL database interface follows the two major database standards for a CLI: the ODBC API 
and the X/Open CLI. Interfacing with the database via the CLI means issuing a series of database or SQL 
calls. Rexx/SQL supplies these as a set of functions. The series of calls a script issues depends on the 
type of database activity the script performs. 
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Let’s discuss the Rexx/SQL database functions organized by functional area. Our goal here is to give 
you an overview of what these functions are, what they do, and how to apply them. (Appendix F 
describes all the functions in full detail. The appendix lists the functions alphabetically along with their 
full coding formats and coding examples.) 


Database Connections. These functions enable scripts to connect to a specified database, manage that con- 
nection, and disconnect from the database when SQL processing is completed. 

Q = Sqlconnect — Connects to a SQL database 

OQ =SqlDisconnect — Disconnects from a SQL database 

Qo SqlGetInfo— Retrieves Rexx/SQL information about a connection 

Qo = =SqlDefault —Switches the default connection to another open connection 
Environmental Control. While there is but a single function for environmental control, it has an important 


role in database programming. This function allows scripts to either query or set various runtime values 
that affect their interactions with the database. 


QO) SqlVariable— Retrieves or sets default runtime values 


Issuing SQL Statements. These functions enable scripts to issue all kinds of database calls, including data 
definition and data manipulation statements. SQL statements can be executed by a single Rexx state- 
ment, or they can be prepared in advance and executed repeatedly and with optimal efficiency. These 
functions also allow scripts to process multiple-row result sets either with cursors or other techniques 
for multi-row processing. 


QO) = Sqlcommand — Issues a SQL statement to the connected database 
Sql Prepare — Allocates a work area for a SQL statement and prepares it for processing 


SqlExecute — Executes a prepared statement 


Sq1Dispose— Deallocates a work area for a statement 


SqlOpen— Opens a cursor for a prepared select statement 


SqlFetch— Fetches the next row from a cursor 


Q 

Q 

Q 

Q 

Qo = =Sqlclose—Closes a cursor 
Q 

Qo = SqlGetData— Extracts part of a column from a fetched row 
Q 


SqlDescribe— Describes expressions from a select statement 
Transaction Control. The two transaction control statements permit scripts to dictate when data changes 
are permanently applied to the database. Transaction control is fundamental to how databases guarantee 


data integrity and their ability to recover a database, if necessary. 


OQ = Sqlcommit — Commits the current transaction 


QO) = SqlRollback— Rolls back the current transaction 


We'll see examples of many of these SQL functions in the sample scripts that we will now discuss. 
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Example — Displaying Database Information 


As explained previously, scripts interface to databases by issuing a series of Rexx/SQL function calls. 
The previous lists describe what these functions are named and what they do. Now we need to see how 
to put them together in real programs. 


The first sample database script performs several “startup” and “concluding” actions that are common 
to all database scripts. The only real action it takes once it connects to the database is to report some 
environmental information it retrieves about the databaase. Here is what this first sample database 
script does: 

1. Loads the Rexx/SQL function library for use 

2. Connects to the MySQL database 

3. Retrieves and displays environmental information about the database 

4 Disconnects from the database 


Figure 15-1 describes these actions diagrammatically as a flowchart. With the addition of database pro- 
cessing logic, this is the skeletal structure of most SQL scripts. 


Typical Database Interaction 


Load the database function library. 
Connect to the database. 


Perform database processing 
via Rexx/SQL function calls. 


Vv 


Disconnect from the database. 
Drop the database function library. 


Figure 15-1 


Here’s what the output from the first sample script looks like. You can see it just displays some basic ver- 
sion information about the Rexx/SQL interface along with environmental information it retrieved from 
the database: 


The Rexx/SQL Version is: rexxsql 2.4 02 Jan 2000 WIN32 MySQL 
The database Name is: mySQL 
The database Version is: 4.0.18-max-debug 
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Here’s the script: 


[BRR RRRREREREREKRKEEERKEKEREKAEERKEREREREKEREKEKERKKKEREKKKEREKKAE KK / 


/* DATABASE INFO: iy) 
prs ry} 
lke Connects to MySQL, displays database information. ay 


[RRRRRRRRKKEREREKRRREKEREREKERERKRKEREREKREKKEKEEEKKEREKKREREKKKE KK / 


signal on syntax /* capture SQL syntax errors */ 
/* load all SQL functions, make them accessible to this script */ 
if RxFuncAdd('SQLLoadFuncs', 'rexxsql', 'SQLLoadFuncs') <> 0 then 

say 'rxfuncadd failed, re: ' re 
if SQLLoadFuncs() <> 0 then 

say 'sqlloadfuncs failed, re: ' re 
/* connect to the MySQL database, use default user/password ay 
it eSOhConnectl( a amy Scan) m<—-Om>henmcclMm sclera Onmconnect! 
/* get and display some database information ef 
say 'The Rexx/SQL Version is:' SQLVariable('VERSION') 
if SQLGetinfo(,'DBMSNAME','desc.') <> 0 

then call sqlerr 'Error getting db name' 

else say 'The database Name is: ' desc.1 

if SQLGetinfo(, 'DBMSVERSION','desc.') <> 0 
then call sqlerr 'Error getting db version' 

else say 'The database Version is: ' desc.1 
/* disconnnect from the database and drop the SQL functions e/) 
if SQLDisconnect() <> 0 then call sqlerr 'On disconnect' 
if SQLDropFuncs('UNLOAD') <> 0 then 

say 'sqldropfuncs failed, re: ' re 
exit 0 
/* capture any SQL error and write out SQLCA error messages ay 


sqlerr: procedure expose sqlca. 
parse arg msg 
say 'Program failed, message is: 
say sqlca.interrm 
say 'SQL error is:' 


msg 


sqlca.sqlerrm 


/* write SQLCA messages */ 
/* write SQLCA messages */ 
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call SQLDropFuncs 'UNLOAD' 


eualie $)9) 

syntax: procedure /* capture any syntax errors */ 
say 'Syntax error on line: ' sigl /* identify syntax error*/ 
TeSHe lian 


The first step in this program is to load the Rexx/SQL external function library and make its functions 
available for the use of this script. Regina uses the Systems Application Architecture, or SAA, standard 
functions to achieve this. Here is one way of coding them: 


if RxFuncAdd('SQLLoadFuncs', 'rexxsql', 'SQLLoadFuncs') <> 0 then 
say 'rxfuncadd failed, re: ' re 


if SQLLoadFuncs() <> 0 then 
say 'sqlloadfuncs failed, re: ' re 


The RxFuncAdd function first loads or registers the Sq1LoadFuncs function. The middle parameter spec- 
ifies the name of the file in which Sq1LoadFuncs can be found. In Windows, this external library is a 
Dynamic Link Library, or DLL, file. It is named rexxsql .d11. The directory in which this file resides 
should be part of Windows’ PATH environmental variable so that Regina can locate it. 


Under Linux, Unix, and BSD, the equivalent of a Windows DLL is a shared library file. An environmental 
variable specifies the directory in which this shared library file resides. Different versions of Unix use 
different environmental variable names for this purpose, so check the README* file for the details for 
your Unix version. On most systems, it will be named LD_LIBRARY_PATH or LIBPATH. On Linux sys- 
tems, this environmental variable is LD_LIBRARY_PATH. 


To reiterate, the RxFuncAdd statement registers the function Sq1LoadFuncs, which is part of the Rexx/ 
SQL external library. The call to Sq1LoadFuncs then loads the remainder of the Rexx/SQL external 
library. Now all its functions are available for the use of this script. See Chapter 20 if you want more 
detail on the functions to access external libraries. 


Since all scripts that interface to databases use this code, consider placing it in a Rexx script function or 
subroutine. This takes it out of line for the main body of the code and simplifies your program. 


Once the script loads the Rexx/SQL external function library, it can connect to the database. Here we 
connect to the MySQL database named mysql (one of the two databases MySQL creates by default when 
installed): 
if SQLConnect(,,,'mysql') <> 0 then call sqlerr 'On connect' 
The SqlConnect statement can take several other parameters, as shown in its template diagram: 
SQLCONNECT([connection name], [username], [password], [database], [host] ) 
The required parameters for this statement vary by the database with which you are trying to connect. Our 
example only supplies the name of the database to which the script wishes to connect. Sq1Connect is just 
about the only statement in Rexx/SQL whose coding is database-dependent. The section entitled “Working 


with Other Databases” later in this chapter discusses and illustrates how to code the SqlConnect function 
for systems like Oracle, DB2 UDB, SQL Server, and ODBC connections. 
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After connecting, the script executes the Sq1Variable function to retrieve and display the version of 
Rexx/SQL: 


say 'The Rexx/SQL Version is:' SQLVariable('VERSION') 


Then the script invokes the Sq1Get Info function twice, with different parameters, to retrieve the DBMS 
name and version: 


if SQLGetinfo(,'DBMSNAME', 'desc.') <> 0 
if SQLGetinfo(,'DBMSVERSION','desc.') <> 0 


Rexx/SQL places the results into the stem variable named in the call. Here this stem variable is desc., 
so the output strings we want are in the variable named desc .1. The full statements show how these 
values are retrieved and displayed: 


if SQLGetinfo(,'DBMSNAME','desc.') <> 0 
then call sqlerr 'Error getting db name' 
else say 'The database Name is: ' desc.1 


if SQLGetinfo(,'DBMSVERSION','desc.') <> 0 
then call sqlerr ‘Error getting db version' 
else say 'The database Version is: ' desc.1 


Its work done, the script disconnects from the database and drops the Rexx/SQL function library from 
memory. Scripts typically perform these two steps as their final database actions. Here is the code that 
implements these two terminating actions: 


if SQLDisconnect() <> 0 then call sqlerr 'On disconnect' 


if SQLDropFuncs('UNLOAD') <> 0 then 
say 'sqldropfuncs failed, re: ' re 


We've nested the functions inside of if instructions in order to check their return codes. When perform- 
ing database processing, we recommend always checking return codes from the database functions. If not 
for this little bit of extra code, the application could otherwise behave in ways that completely mystify 
its users, even when the problem is something so simple as a database that needs to be started up. It is 
standard practice in the database community to check the return code from every SQL statement in a 
program. 


When database function errors occur, this script executes this internal routine: 


sqlerr: procedure expose sqlca. 
parse arg msg 


say 'Program failed, message is: ' msg 

say sqlca.interrm /* write SQLCA messages */ 
say 'SQL error is:' sqlca.sqlerrm /* write SQLCA messages */ 
call SQLDropFuncs 'UNLOAD' 

exit 99 
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Here’s an example of the kind of error message this routine might output. In this case, the Sql1Connect 
function failed because an incorrect database name was supplied. The database name was incorrectly 
specified as mysqlxxxx instead of as mysql: 


Program failed, message is: On connect 
REXX/SQL-1: Database Error 
SQL error is: Unknown database 'mysqlxxxx' 


In this example, the error routine displays the SQL error message and stops the program (the last state- 
ment in the error routine is an exit instruction). You could write the routine to take any other appropri- 
ate action, as you see fit, and continue the program. You might even choose whether to end the program 
or continue it, depending on the nature and severity of the error the error routine encounters. 


The error routine shows how to retrieve and display various error messages from the database. Its first 
line gives its full access to the SQL Communications Area, or SQLCA: 


sqlerr: procedure expose sqlca. 


The SQLCA is the basic data structure by which the DBMS passes status information back to the pro- 
gram. The status values in the SQLCA set by database activity include the following: 


SQLCA.SQLCODE 


SQL return code 


SQLCA.SQLERRM— SQL error message text 


SQLCA.SQLSTATE 


Detailed status string (N/A on some ports) 


SQLCA. SQLTEXT — Text of the last SQL statement 


SQLCA . ROWCOUNT — Number of rows affected by the SQL operation 


SQLCA . FUNCTION — The last Rexx external function called 


SQLCA . INTCODE — The Rexx/SQL interface error number 


COCoovovocewvwo Oo 


SQLCA. INTERRM— Text of the Rexx /SQL interface error 


Database scripts can either handle SQL errors in the body of the code (inline), or they can consolidate 
error handling into one routine, such as the sqlerr routine in the sample script. In large projects consol- 
idating code is advantageous because it leads to code reuse, standardizes error handling, and reduces 
the size and complexity of the inline code. 


The SYNTAX error condition trap fits right in with the sqlerr routine in capturing and handling SQL 
syntax errors. It is very easy to make syntax errors when coding to the SQL CLI because the character 
strings one issues to the database become complicated. The SYNTAX error condition trap manages this 
challenge: 


syntax: procedure /* capture any syntax errors */ 
say ‘Syntax error on line: ' sigl /* identify syntax error*/ 
return 
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For large applications, we recommend writing a single SQL error-handling routine and having all SQL 
errors sent to that routine. The SYNTAX trap routine can also call the SQL error handler, if desired. This 
sample script simplifies error handling for clarity of illustration. The test scripts distributed with 
Rexx/SQL provide a fuller and more robust SQL error handler. Review those scripts if you want to 
develop a more comprehensive, generalized SQL error handler. 


Example — Create and Load a Table 


Now we know how scripts connect to and access relational databases. The next step is to develop exam- 
ples that issue data manipulation language statements to manage the data in databases, and data defini- 
tion language statements to manage database objects like relational tables. To illustrate basic SQL 
programming, let’s create a simple telephone number directory. Each entry (row) has only two columns: 
the person’s last name and his or her telephone number. 


This program creates a phone directory. It does this by creating a database table named phonedir, then 
loading it with data. The “data load” is simply an interactive loop that prompts the user to enter peo- 
ple’s names and their phone numbers. When the user enters the character string EXIT, the program 
ends. 


Here is the script: 


[RRRRRKRRKKEREREKKEEEKEKEREKKAKEE KK KEE EKEKERRKEKERE EKER EKKEKERKKKKE KK / 


/* PHONE DIRECTORY: a) 
DE say 
pe Creates the phone directory and loads data into it. eof 
[RRRRRKREREKEREREK REE EKEREREKAKEERKEREREREKERKEKEEKKKEREKKEKEREKKKE EK / 
signal on syntax /* capture SQL syntax errors */ 
call sql_initialize /* load all Rexx/SQL functions*/ 
HPS OlGOnne ct Gwe me my. Solem) <> 0 then call sqlerr 'On connect' 


if SQLCommand(ul,"use test") <> 0 then call sqlerr 'On use' 


/* drop the table if it exists, and create the table a-new ef 
re = SQLCommand(d1,"drop table phonedir") /* dont care about rc */ 


sqlistr = 'create table phonedir (lname char(10), phone char(8))' 
if SQLCommand(cl1,sqlstr) <> 0 then call sqlerr 'On create' 


say "Enter last name and phone number ==> " 
pull lname phone 


/* this loop collects data from user, inserts it as new rows ey 


do while (lname <> 'EXIT') 
sqlstr = "insert into phonedir values('" || Iname || "'", 
eG || phone mo ya 
if SQLCommand(il,sqlstr) <> 0 then call sqlerr 'On insert' 
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say "Enter last name and phone number ==> " 
pull iname phone . 
end 


call sql_pgm_end /* disconnect, drop functions */ 
exit 0 


The first line of the program enables the SYNTAX error condition: 
signal on syntax /* capture SQL syntax errors */ 


Since the previous sample script, Database Info, already showed the code for the SYNTAX error handler, 
we have not shown it again in the above program. Similarly, the next line in the script invokes a new 
subroutine called sql_initialize: 


call sql_initialize /* load all Rexx/SQL functions*/ 


This routine registers and loads the Rexx/SQL interface. It contains exactly the same code as the previ- 
ous program (using the RxFuncAdd and SqlLoadFuncs functions). We do not duplicate this code in this 
example, in order to keep it as short and readable as possible. 


After connecting to the database, the script tells MySQL which database it wants to use. It issues the 
MySQL use test database command through a single call to the SqlCommand function: 


if SQLCommand(ul,"use test") <> 0 then call sqlerr 'On use' 


For purposes of initialization, the script drops the phonedir table if it already exists. If the phonedir 
table does not exist and this statement fails, that’s okay. We’re only dropping it to ensure that the subse- 
quent create table statement will not fail because the table already exists. (The pairing of drop 
table / create table statements in this manner is a common technique in database processing.) 
Here is the drop table statement: 


re = SQLCommand(d1,"drop table phonedir") /* dont care about re */ 
The statements that create the database table phonedir come next: 


sqlstr = 'create table phonedir (lname char(10), phone char(8))' 
if SQLCommand(c1,sqlstr) <> 0 then call sqlerr 'On create' 


As this code shows, the new table has only two columns: one for the person’s last name and one for their 
phone number. The first statement builds the SQL create table statement in a variable, while the sec- 
ond statement executes that command. The second statement also references the sqlerr routine, 
because we consolidated all SQL error processing in a single routine. Since this routine contains the exact 
same code as the previous sample program, we have not included it in the program’s code here. 


The script now enters a do loop where it prompts for the user to enter names and their associated phone 
numbers. These two statements build and issue the SQL insert statement that adds each record to the 
database: 


sqlstr = "insert into phonedir values('" || Iname || "'", 


wom | | phone mryn 
if SQLCommand(il,sqlstr) <> 0 then call sqlerr 'On insert' 
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Instead of building the SQL statement separately, in the first statement, it could be nested inside of the 
SqlCommand function call. We use a separate statement to build this string because of its syntactical com- 
plexity. This makes for more readable code. A large percentage of SOL programming errors involve 
statement syntax, and this approach makes it easy to verify the SQL statement simply by displaying the 
string. We generally recommend building SQL statements in variables like this rather than dynamically 
concatenating them within the actual SQL function encoding. 


To end the program, we need to issue the Sq1Disconnect and Sq1DropFuncs calls. Since this code is 
the same as the previous program, we’ve isolated it in its own routine called sq1_pgm_end: 


call sql_pgm_end /* disconnect, drop functions */ 


We don’t include this code in the example because it duplicates the same lines as the previous sample 

script. You can see that using common routines for database connection, disconnection, and error han- 
dling is a very sensible approach. It both reduces the code you must write for each script and reduces 

errors. 


In database programming, scripts must commit (make permanent) any database changes. In this script, 
the data is auto-committed to the database by disconnecting from the interface. Auto-commit automati- 
cally commits the data to the database if the script ends normally. Alternatively, the script could explic- 
itly issue the SQL Sq1Commit statement: 


if SQLCommit() <> 0 then call sqlerr 'On commit' 


The Rexx/SQL interface allows scripts to control the auto-commit feature. Use the SqlVariable func- 
tion to retrieve and/or set this and other behaviors of the database interface. Simple programs like this 
sample script tend to rely on auto-commit to apply changes to the database upon their termination. 
More advanced database scripts require explicit control of commit processing. We'll see an example of 
the SQLCommit function later in this chapter in a script that updates the phone numbers in the database. 


Example — Select All Results from a Table 


Okay, we've created a table in the database and inserted a few rows in it. The preceding sample script 
shows how these tasks can be accomplished. The logical question now is: How do we view the rows in 
the table? 


This script shows one easy way: 


[RRRRRKRERERREREK EER EKEREREKREREKEREREKEKERKEKEREKEREKKKKEREKKKE EK / 


/* PHONE DIRECTORY LIST: ef 
fe ei 
fe Displays the phone directory's contents. ey 
[BRRRRRREKKEREREKERKEE EKER ERE KARE RK EREREKEKREKEKEREK KKK EKKEKEREKKEE KK / 
signal on syntax /* capture SQL syntax errors */ 
(ieulil sieel_ alist caleuliivaS /* load all Rexx/SQL functions*/ 
if SQLConnect(,,,'mysql') <= (0) telnvein eeulil sicdleiere "Cia Crormmercic " 


if SQLCommand(ul,"use test") <> 0 then call sqlerr 'On use' 


sqistr = 'select * from phonedir order by lname' 


241 


Chapter 15 


if SQLCommand(s1,sqlstr) <> 0 then call sqlerr 'On select' 


/* This loop displays all rows from the SELECT statement. sed 


Gloy 3) = i tee Sitedl@iel. teoiirerouuanie 


say 'Name:' sl.lname.j 'Phone:' s1.phone.j 
end 
call sql_pgm_end /* disconnect, drop functions */ 
exit 0 


This script uses some of the same database service routines as the previous example: 


syntax — Error routine that handles SYNTAX errors 
sql_initialize— Registers and loads Rexx/SQL external functions 


sqlerr — Consolidates SQL statement error handling 


Q 
Q 
Q 
Q) sql_pgm_end— Disconnects from the database and drops Rexx/SQL functions 

The code for these routines is in the first sample program and is not repeated here. The basic problem in 
this script is this: how do we execute a SQL select statement to retrieve and display the rows in the 


table? Here is the code that builds and executes the select statement: 


sqlstr = 'select * from phonedir order by lname' 
if SQLCommand(s1,sqlstr) <> 0 then call sqlerr 'On select' 


This statement retrieves the data of the rows in the phonedir table. To display it, we need a do loop: 
do j = 1 to sqlca.rowcount 
say 'Name:' sl.lname.j 'Phone:' s1.phone.j 
end 
The data elements in each row are referred to by this syntax: 
Statement_name.Column_name.Row_identifier 
In the example, for the person’s name, this resolves to: 
sl.iname.j 
This neat Rexx/SQL syntax makes multiple row retrieval easy. Just put this row reference inside a do 
loop and display all the data. Later we'll see another way to display data from a SQL select statement 
via standard ODBC-X/Open programming, called cursor processing. 
The variable sqica.rowcount was set by the interface as feedback to the select statement. It tells how 


many rows were retrieved by the select, so we use it as the loop control limit. Another way to get this 
same information is to inspect element 0 in the returned rows. s1.1name.0 and s1.phone.0 also 
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contain a count of the number of rows retrieved. Instead of referring to sqlca.rowcount, as does the 
preceding code, we could also have coded the display loop as: 


do j = 1 to sl.iname.0 
say 'Name:' sl.lname.j 'Phone:' s1.phone.j 
end 


Either approach to controlling the number of do loop iterations works fine. Once retrieval and display of 
the rows is complete, the script calls its internal routine sql1_pgm_end to disconnect from the database 
and drop the Rexx/SQL functions. This terminates the database connection and releases resources 
(memory). 


Example — Select and Update Table Rows 


We've created a database table, inserted rows, and viewed the rows. Time to update the data. 


This simple script updates the phone numbers. Its do loop prompts the user to enter a person’s name. If 
the person exists in the table, the program prompts for a phone number, and updates that person’s 
phone number in the phonedir table. If the person does not exist in the table, the script displays a “not 
found” message and prompts for the next person to update. The script ends when the user enters the 
character string EXIT. 


Here is the script: 


[RRRRRKRRRKKEREREKRKEEEKEREREKRRER KEKE REKEKERKKEKEREKREREKKRAREKKKE KK / 


/* PHONE DIRECTORY UPDATE: ef 
Pe ay 
ee Updates rows in the phone directory w/ new phone numbers. */ 
[ERRRRKREKEKEREKREEEREKEREKRKE RK REE REKEKEEKEKEEKKKEREKEKEREKKKE KK / 
signal on syntax /* capture SQL syntax errors */ 
call sql_initialize /* load all Rexx/SQL functions*/ 
HES OhConnecitl(@a ye amyis clam) <> 0 then call sqlerr 'On connect' 


if SQLCommand(ul,"use test") <> 0 then call sqlerr 'On use' 


say "Enter name. or “EXIT! s™ /* prompt for person for whom */ 
pull lname . /* we'll update the phone ely 


do while (lname <> 'EXIT') 


/* retrieve the phone number for the person to update ay 
sqlstr = 'select phone from phonedir where lname ="' 
|| ene |) 7m 


if (SQLCommand(s1,sqlstr) <> 0) then call sqlerr 'On select' 


/* if we retrieved one row, we retrieved the person given nay 
/* go ahead and update that person's phone # in the database */ 


if sqlca.rowcount <> 1 then 
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say 'This person is not in the database:' lname 
else do 

say lname ‘Current phone:' sl.phone.1 

say 'Enter new phone number:' 

pull new_phone 


sqlstr = ‘update phonedir set phone ="' || new_phone || '"', 
|| ' where Iname ="' || Iname || '"! 
if SQLCommand(ul,sqlstr) <> 0 then call sqlerr 'On update' 
end 


/* commit to end the interaction, get the next person's name */ 


if SQLCommit() <> 0 then call sqlerr 'On commit' 
Syehy Midialineie javeiivS Oe aycIeae te 
pull lname 

end 


call sql_pgm_end /* disconnect, drop functions */ 
exit 0 


Much of the code of this program is similar to what we’ve seen in previous examples. Among the new 
statements, this is the select statement that tries to retrieve the phone number of the person the user 
enters: 


sqlstr = 'select phone from phonedir where lname ="' , 
|| lname || '"' 
if (SQLCommand(s1,sqlstr) <> 0) then call sqlerr 'On select' 


If the variable sqlca.rowcount is not 1 after this call, we know that we did not retrieve a row for the 
name. The person (as entered by the user) does not exist in the table: 


if sqlca.rowcount <> 1 then 
say 'This person is not in the database:' lname 


The script assumes that each person’s name is unique, so the statement will either retrieve 0 or 1 rows. 
Of course, in a real database environment, some unique identifier or key other than the person’s name 


would likely be used. 


If we do retrieve a row, this code prompts the user to enter the person’s new phone number and updates 
the database: 


say lname ‘Current phone:' sl.phone.1 


say 'Enter new phone number: ' 

pull new_phone 

sqlstr = ‘update phonedir set phone ="' || new_phone || '"', 
|| ' where Iname ="' || lname || '"'! 


if SQLCommand(ul,sqlstr) <> 0 then call sqlerr 'On update' 


After the SQL update statement, the program commits any changes made to apply them permanently to 
the database through the Sq1Commit function: 


if SQLCommit() <> 0 then call sqlerr 'On commit' 
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Example — Cursor Processing 


In the programs thus far, we've relied on a very useful feature of the Rexx/SQL interface: the ability to 
execute any SQL statement in one function call. The Rexx/SQL Sq1Command function lets scripts issue 
either data definition or data manipulation statements, including select’s. The Rexx/SQL interface 
does not limit which SQL statements are allowed, unlike some call-level database interfaces. 


Some interfaces do not allow SQL select statements that return more than one row to be run through a 
single statement. If a select statement returns more than one row, it requires cursor processing. A cursor 
is a structure that allows processing multiple-row result sets, one row at a time. 


These are the major steps in processing multi-row results sets using a cursor: 


1. ASqlPrepare statement prepares the cursor for use. This allocates a work area and “compiles” 
the select statement associated with the cursor. 

2. The SqlOpen function opens the cursor. 

3. A program do loop retrieves rows from the cursor, one by one, through the SqlFetch function. 

4. When done, the script closes the cursor by a Sq1Close, and deallocates the work area by a 


SqlDispose call. 


Figure 15-2 illustrates this process pictorially. 
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This script implements the logic of cursor processing: 


[RRR RRERERRERERREREKEEER KEKE RE KEKE KEKE KKKKERKEKEREKEKEKEKKEKAKE KK / 


/* PHONE DIRECTORY LIST2: ay) 
ss dp 
ffs Displays the phone directory's contents using a cursor. ef 
[RRRRRRREEKKEREREKREERKRKER EKER ERK RE REKEKRARKEKEKEKKEERKKKEREKEKE EK / 
signal on syntax /* capture SQL syntax errors */ 
call sql_initialize /* load all Rexx/SQL functions*/ 
if SQLConnect(,,,'mysql') <> 0 then call sqlerr 'On connect' 


if SQLCommand(ul,"use test") <> 0 then call sqlerr 'On use' 


sqlstr = 'select * from phonedir order by lname' 
if SQLPrepare(sl,sqlstr) <> 0 then call sqlerr 'On prepare' 


if SQLOpen(s1) <> 0 then call sqlerr 'On open' 


/* this loop displays all rows from the SELECT statement ey 
do while SQLFetch(s1) > 0 
say 'Name:' sl.lname 'Phone:' sl.phone 


end 


if SQLClose(s1) <> 0 then call sqlerr 'On close' 
if SQLDispose(s1) <> 0 then call sqlerr 'On dispose' 


call sql_pgm_end (PeCUSCONNeCE MIC rOpmrinCcETon sma) 
exit 0 


In this program, the Sql Prepare function allocates memory and internal data structures and readies the 
SQL statement (here a select) for subsequent execution: 


sqlstr = 'select * from phonedir order by lname' 
if SQLPrepare(s1,sqlstr) <> 0 then call sqlerr 'On prepare' 


Next, open the cursor by a SqlOpen statement. Cursors must always be explicitly opened, as this next 
statement shows. In this respect, cursors are not like Rexx files, which are automatically opened for use: 


if SQLOpen(s1) <> 0 then call sqlerr 'On open' 


Once the cursor is open, fetch and display rows from the cursor, one at a time, by using the Sq1Fetch 
call. This do loop shows how individual rows may be processed, one after another: 


do while SQLFetch(s1) > 0 
say 'Name:' sl.lname 'Phone:' sl.phone 


end 


After all the rows have been processed, end by closing the cursor and freeing any resources. Use the 
SqlClose and SqlDispose functions for this: 


if SQLClose(s1) <> 0 then call sqlerr 'On close' 


if SQLDispose(s1) <> 0 then call sqlerr 'On dispose' 
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Statement preparation can be used for other SQL statements besides select. While this approach may 
seem more cumbersome, it offers a performance benefit if the script executes the SQL statement more 
than once. This is because the Sq1Prepare function places SQL statement compilation into a separate 
step. Executing the SQL statement is then a separate, more efficient, repeatable step. If you prepare a 
SQL statement one time, then execute it repeatedly, this multi-step approach yields better performance. 


SQL insert, update and delete statements can also be prepared in advance. Use the SqlExecute 
function after the Sql Prepare function to execute the SQL insert, update or delete statement. End 
the process by Sq1Dispose. Use the same sequence of statements for data definition statements: 

Sql Prepare, SqlExecute, Sq1Dispose. (One DDL statement, describe, requires this sequence: 

Sql Prepare, SqlDescribe, SqlDispose). 


Rexx/SQL gives you the choice whether to opt for convenience with the single-statement processing of 
the Sq1Command function, or to go for performance with Sq1Prepare and SqlExecute. The trade-off 
between the two approaches is one of coding convenience and simplicity versus optimal performance. 


Bind Variables 


Structured Query Language, or SQL, permits the kinds of database queries illustrated by the sample 
programs above. But if SQL statements were always hardcoded, the language would not offer the pro- 
grammability or flexibility scripts require. Bind variables provide the required flexibility. Bind variables 
are placeholders within SQL statements that allow scripts to dynamically substitute values into the SQL 
statement. 


Here’s an example. In the phone directory update script, we prompted the user to enter a person’s 
name; then we retrieved the phone number based on that name. We then dynamically concatenated that 
person’s name into the SQL select statement the script issued. The statements worked fine but the 
dynamic concatenation made for some complex syntax. Here’s a simpler way to write the same state- 
ments using a parameter marker or placeholder variable that represents the bind variable 


sqlstr = 'select phone from phonedir where lname = ? ' 
if (SQLCommand(s1,sqlstr,lname) <> 0) then call sqlerr 'On select' 


The question mark (?) is the placeholder variable. The Sq1Command function includes an extra parame- 
ter that supplies a value that will be dynamically substituted in place of the placeholder variable prior to 
SQL statement execution. In this example, the value of Iname will replace the placeholder variable 
before execution. 


Bind variables can be a more efficient way to process SOL statements. They also are a little easier or 
cleaner to code. Rexx/SQL fully supports them. But different DBMSs have different syntax for parame- 
ter markers and so this feature is necessarily database-dependent. We eschewed programming with bind 
variables in this chapter for this reason. 
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Working with Other Databases 


SQL is an ANSI-standard language, and the Rexx/SQL interface follows standard API conventions for 
relational databases. This limits the differences in scripts that access different DBMSs. The changes you 
must make to point a script at one DBMS versus another when using Rexx/SQL are minimal. Usually, 
you need only change the SqlConnect statement. 


The Rexx/SQL documentation at the Rexx/SQL SourceForge project at http: //rexxsql . source- 
forge.net/doc/index. html includes a series of appendices, one for each DBMS the product supports. 
Read these appendices for DBMS-specific information. These appendices explain the minimal differ- 
ences between database targets when using Rexx/SQL. 


The one statement that does change when targeting different databases is Sq1Connect. Database con- 
nections are inherently DBMS-specific. The next three brief sections describe the basic rules for encoding 
SQLConnect statements to access Oracle-, DB2 UDB-, and ODBC-compliant databases. The ODBC 
drivers, as explained earlier in this chapter, permit scripts to access almost any database, because ODBC 
is widely implemented as a universal interface for database access. You would use the ODBC drivers 
when connecting to Microsoft SQL Server databases, for example. 


Connecting to Oracle 


Here’s how to connect to Oracle databases using the Rexx/SQL package. When connecting to Oracle 
databases via the SQLConnect function, all SqlcConnect parameters are optional. Here are some sample 
connections. To connect to a database running on the local machine with an externally dentified userid 
and password: 

re = sqlconnect () 
To connect to a local database with the default userid of scott with its default password of tiger: 


ie = ‘shoplewininvecie ((, “Se@icic" , Vieieeie ")) fe Seow dlihywesy e/ 


Now let’s connect scott to a remote database on machine prod.worl1d (as identified in Oracle’s 
SQL*Net configuration files): 


ici = Siopllcveyalaveyctie (( MIMMACOMY, Ysreoieic! , "ieslefene” _,, “ISI{OID) WO VRILID)" )) 


Connecting to DB2 UDB 


This section describes how to connect to IBM’s DB2 Universal database, better known as DB2 UDB. The 
DB2 UDB native interface uses the CLI provided by IBM Corporation. 


The database name parameter is required for a DB2 connection. Here are some sample connections. To 
connect to the SAMPLE database and name the connection MYCON, encode this: 


re = sqlconnect ('MYCON',,,'SAMPLE') 
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To connect as CODER with the password of TOPGUN, you would code a statement like this : 
re = sqlconnect (,'CODER', 'TOPGUN', 'SAMPLE"') 


The Db2 UDB database fully supports bind variables. Db2 bind variables are denoted by the standard 
marker, the question mark (?). 


Connecting using ODBC 


The Open Database Connectivity, or ODBC, standard is a generalized interface that is supported by a 
very broad range of relational databases. Use the ODBC driver for data access if Rexx/SQL does not 
support a direct or native driver for your database. The ODBC driver was long popular for connecting to 
Microsoft’s SQL Server database. 


In making the ODBC connection, the userid, password, and database name arguments are required on the 
SqlConnect function. Here is an sample connection: 


Lee —sSolconne Ga (uMy CONS CObE uel er 7a RESEXS Oli) 


The connection is named MYCON and the login occurs using userid scott and its password tiger. The 
fourth argument is the ODBC Data Source Name, or DSN. Under Windows systems, this is created using 
the Window’s ODBC Data Sources Administration tool. The DSN in the preceding sample statement is 
named REXXSQL. 


Connecting to MySQL 


MySQL is one of the most popular open source database in the world. Like Rexx itself, it is freely 
downloadable and highly functional. As a result, it has become very popular as a fully featured, low 
cost alternative to expensive commercial database management systems. 


When connecting to MySQL databases, the database name is the only required parameter on SqlConnect. 
The sample programs in this chapter all connected to a MySQL database named test. These two 
statements from those sample scripts illustrate the connection in the SQLConnect function, and the 
selection of the MySQL test database in the second statement: 


ie COMIC omumeere |, 4, Viyseul! )) <> 0 then call sqlerr 'On connect' 
if SQLCommand(ul,"use test") <> 0 then call sqlerr 'On use' 


One way in which MySQL differs from many other database management systems is that only certain 
kinds of MySQL tables support transactions. The SqlCommit and SqlRollback functions only 
provide transactional control against tables that specifically support transactions. So, you must use the 
proper kind of table to write transactional programs. Another difference of which you should be aware 
is that MySQL does not support bind variables. 


Other database differences 


Beyond the SqlConnect statement, what other aspects of Rexx/SQL will be coded differently according to 
which DBMS you use? Bind variables are one area. Bind variables allow you to dynamically place 
variables into SQL statements. The syntax for the placeholders varies between DBMSs. 
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The SqlDefault and SqlDescribe functions operate slightly differently under various databases. The 
SqlVariable and SqlGetInfo functions return slightly different information for different databases. 


Finally, the way in which SQL statements themselves are encoded will sometimes vary. This is due to the 
databases themselves, not because of the Rexx/SQL interface. While most DBMSs support various ANSI 
SQL standards, most also support keywords and features beyond the standards. Oracle is an example. 
Oracle SQL is one of the most powerful database languages, but it achieves this power at some cost in 
standardization. Be aware of variants from SQL standards if retargeting Rexx/SQL scripts toward differ- 
ent DBMSs. 


Other Database Interfaces 


This chapter focuses on Rexx/SQL because it is the most popular open-source database interface and 
because it accesses all important DBMSs. Other Rexx database interfaces are also available. 


One example is IBM’s commercial interfaces for its DB2 Universal Database (DB2 UDB). DB2 UDB runs 
on a variety of operating systems including Linux, Unix, Windows, and mainframes. The mainframe 
product has a different code base than that sold for Linux, Unix, and Windows. Writing Rexx-to-DB2 
scripts on the mainframe is popular because scripting offers an easy way to customize database manage- 
ment activities. Rexx is an easier language to program with than the alternatives in tailoring and manag- 
ing the database environment. 


This discussion focuses on DB2 UDB for Linux, Unix, and Windows (LUW). We discuss the LUW prod- 
uct because more readers will likely have access to one of these operating systems than a mainframe 
platform. But the Rexx scripting for data manipulation language, or DML, statements we present here 
for DB2 UDB under LUW is essentially the same as you would code when using mainframe DB2. 


As opposed to a generic database interface like Rexx/SQL, the IBM Rexx / DB2 interfaces give much 
greater control over DB2 UDB, including all its administrative functions and utilities. The downside is 
that the Rexx/DB2 interfaces are DB2-specific. They are nonportable and come bundled with a pur- 
chased commercial database. They only operate against DB2 databases, whereas Rexx/SQL operates on 
nearly any relational database. 


Among IBM’s programming interfaces for managing and controlling DB2 UDB databases, the Rexx /DB2 
interfaces are easier to program than the alternatives (those for compiled languages like C/C++, 
COBOL, or FORTRAN). They bring the power and productivity of Rexx scripting to the administration 
and management of DB2 UDB. Check IBM’s interface documentation to see which Rexx interpreters 
their interfaces currently support. 


Let’s take a look at the Rexx/DB2 package. Three Rexx/DB2 interfaces come bundled with DB2 UDB for 
Linux, Unix, and Windows: 
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DB2 UDB Interface Use 


SQLEXEC The SQL interface. Use this to access databases and issue SQL state- 
ments. This interface supports the kinds of SQL processing illus- 
trated in this chapter with Rexx/SQL, for example, DML statements, 
cursor processing, and parameter markers. 


SQLDB2 An interface to DB2’s command-line processor (CLP). Use it to run any 
of the hundreds of commands the CLP supports, including those for 
attach, connect, backup, restore, utilities, an the like. 


SQLDBS An interface to DB2’s Administrative APIs. Use this to script adminis- 
trative tasks for DB2 databases. 


These three interfaces give Rexx scripts complete control over DB2 UDB. Not only can you program 
DML and DDL statements, but you can also script database administration, utilities, configuration 
changes, and the like. Rexx scripts can even run database stored procedures on most platforms. 


The Rexx statements that access the Rexx/DB2 interfaces vary slightly by operating system. Under 
Windows, for example, Rexx scripts use the SAA standards to register and load these three DB2 inter- 
faces. This is the same standard for access to external functions illustrated previously with Rexx/SQL. 
For example, these statements set up the three DB2 interfaces for use within a Windows Rexx script: 


if RxFuncQuery('SQLEXEC') <> 0 then 
feedback = RxFundAdd('SQLEXEC', 'DB2AR', 'SQLEXEC' ) 


if RxFuncQuery('SQLDB2') <> 0 then 
feedback = RxFundAdd('SQLDB2', 'DB2AR', 'SQLDB2') 


if RxFuncQuery('SQLDBS') <> 0 then 
feedback = RxFundAdd('SQLDBS', 'DB2AR', 'SQLDBS' ) 


Once access to the DB2 interfaces has been established, scripts can connect to databases and issue SQL 
calls. Here is an example of how to embed SQL statements in scripts using the SQLEXEC interface. This 
code sequence updates one or more rows in a table by issuing the DML update statement: 


statement = "UPDATE STAFF SET JOB = 'Clerk' WHERE JOB = 'Mgr'" 
CALL SQLEXEC 'EXECUTE IMMEDIATE :statement' 
IF ( SQLCA.SQLCODE < 0) THEN 

SAY 'Update Error: SQLCODE = ' SQLCA.SQLCODE 


This example builds a SQL update statement in a variable named statement. It immediately executes 
the statement by the SQLEXEC function. The host variable named statement, identified by its preceding 
colon (:), contains the SQL statement to execute. The script checks the return code in special variable 
SQLCA.SQLCODE to see whether the SQL statement succeeded or failed. As in the Rexx/SQL interface, 
the Rexx/DB2 interface sets a number of variables that pass status information back to the script 
through the SQLCA. 


251 


Chapter 15 


In this example, note the use of uppercase for Rexx and SQL statements, and lowercase for literals and 
other parts of the code. This is the informal “standard” to which Rexx scripts often adhere in IBM envi- 
ronments and in mainframe programming. It’s a popular way of coding that serves to identify different 
parts of the code. Of course, since Rexx is not case-sensitive, you can use whatever case or mix of case 
you feel comfortable with or find most readable. The only exception is the data itself (in character string 
literals within Rexx scripts and character data residing in the database). These are case-sensitive. 


Here’s another coding example. These statements show how to set up cursor processing using the 
SQLEXEC interface: 


prep string = "SELECT TABNAME FROM SYSCAT.TABLES WHERE TABSCHEMA = ?" 
CALL SQLEXEC 'PREPARE Sl FROM :prep_string'; 

CALL SQLEXEC 'DECLARE Cl CURSOR FOR S1'; 

CALL SQLEXEC 'OPEN Cl USING :schema_name'; 


This time the script builds the SQL statement in the variable named prep_string. The question mark 
(?) is a parameter marker or placeholder variable for which values will be substituted. 


The SELECT statement is dynamically prepared. The SQLEXEC interface first PREPARES the SELECT; 
then it DECLAREs and OPENs the cursor. After executing the preceding code, a FETCH loop would then 
process each row returned in the result set, and a CLOSE statement would end the use of the cursor. 


One issue in cursor processing is how to detect null values. Null values are data elements whose values 
have not been set. Whether a column can contain nulls depends on the column and table definitions, and 
also whether any column values have not been loaded or inserted. To detect null values, the Rexx/DB2 
interface uses indicator variables. The keyword INDICATOR denotes them, as in this example: 


CALL SQLEXEC 'FETCH Cl INTO :cm INDICATOR :cmind' 
IF ( cmind < 0 ) 
SAY 'Commission is NULL' 


If the indicator variable cmind is set to a negative value by the interface, then the column variable cm is 
null. A null variable indicates that a column entry has not yet been assigned a value in the database. 


Calls to the Rexx/DB2 SQLDB2 and SQLDBS interfaces are coded like those we’ve discussed in 
illustrating the SQLEXEC preceding interface. Here are the generic templates for invoking the SQLEXEC, 
SQLDB2, and SQLDBS interfaces. Each names the interface, then follows it with a SQL statement or 
command string representing the function desired in the call: 


CALL SQLEXEC 'sql statement' 


CALL SQLDB2 ' command string' 


CALL SQLDBS ' command string' 
These three code examples appear in the IBM manual, IBM Db2 UDB Application Development Guide. This 


and all other Db2 manuals can be freely accessed or downloaded from the online IBM Publications 
Center, as described in Appendix A. 
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You can see from the code examples in this section that coding the Rexx/DB2 interface is slightly differ- 
ent from coding SQL calls with the Rexx/SQL package. Nonetheless, if you know one of these two inter- 
faces, it is quite easy to learn the other. The principles that underlie how to code data manipulation and 
data definition statements are the same in both products. 


Summary 


This chapter overviews of the features of the Rexx/SQL interface in accessing relational databases. 
Rexx/SQL is an open-source product that accesses almost any type of SQL database. 


The examples showed how quick and convenient Rexx/SQL coding is. It allows single-statement execu- 
tion of SOL statements, including select 's and DDL. Yet it also supports statement preparation, bind 
variables, auto-commits, and all the other features programmers might want in their call-level database 
interface. 


We discussed five sample scripts that use the Rexx/SQL interface. The first illustrated the basic mecha- 
nisms of creating and terminating database connections. It also retrieved and displayed database version 
and release information. The second script showed how to create and load a database table. Two scripts 
showed how to read all the rows of a table. The first used Rexx/SQL’s “array” notation to refer to indi- 
vidual table rows, while the second illustrated the more standard but cumbersome approach called cur- 
sor processing. An update script showed how to retrieve and update individual rows within a table. It 
also illustrated the value of explicitly committing data from within a script. 


We also took a quick look at IBM’s proprietary Rexx/DB2 interfaces. These exemplify the kinds of 
database-specific programming and administration possible in Rexx scripts. Scripting these tasks is 
much more productive than using traditional compiled programming languages. While we did not walk 
through complete sample scripts illustrating the Rexx/DB2 interfaces, we discussed several code snip- 
pets that show how these interfaces are coded. 


This chapter just touches upon the broad topic of database programming. Our purpose is to describe 
Rexx database scripting and to demonstrate its coding in a simple manner. If you need more information 
about database programming, please obtain one of the many books on that topic. 


Test Your Understanding 


1. What are the key advantages to the Rexx/SQL interface? What are the advantages to using a 
DBMS in your scripts? 


2. What Rexx/SQL functions must every script start with? 


3. How to you initiate and terminate database connections? How can you check the status of a 
connection? 


4. Describe how you would write a single routine to process SQL errors. What are the advantages 
to such a routine? What SQLCA variables are set by the interface, and what do they tell your 
script? 
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5. SQL statement syntax is complex. Tell how you can code to quickly identify and reduce syntax 
errors. 


What is the purpose of the Sq1Dispose function? How does it differ from SqlDisconnect? 


7. Compare the use of Rexx/SQL to the bundled Rexx/DB2 interfaces for scripting with DB2 UDB. 
What are the advantages of each toolset? 
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Overview 


This chapter explores graphical user interface, or GUI packages. It gives you an overview of the 
major packages, explains when to use each, and explores how to design scripts that use them. 


GUI development is a detail-oriented process and scripts that create and manage GUIs typically 
require many lines of code. We cannot cover all the ins and outs of GUI programming ina single 
chapter. GUI programming is a study in its own right. It means learning the many functions, 
parameters and attributes involved in windows programming. Our goals here are to describe the 
different GUI interfaces available to Rexx programmers and offer guidance on the advantages and 
drawbacks of each. We also give you an idea of the structure and design of typical GUI-based 
scripts. The sample scripts are quite basic, yet studying them should equip you to move into more 
serious GUI scripting. 


As a universal scripting language, Rexx runs on every imaginable platform. One advantage of this 
versatility is that several GUI packages interface with Rexx. These include Rexx/Tk, Rexx/DW, 
Rexx Dialog, ooDialog, RexxGTK, Dr. Dialog, VX*Rexx, and VisPro/REXX. The downside to this 
variety is that no single GUI interface has established itself as the de facto standard for Rexx 
developers. 


In this chapter, we’ll first briefly characterize the major GUIs available for Rexx scripting. For each, 
we'll mention some of its advantages and uses, and we'll list the environments in which it runs or 
is typically used. These brief product profiles orient you to which interface product might be most 
appropriate for your own applications. Following these short product profiles, we'll look at three 
packages in greater detail: Rexx/Tk, Rexx/DW, and Rexx/gd. The first two packages aid in script- 
ing Rexx GUIs, while the latter is for creating graphical images. We’ve selected these three pack- 
ages for detailed, coding-level coverage for specific reasons. All three are: 


(1 Open-source products that are freely downloadable 


(1 Popular, widely used, and well proven 


C1 Runacross the major operating systems families 


Let’s start with the brief sketches of the major GUI interfaces. 
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Rexx/Tk allows Rexx scripts to use the Tk, or “ToolKit,” GUI popularized by the Tcl/Tk scripting lan- 
guage. This package enables the development of portable, cross-platform GUIs. Tk supports all impor- 
tant widgets or window elements. Its dozens of functions categorized as Menus, Labels, Text, Scrollbars, 
Listboxes, Buttons, Text Entry, Sliders, Frames, Canvas, Window Design, Event Handlers, and 
Convenience functions. 


To use Rexx/Tk, you must install both it and the Tcl/Tk scripting language. Your Rexx scripts invoke 
Rexx/Tk external functions, which then run their corresponding Tcl/Tk commands. The names and pur- 
poses of the Rexx/Tk functions are similar to their corresponding Tk commands, so if you know one, 
you know the other. 


The advantage to Rexx/Tk is that Tk is one of the most widely used cross-platform GUI toolkit in the 
world. It runs on all major platforms. Tk became popular because it makes the complex, detail-oriented 
process of creating GUIs relatively easy. Sharing Rexx’s goal of ease-of-use makes Tk a nice fit for Rexx 
scripting. Those who already know the Tk interface experience little learning curve with Rexx/Tk. You 
could read a Tcl/Tk book to learn Rexx/Tk. Plenty of documentation and tutorials are available. 


The downside to Rexx/Tk is that it requires Tcl/Tk on your system and has the performance penalty 
associated with a two-layer interface. If problems arise, you could find yourself dealing with two levels 
of software — the Rexx/Tk interface with its functions, and the corresponding Tcl/Tk commands. 


Rexx/Tk is open-source software distributed under the GNU Library General Public License, or GNU 
LGPL. Information on Rexx/Tk and downloads are http: //rexxtk.sourceforge.net/index.html. 


We discuss Rexx/Tk in more detail later in this chapter. 


Rexx/DW 


This GUI package is based on Dynamic Windows, or DW, a lightweight GUI framework modeled on the 
GTK toolkit of Unix and Linux (GTK is also known as GTK+ and the Gimp Toolkit). GTK is open source 
under the GNU LGPL license. With Rexx scripts, Rexx/DW presently runs under the Windows, Linux, 
Unix, and OS/2-derived environments. 


Widgets are the basic display items placed on GUI windows. The Dynamic Windows package supports 
a wide variety of widgets, including: Entryfield or Editbox, Multiline Entryfield or Editbox, Combobox, 
Button, Radio Button, Spin Button, Checkbox, Container or Listview, Treeview, Splitbar, 
Bitmap/Pixmap/Image, Popup and Pulldown Menus, Notebook, Slider, Percent or Progress meter, 
Listbox, Render/Drawing Area, Scrollbar, and Text or Status Bar. 


Rexx/DW differs slightly from the Dynamic Windows framework in that it offers a few special functions 
beyond what DW contains, while it lacks a few others DW has. So, while Rexx/DW closely follows 
Dynamic Windows’ functionality, it is not an exact match. 


The main advantage to Rexx/DW is that it is a lightweight interface. Compared to Rexx/Tk, Rexx/DW 
provides a cross-platform GUI, while eliminating the overhead of Tcl/Tk that Rexx/Tk requires. 
Rexx/DW addresses the performance concerns that sometimes arise when programming GUI interfaces. 
Sometimes it’s simpler not to have the Tcl/Tk system installed on the computer and involved as an 
intermediate software layer. 
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Rexx/DW is a newer project than Rexx/Tk. Programmers who compare the two may wish to compare 
the level of ongoing effort behind the two projects when deciding which to use. An easy way to do this 
is to access the Web pages for the respective products at SourceForge.net. 


Rexx/DW is open-source software distributed under the GNU LGPL. Information on Rexx/DW and 
downloads are at http: //rexxdw. sourceforge.net/. The GTK+ project homepage is located at 
www.gtk.org/. 


We discuss Rexx/DW in more detail later in this chapter. 


Rexx Dialog 


This GUI is specifically designed for Windows operating systems with either the Reginald or Regina 
Rexx interpreters. Reginald is a Rexx interpreter based upon Regina, and was extended and enhanced 
with Windows-specific functions. It specifically targets Windows platforms. (Reginald is currently out 
of support.) Rexx Dialog is the component added to support the typical kinds of GUI interactions users 
expect from Windows-based applications. It optimizes the GUI for Windows. Where portability is not a 
concern, Rexx Dialog brings Windows “power programming” to Rexx developers. 


Chapter 23 covers Reginald and its Windows-oriented features. That chapter provides further informa- 
tion on Rexx Dialog and its functions, as well as information on where to download the package. It also 
offers examples of a few of Reginald’s Windows-oriented functions. 


ooDialog and RexxGTK for ooRexx 


You access the downloads for the Open Object Rexx (or ooRexx) project at its SourceForge home page of 
https://sourceforge.net/projects/oorexx/. When you do, you'll see downloads for two 
different GUI interfaces you can use with ooRexx: ooDialog and RexxGTK. 


ooDialog is a windows and dialog management tool for building GUIs with ooRexx running under 
Windows. It gives easy access to the underlying Windows API through an extensive library of classes 
and methods. 


RexxGTK is an ooRexx class library that provides access to the cross-platform GTK graphical interface 
available on most mainstream operating systems (eg, Linux, Unix, BSD, Windows, Mac). You must have 
the GTK+ libraries installed to use it. This provides an extensive set of free and open source classes and 
methods for developing GUI applications. RexxGTK is designed for use with ooRexx and does not work 
with other Rexx interpreters. 


Dr. Dialog, VX* Rexx, VisPro Rexx 


These interfaces were popular under OS/2 and have faded along with OS/2. The latter two were com- 
mercial. Searching under the names of any of these products in a common Internet search engine like 
Google provides more information on them if you need it. 
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Now that we've profiled the major GUI interface packages, let’s explore three of the most popular in 
greater detail. We start with Rexx/Tk, a popular, portable interface modeled on the Tk interface popular- 
ized by the Tcl/Tk scripting language. 


Rexx/Tk is an external function library that provides Rexx scripts interface to the Tcl/Tk command lan- 
guage. Rexx/Tk has well over 100 functions. Each directly corresponds to a Tcl/Tk GUI command. The 
Rexx/Tk documentation maps the Tcl/Tk graphics commands to their equivalent Rexx/Tk functions. 
This means that you can learn Rexx/Tk programming from Tcl/Tk graphics books. Or, to put it another 
way, to program in Rexx/Tk you must know something about Tcl/Tk GUI programming. 


Rexx/Tk includes another 50 plus “extensions,” extra functions that map onto Tcl code that is dynami- 
cally loaded during Tcl programming. This provides all the GUI facilities Tcl/Tk programmers have 
access to, whether or not those functions are dynamically loaded. 


The Rexx/Tk function names correspond to their Tcl/Tk equivalents. For example, Tk’s menu command 
becomes TkMenu in the Rexx library; menu post becomes TKMenuPost. This makes it easy to follow 
the mapping between the Tcl/Tk command and Rexx/Tk functions. 


Tcl/Tk is case-sensitive. Quoted commands or widgets must be typed in the proper case. The special 
return code tkrc is set by any Rexx/Tk function. tkrc is 0 when a function succeeds, negative on 
error, or a positive number for a warning. The TkError function makes available the full text of any 
error message. 


Appendix G lists all the Rexx/Tk functions and extensions and their definitions. It gives you the com- 
plete overview of the functions provided with the product. 


Downloading and installing 


First you must download and install Tcl/Tk on your system. Searching on Google provides a list of sev- 
eral download sites. Among them are ActiveState at www.activestate.com/Products/ActiveTcl. 

The website provides the product along with documentation and set up information. Downloads come 

in both source and binary distributions for all major platforms. Tcl/Tk is free software. Read the license 
that downloads with the product for terms of use. 


Under Windows we did nothing more than download the *.zip file, decompress it, and run the 
installer program. For first time users of Rexx/Tk, we recommend the “default install” of Tcl/Tk to 
avoid any problems. 


After installing Tcl/Tk, be sure to run one or more of its “demo” programs. These reside in a subdirec- 
tory to the product directory and have the extension * . tcl. Running a demo program ensures that 
your installation succeeded. 


The next step is to download and install the Rexx/Tk package. Rexx/Tk can be freely downloaded from 
SourceForge.net. The Rexx/Tk Web page documents the package at http: //rexxtk. sourceforge. 
net/. The Web page includes a link to download the product, or go to http://sourceforge.net 
and enter keywords Rexx/Tk into the search panel. 


258 


Graphical User Interfaces 


The product is available in source and binaries for various platforms. After downloading and decom- 
pressing the appropriate file, read the README and the setup.htm1 files that describe product installa- 
tion. You must set environmental variables and the PATH to reflect the product and library location. To 
use the external function library, your scripts must be able to load the Windows DLL named 
rexxtk.dl1l1 or the Linux or Unix shared library file named librexxtk*. 


Rexx/Tk is an external function library, as is Rexx/DW. Either is usable from any Rexx interpreter that 
supports standard access to external functions. Both are always tested with the Regina interpreter, so if 
you experience problems that appear to be interpreter-related, verify your install by testing with Regina. 


Basic script design 
Rexx/Tk scripts are event-driven, or activated by user interaction with the top-level window and its wid- 
gets, so scripts share a common structure. The logic of their main routine or driver is typically: 
1. Register and load the Rexx/Tk external function library. 
Create the top-level or main window, including all its widgets. Display the main window to the user. 


3. Enter a loop which manages user actions on the widgets. 


= 


Specific routines are invoked within your script depending on user actions (mouse-clicks and inputs). 


m 


The script terminates when the user exits the top-level window. 


Figure 16-1 diagrams this logic. 
Rexx/Tk GUI Scripting 
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Let’s review a very simple sample script. We've kept it minimal so that you can see the basic script struc- 
ture. The goal here is not to explore Tk widgets, of which there is a very full universe. It is simply to ori- 
ent you to the typical design of Rexx/Tk scripts. 


The script was developed under Microsoft’s Windows operating system, but Rexx/Tk’s portability 
means it could have been developed for several other operating systems, including Linux and Unix, as 
well. 


All the sample script does is display a small GUI window with a menu bar. The sole option on the menu 
bar in the window is labeled File. When the user clicks on File, a drop-down menu appears. It con- 
tains three items labeled Open ... ,Dir...,and Quit. So the drop-down menu structure is: 


File 
Open... 
IDlie 3% 
Skane 


If the user selects Open. . ., the standard Windows panel for File Selection appears. The user selects a file 
to “open,” and the script simply confirms the user’s selection by displaying that filename in a Message 
Box. The user clicks the 0k button in the Message Box and returns to view the original window. 


Similarly, if the user selects Dir. . ., the standard Windows dialog for Directory Selection appears. After 
the user picks a directory, the script displays the directory name in a Message Box to confirm the user’s 
selection. The user clicks the 0k button in the Message Box and returns to the original window. 


If the user selects Quit, a Message Box asks him or her Are You Sure? with Yes and No buttons below 
this question. Selecting the No button takes the user back to the original window and its menu bar. 


Clicking yes makes the window disappear and the script ends. 


Here’s the main routine or driver of the script: 


[RRREREKREERKKEEEKKAREKRRERKKKEERKKKERKKKERE RRR KEKE KKEKEREKKKEKKKK KK / 


/* REXX_TK EXAMPLE: ay 
a if 
/* A very simple example of the basics of Rexx/TK. ehh 


[RRRERRREREKKEREKRRERE KEKE EKEKEREKREERKRKERERERKEKKRERKKEKEREKEKAEKEK KK | 


/* load the Rexx/Tk external function library for use ey 


call RxFuncAdd 'TkLoadFuncs', 'rexxtk', 'TkLoadFuncs' 
if TkLoadFuncs() <> 0 then say 'ERROR- Cannot load Rexx/Tk library!' 


call top_window /* create and display the main window */ 

do forever /* the basic loop in this program yf 
interpret 'Call' TkWait() /* wait for user action, then respond */ 

end 

call TkDropFuncs /* drop the library functions </, 

exit 0 /* end of script Zo 
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The first line of the script uses the SAA function RxFuncAdd to register the function TkLoadFuncs, 
which will be used to load the Rexx/Tk library: 


call RxFuncAdd 'TkLoadFuncs', 'rexxtk', 'TkLoadFuncs' 


The key parameter is the second one, rexxtk, which matches the filename for the external library. In 
Windows, for example, the file’s name would be rexxtk.d11. Under Linux, Unix, or BSD, the parame- 
ter identifies the shared library file. 


The installation of the Rexx/Tk library ensures that the Rexx interpreter can find this library through the 
proper environmental variable. If this line fails in your script, review the install README* files for how to 
set the environmental variables Rexx requires to locate external libraries. 


Once the RxFuncAdd function has registered the TkLoadFuncs function, execute TkLoadFuncs to load 
the entire external library. Now all the Rexx/Tk functions are available for the use of this script: 


if TkLoadFuncs() <> 0 then say 'ERROR- Cannot load Rexx/Tk library!' 


This example assumes that we’re using the Regina Rexx interpreter, which bases its access to external 
function libraries on the SAA standard. Other Rexx interpreters that follow the SAA interface standards 
to external libraries would use the same code as this script. Some Rexx interpreters accomplish access to 
external function libraries in a different manner. 


Now the script creates a top-level window: 
call top_window /* create and display the main window */ 


The code in the top_window internal subroutine can establish all sorts of widgets (or controls) and 
attach them to the topmost window. We'll look at the code of the subroutine in a moment. The point here 
is that the script creates and then displays a window with which the user will interact. 


Having displayed its initial window, this code is the basic loop by which the script waits for user interac- 
tion with the widgets or controls on the top-level window: 


do forever /* the basic loop in this program 7 
interpret 'Call' Tkwait() /* wait for user action, then respond */ 
end 


The script ends when the user selects the action to end it from the top-level window. The following code 
should therefore never be reached, but just in case, always drop the Rexx/Tk functions and code an 
exit instruction to end the main routine: 


call TkDropFuncs /* drop the library functions Mf 
exit 0 /* end of script xy, 


That’s all there is to the main routine. Pretty simple! The real work in most GUI scripts is in the defini- 


tion of the widgets or controls and the development of the routines that handle the events prompted by 
user interaction with those controls. 
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Here’s the internal subroutine that creates the top-level window and all its widgets: 
top_window: Fe Cieeeiesy/Chtsjollewy ie@o=Jlenyel Waliaycloyiyy eters cai tae art 
menubar = TkMenu('.m1') /* make a menubar for the top window */ 
/* create drop-down menu, add it to the top-level menubar a 


filemenu = TkMenu('.ml.file','-tearoff', 0) /* create drop menu */ 
call TkAdd menubar, 'cascade', '-label', 'File', '-menu', filemenu 


/* now add items to the File menu */ 


call TkAdd filemenu, 'command', '-label', 'Open...', '-rexx', 'getfile' 

call TkAdd filemenu, 'command', '-label', 'Dir...' , '-rexx', 'getdirectory' 
call TkAdd filemenu, 'command', '-label', 'Quit' , ‘-rexx', 'exit_window' 
call TkConfig '.', '-menu', menubar /* attach menubar to window ae 
return /* end of routine TOP_WINDOW */ 


The first line creates a menu bar for the top-level window. In Tk, the topmost window is denoted by a 
period (.), and all widgets on that window derive their name from this. This line creates the menu bar 
we have named .m1 for the topmost window: 


menubar = TkMenu('.m1') /* make a menubar for the top window */ 
After creating the menu bar, the script can create a drop-down menu to attach to it. These two lines cre- 
ate the drop-down menu at the far left side of the menu bar in the main window. The invocation of the 


Tkadd function attaches the drop-down menu to the menu bar: 


filemenu = TkMenu('.ml.file','-tearoff', 0) /* create drop menu */ 
call TkAdd menubar, 'cascade', '-label', 'File', '-menu', filemenu 


With the drop-down menu in place, the script needs to add items to this menu. Three more calls to 
Tkadd add the three items in the drop-down menu: 


call TkAdd filemenu, 'command', '-label', 'Open...', '-rexx', 'getfile' 
call TkAdd filemenu, 'command', '-label', 'Dir...' , '-rexx', 'getdirectory' 
call TkAdd filemenu, 'command', !-label', 'Quit' , ‘-rexx', 'exit_window' 


A single call to the TkConfig function completes the set up by attaching the menubar to the window: 
call TkConfig '.', '-menu', menubar /* attach menubar to window ey 


The routine has completed its task of building the top-level window and its widgets. It ends with a 
return instruction. 


Now we need to create three routines, one for each of three actions the user can select from the drop- 
down menu. The TkAdd functions above show that the labels the user will view for these three actions 
are Open..., Dir..., and Quit. Those lines also show that the corresponding routines we need to cre- 
ate for the three actions must have the names of get file, getdirectory, and exit_window. So the 
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TkAdd function associates the label the user selects with a routine in the script that will be run when he 
or she selects the label from the drop-down list. 


Here is the code for the get file routine, the routine that displays the typical Windows panel from 
which users select filenames (the Windows’ File Selection panel). The TkMessageBox call displays back 
the filename the user selects in a Message Box and allows the user to exit back to the main window by 
pressing the Ok button: 


getfile: /* get a filename from user BRS ad PUM ES TPES Gy Co LEER OE ER Beha hg EF eG 
filename = TkGetOpenFile('-title','Open File') 


if TkMessageBox('-message',filename,'-title', , 
'Correct?','-type','ok','-icon','warning') = 'ok' then nop 


return 


The TkGetOpenFile function sets up the Window’s File Selection dialog. You can see the power of a 
widget or Windows control here: a single line of code presents and manages the entire user interaction 
with the File Selection dialog. 


The code to implement the directory selection routine is nearly the same as that for the routine above, 
except that a Windows-style Directory Selection panel appears instead of a File Selection panel. Once 
again, the TkMessageBox call echoes the user’s choice back to him or her inside a Message Box. The user 
acknowledges the Message Box and continues interaction with the script by clicking on the message ok 
displayed inside that Message Box: 


(efaicGblinereleonaye / CSc el Chiseecicoray iakelNS ‘Siayoye, Saket ot restore ester a See ttete 
dirname = TkChooseDirectory('-title', 'Choose Directory' ) 


if TkMessageBox('-message',dirname,'-title', , 
'Correct?','-type', 'ok','-icon','warning') = 'ok' then nop 


return 


Lastly, here is the code that executes if the user selects option Quit from the drop down menu. It dis- 
plays a Message Box that asks Are You Sure? If the user pushes the No button, he or she again sees 
the top-level window because of the return instruction in the code below. If he presses the yes button, 
he exits the script and its window. This executes the TkDropFuncs function below, which drops the 
Rexx/Tk function library from memory and further use by the program: 


Gxalie Wabacloys  EsSlies) (eey=IesSll waliaycloyyy INU) Sores ets oF ee tat a talatea eats 


if TkMessageBox('-message','Are you sure?','-title', , 

Howse. USege” , NieKsinve” , Vaateeia , “Nieliaiinve;")) = Tialo)" elaveyar IEXSicibleial 
call TkDropFuncs /* drop the library functions BY). 
exit 0 /* end of script raf 
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This sample script is very minimal. It just displays a small window with a drop-down menu and man- 
ages user interaction with the window and its menu selections. Nevertheless, the script does illustrate 
the basic structure of GUI scripts and how they manage user interaction. You could take this “skeletal 

script” and expand it into a much more robust and complex window manager. 


Your next steps 


The sample script shows that most GUI scripts have the same basic structure. The logic of the driver is 
simple. It is in the nearly 200 functions to create and define widgets in which complexity lies. And in 
writing the procedural logic to animate the actions the user selects by interacting with the controls. 
Learning the function library and how to program all the widgets or controls are the challenge. 


Start by perusing the sample scripts shipped with Rexx/Tk. You can learn a lot from them. And consider 
learning more about the Tcl/Tk commands that underlie Rexx/Tk. Two good sources of information are 
the Tcl/Tk Developer’s home page, listed earlier, and any of several popular books on how to program 
the Tcl/Tk GUI. Among those books are Graphical Applications with Tcl and Tk by Eric F. Johnson (M&T 
Books, ISBN: 1-55851-569-0) and Tcl/Tk in a Nutshell by Raines and Tranter (O’Reilly, ISBN: 
1-56592-433-9). You can find many other books on the Tk toolkit by searching online at www.amazon.com 
or www. barnesandnoble.com. 


Rexx/DW 


Rexx/DW offers an alternative GUI toolkit to that of Rexx/Tk. Rexx/DW’s main advantage is that it is a 
lightweight interface, offering potential performance improvements over Rexx/Tk. 


Rexx/DW provides external functions that enable Rexx scripts to create and manage GUIs through 
Netlabs.org’s Dynamic Windows, or dwindows, package. Rexx/DW scripts define widgets, elements placed 
in windows, such as check boxes, radio buttons, and the like. Widgets are assembled into the window 
layout by a process called packing. Internal subroutines you write called event handlers or callbacks are 
associated with particular actions the user takes on the widgets. 


Scripts typically present a window or screen panel to the user and wait for the user to initiate actions on 
the widgets that activate the callback routines. Interaction continues as long as the user selects an action 
from the window. At a certain point, the user closes the window. This ends interaction and terminates 
the program. 


Components 


To set various layout and behavioral attributes, Rexx /DW has about 30 constants. Each constant has a 
default and can be set by the script to some other value to change behavior. 


Rexx/DW contains over 175 functions. These categorize into these self-descriptive groupings: 


QQ ProcessControl 


Q Dialog 


Q = CallbackManagement 
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Browsing 
ColourSupport 
ModuleSupport 
MutexSupport 
EventSupport 
ThreadSupport 
PointerPosition 


Utility 


Cococooodo sp 


PackageManagement 


Rexx/DW supports 17 different callbacks or events that scripts can be programmed to handle. 


Downloading and Installing Rexx/DW 


Like Rexx/Tk, Rexx/DW can be freely downloaded from SourceForge.net. The Rexx/DW Web page 
documents the package at http: //rexxdw.sourceforge.net/. The Web page includes a link to 
download the product, or go to http: //sourceforge.net and enter keywords Rexx/Dw into the 
search panel. 


Download either compressed source or binaries for your operating system. The installation follows the 
typical pattern for open-source software. If you downloaded binaries, after decompression all you must 
do is set environmental variables and the PATH to reflect the product and library location. To use the 
external function library, your scripts must be able to load the Windows DLL named rexxdw.d11 or the 
Unix/Linux/BSD shared library file named something similar to Librexxdw*. The README* file that 
downloads with the product gives installation instructions and details on how to set environmental 
variables. 


Basic script design 


Rexx/DW scripts are event-driven, activated by user interaction with the top-level window and its wid- 
gets. Their logical structure is similar to that of Rexx/Tk scripts and those developed with other promi- 
nent GUI packages. The basic outline of user-driven interaction provided in Figure 16-1 applies to 
Rexx/DW programming as well (except that Rexx/DW functions are used in place of Rexx/Tk functions). 


The basic structure of the typical Rexx/DW script is: 


1. Register and load the Rexx/DW external function library. Use code such as this: 
call RxFuncAdd 'DW_LoadFuncs', 'rexxdw', 'DW_LoadFuncs' 
if DW_LoadFuncs() <> 0 then say 'ERROR-- Unable to load Rexx/DW library!' 


The first line uses the SAA-based function in Regina Rexx named RxFuncAdd to register the 
DW_LoadFuncs external function. It resides in the external library named named by the second 
parameter, rexxdw . 
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In Windows, rexxdw refers to the file rexxdw.d11. In Linux or Unix, it refers to the root part 
of the name of the shared library file. In either case, the proper environmental variable must be 
set to indicate the location of this file for the RxFuncAdd call to succeed. The second line 
invokes the DW_LoadFuncs function to load the rest of the DW external library. 


2. _ Initialize the dynamic windows interface by invoking the Rexx/DW dw_init function. 
Initialize various attributes in the constants to set interface behaviors and defaults. 


3. Create the topmost panel or window. This screen may consist of a set of packed widgets, each 
having various attributes and behaviors. Events are mapped into callbacks or event-handling 
routines for the various actions the user might take on the window, based on the widgets it 
contains. This mapping is achieved through the function dw_signal_connect and potentially 
other CallbackManagement functions. When all is ready, the script displays the top-level win- 
dow to the user. 


Now the script driver runs an endless loop that receives actions from the user. Depending on 
the capabilities of the Rexx interpreter, this loop might use either of the functions dw_main 
or dw_main_iteration. This loop is similar to that of the TkWait function loop in Rexx/Tk. 


4. The user ends interaction with the script by closing its top-level window. 


In summary, you can see that the skeletal logic of Rexx/DW programs is the same as the sample 
Rexx/Tk script we discussed earlier in the chapter. So, scripting Rexx/DW interfaces is rather similar to 
scripting Rexx/Tk. The difference is that you use Rexx/DW functions to bring the logic to life. The real 
work in Rexx/DW scripting is in writing the callback routines to handle user interaction with the wid- 
gets on the window. 


Your next steps 


As with other forms of GUI programming, the program logic of Rexx/DW scripts is straightforward. 
The trick lies in learning the many attributes and functions the package contains. This powerful package 
contains some 175 functions! 


Fortunately, Rexx/DW comes with complete documentation and sample scripts. Use these as models 
with which to get started. Take the sample scripts, look them over until you understand them, then copy 
them and adapt them to your own needs. This will get you up and running quickly. 


Graphical Images with Rexx/gd 


Rexx/gd is an external function library designed for the creation and manipulation of graphical images. 
It is not intended for the creation, manipulation and control of GUIs in the same manner as are Rexx/Tk 
and Rexx/DW. Rather, it creates images stored in *.gif, *.png, and *.jpg files. These could be 
displayed within a GUI or Web page, for example, but the emphasis is on graphic images, not on 
controlling user interaction through a GUI. 
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Rexx/gd draws complete graphic images with lines, arcs, text, color, and fonts. Images may be cut and 
pasted from other images. The images that are created are written to PNG, GIF, JPEG, or JPG files. 


Rexx/gd is based on GD, an open-source, ANSI C-language library. Rexx/gd is essentially a wrapper 
that gives Rexx scripts access to the GD library code. To use Rexx/gd, you need to download and install 
the GD library to your machine. Then download and install Rexx/gd. 


The GD library is available at libgd.github.io. Or enter the keywords gd library into any 
Internet search engine for a list of current download sites. Rexx/gd can be downloaded off the same 
master panel as Rexx/SQL and Rexx/DW at http: //regina-rexx.sourceforge.net/ or more 
specifically http: //rexxgd.sourceforge.net/index.html. 


The logic of a Rexx/gd routine 


Rexx/gd is embedded within all kinds of Rexx scripts and used in a wide variety of applications. But the 
logic of an internal routine that creates an image is predictable. Here is its basic structure: 


1. 


6. 


Register and load the Rexx/gd library for use. Following the same style we used with Rexx/Tk 
and Rexx/DW, this code looks like this: 


call RxFuncAdd 'GdLoadFuncs', 'rexxgd', 'GdLoadFuncs' 
if GdLoadFuncs() <> 0 then say 'ERROR-- Unable to load Rexx/gd library!' 


This code registers and loads the GD function library for use according to the standard 
approach of the SAA registration procedures for external function libraries. 


Allocate a work area to develop an image in by invoking the gdImageCreate function. 


Assign background and foreground colors to the image by calling the gdImageColorAllocate 
function. 


Use one or more of the drawing functions to draw graphics in the image area. For example, to 
draw a line, call gdImageLine. To create a rectangle, invoke gdImageRectangle or 
gdImageFilledRectangle. The script might also invoke styling, brushing, tiling, filling, font, 
text, and color functions in creating the image. 


The script preserves the image it created in-memory by writing it to disk. Among useful 
externalization functions are gdImageJpeg, to write the image as a JPEG file, and 
gmImagePng, to store the image as a PNG file. 


End by releasing memory and destroying the in-memory image by a call to gdImageDestroy. 


Figure 16-2 pictorially summarizes the logic of a typical Rexx/gd script. 
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Rexx/gd Graphics Scripting 


v 
Load Rexx/gd function library 


v 
Allocate an image work area 


v 
Allocate image colors. Use 
drawing functions to create image 


v 
Write image to disk to save it. 
Free image work area memory 


Figure 16-2 


Rexx/gd provides over 75 functions. They are divided into these categories: 


Image creation, destruction, loading, and saving 
Drawing 

Query 

Font and text handling 

Color management 


Copying and resizing 


Coovovoe oso 


Miscellaneous 


Rexx/gd can be combined with GUI tools like Rexx/Tk or Rexx/DW to create graphical user interfaces. 
It is also useful in building parts of Web pages. In fact, let’s look at a sample script that does exactly that. 


A sample program 


This sample script draws the buttons that appear on a Web page. Each button contains one word of text. 
Figure 16-3 displays the Web page, which is the home page for Rexx/gd at SourceForge.net at http: // 
rexxgd. sourceforge.net/index.html. The buttons created by the program appear down the left- 
hand side of the Web page. The script appears courtesy of its author, Mark Hessling, developer /main- 
tainer of Regina Rexx as well as many other key open-source Rexx tools. 
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€) Rexx/gd - Rexx Interface to manipulate simple graphics images - Microsoft Internet Explorer provided by SBC... S)E9 
File Edit View Favorites Tools Help iP 


Address (@) http:,!frescegd.scurceforge.netfindex.btm »| Go 


, 
oe Kkeo(gd 
project home 


Resodgd is 4 Rexx extension which wraps the funcionality of the ibgd library. It enables the creation and manipulation of graphics 
images in PNG, JPEG and GIF formats. 


The buttons on the left of this page were generated by Rexied. To see how simple the code is, view the source of the Renied 
program that was used to generate these buttors. 


With Rexgd on SourceForge, support resources for Reso’ed. such as mailing lists, discussion forums, bug reporting and feature: 
Rexx/Curses Ytquests ate eveilsble 


For more detailed information on what Rexcigd can do see the Resodgd documentation 


Resodgd is freeware, distnbuted under the GNU Library Gerwral Public License . 


7 Novambar 2008 
Mi Hessia uiedu au 


€) @ Irverret 
Figure 16-3 


Here is the program. (A few lines in the program wrap around onto the next line due to the margin size.) 


/* 
* This Rexx/gd script creates all of the buttons for my Web page 
/ 

Trace o 

Call RxFuncAdd 'GdLoadFuncs', 'rexxgd', 'GdLoadFuncs' 


Call GdLoadFuncs 


text = 'Home Links Downloads Bug_Report Rexx/Tk Rexx/SQL Regina THE PDCurses 
Rexx/Wrapper Documentation Rexx/ISAM Rexx/gd Rexx/Trans Rexx/Curses' 

/* 

* Find the maximum length of any of the button texts 

oak 
maxlen = 0 
Do i = 1 To Words (text) 

if Length(Word(text,i)) > maxlen Then maxlen = Length(Word(text,i) ) 


End 

/* 
* Image size is based on size of largest text 
yp 

font = 'GDFONTMEDIUMBOLD' 

x = ((1+GdFontGetWidth( font )) * maxlen) + 8 


y = GdFontGetHeight( font ) + 8 
Say 'Image size:' x 'x' y 


Do i = 1 To Words (text) 
img = GdImageCreate( x, y ) 
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/* 
* First color allocated is the background - white 
hi 
white = GdImageColorAllocate( img, 245, 255, 250 ) 
background = GdImageColorAllocate( img, 0, 0, 102 ) 
blue = GdImageColorAllocate( img, 0, 0, 255 ) 
yellowgreen = GdImageColorAllocate( img, 73, 155, 0 ) 
/* 
* Although most browsers can't handle transparent PNGs, 
* set the transparent index to the background anyway. 


Ah 
call GdImageColorTransparent img, background 
/* 
* Determine text position - centered 
or) 
xoff = (GdImageGetWidth( img ) % 2 ) - (((Length(Word(text,i)) * 
(GdFontGetWidth( font )))-1) % 2) 
/* 
* Draw our borders for the fill of the top left and right corners. 
yf 
call GdImageLine img, 6, OF Wi, y-1, background 
call GdImageLine img, x-7, 0, x-1, y-1, background 
call GdImageFillToBorder img, 0,0, background, background 
call GdImageFillToBorder img, x-1,0, background, background 
/* 
* Write the string in blue, and save the image 
By 
Calle cdimagestringsamg,stont,, xobt) So) a lranclate(Wordi(texctr.i)t ele yntan)s, 
yellowgreen 
call GdImagePNG img, makename(Word(text,i),'green') 
/* 
a then overwrite the string in yellow-green, and write this image. 
2 
call GdImageString img, font, xoff, 3, Translate(Word(text,i),' ','_'), blue 


call GdImagePNG img, makename(Word(text,i), 'blue') 


call GdImageDestroy img 
End 


Return 


makename: Procedure 

Parse Arg text, color 

text Translate(text, 'abcdefghijklmnopgqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ ' ) 
bext = Changestr( ‘7 ', texte “7 ) 

kext = Changestr( “_"> text, 7% 4 


Return color||text'.png' 


The logic of the script follows the straightforward steps listed in the preceding code. First, the script 
loads the gd function library: 


Call RxFuncAdd 'GdLoadFuncs', 'rexxgd', 'GdLoadFuncs' 
Call GdLoadFuncs 
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The script next determines the size of the buttons, based on the size of the longest word that will be dis- 
played within them. This is the code of the do loop and some code that calculates the image size. 


Now the script is ready to invoke the Rexx/gd function GdImageCreate to allocate the image. The 
image will be developed in a work area in memory: 


img = GdImageCreate( x, y ) 


The script issues several GdImageColorAllocate functions to set up colors for the image and its back- 
ground: 


/*® 

* First color allocated is the background - white 
a 

white = GdImageColorAllocate( img, 245, 255, 250 ) 
background = GdImageColorAllocate( img, 0, 0, 102 ) 
blue = GdImageColorAllocate( img, 0, 0, 255 ) 
yellowgreen = GdImageColorAllocate( img, 73, 155, 0 ) 


Now, the script draws the borders of the buttons with this code: 


y-1, background 
1, y-1, background 

,0, background, background 
1,0, background, background 


call GdImageLine img, 6, 0, 
call GdImageLine img, x-7, 0, 
call GdImageFillToBorder img, 
call GdImageFillToBorder img, 


! 


0 = 
x- = 
0 
x- 


These statements write the image in blue and yellow-green, and save it to PNG files: 


/* 

* Write the string in blue, and save the image 

sy 

call GdImageString img, font, xoff, 3, Translate(Word(text,i),' ','_'),yellowgreen 


call GdImagePNG img, makename(Word(text,i),'green') 


/* 

* . . . then overwrite the string in yellowgreen, and write this image. 

BGs 

call GdImageString img, font, xoff, 3, Translate(Word(text,i),' ','_'), blue 


call GdImagePNG img, makename(Word(text,i), 'blue') 


Now that the image has been allocated, developed, and saved to a file, the script can exit. Before termi- 
nating, the program destroys the allocated image and releases its memory with this statement: 


call GdImageDestroy img 
This script illustrates the straightforward logic of most Rexx/gd programs. As with Rexx/Tk and 
Rexx/DW, this logic is simple; the trick is in learning the details of the many available functions and 


how to combine them to meet your needs. 


The graphical images created with Rexx/gd can be used for a variety of purposes. As shown by this pro- 
gram, the images can be combined with other logic to create sophisticated Web page designs. 
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Summary 


This chapter describes the most popular GUI interface packages for Rexx scripting. It discusses 
Rexx/Tk, Rexx/DW, and Rexx/gd in detail. These are all open-source products that are widely used 
and well proven. New releases are tested with Regina and the products work with other Rexx inter- 
preters as well. 


We explored the basics of GUI programming at a very high level, showing the essential nature of event- 
driven programming. We presented a Rexx/Tk script, albeit a very simple one. Then we looked at 
Rexx/DW scripting. These scripts follow the same basic event-driven logic as the Rexx/Tk program, but 
of course use the functions of the Rexx/DW library. 


GUI programming is necessarily detail oriented, and scripts tend to be lengthy, even if they are logically 
rather straightforward. If you are not an experienced GUI developer, this is the challenge you face. Rexx 
provides all the requisite tools. 


Finally, we investigated Rexx/gd and how it can be used for creating graphic images. We looked at the 
Web page for the product and related the graphics on that Web page to the script that created them. 
Rexx/gd is a generic graphical image tool that can be combined with other Rexx interfaces and tools to 
create the graphical components of Web pages or for many other uses. 


Test Your Understanding 


1. What are the essential differences between Rexx/Tk and Rexx/DW? What are the advantages to 
each? 


2. When would you use Rexx Dialog? For which operating system was it designed and cus- 
tomized? 


3. What's a widget? How are widgets associated with top-level windows in Rexx/Tk versus 
Rexx/DW? 


4. What is the basic logic of the driver in most GUI scripts? What are the differences between 
Rexx/Tk and Rexx/DW scripts in this regard? 


5. Why has the Tcl/Tk GUI toolkit become so popular? 


6. Does Rexx/gd create GUIs? How could it be used with Web pages? Where does Rexx/gd create 
its images? 
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Web Programming with 
CGl and Apache 


Overview 


Rexx is well-suited to Web programming because it excels at string manipulation. Web program- 
ming requires reading and interpreting string input and creating textual output. As in the next 
chapter on XML, the emphasis is on string processing. Rexx string processing strengths recom- 
mend it as a highly productive, easy-to-maintain language for Web programming. 


There are many ways to program Web servers and build Web pages with Rexx. Two popular 
technologies are the Common Gateway Interface, or CGI, and Apache’s Mod_Rexx interface. 


First, we describe some of the tools available for CGI programming. CGI was one of the first popu- 
lar Web server interfaces because it is easy to use and fully programmable. 


Then we describe scripting Apache through its Rexx interface, Mod_Rexx. Apache is the world’s 
most popular Web server. Mod_Rexx gives you complete scripting control over Apache. With it 
you can efficiently and effectively serve Web pages created by Rexx scripts. You can also dynami- 
cally create Web pages through a feature called Rexx Server Pages, or RSP. Dynamic Web pages are 
created and tailored in real time to meet user needs. 


Common Gateway Interface 


The Common Gateway Interface, or CGI specification lets Web servers execute user programs to pro- 
duce Web pages containing text, graphics, forms, audio, and other information. The CGI interface 
allows Rexx scripts to control and drive the Web server in its provisioning of Web pages to the 
user’s browser. Several free external function libraries are available to support CGI programming 
in Rexx. 


Chapter 17 
The cgi-lib.rxx library 


The Stanford Linear Accelerator Laboratory, or SLAG, created a library of CGI programming 
functions called cgi-lib.rxx. Its two dozen functions are designed to simplify Rexx/CGI programming. 
It also includes a tutorial and sample scripts. Download the SLAC scripts and tools from the Downloads 
page at www.RexxInfo.org. Or search for the keywords Rexx CGI in any Web search engine. 


To give you an idea of what this library contains, here is a quick list of its functions. The package itself 
includes both the technical descriptions and full Rexx source code for these functions. 


Function Use 

cleanquery Removes unassigned variables from CGI query string 
cgierror Reports the error message and returns 

egidie Reports the error message and “dies” or exits 

chkpwd Verifies username and password 

delquery Removes an item from CGI query string 

Ewer Converts ASCII hex code to ASCII characters 
ener Converts date expression to Oracle format 

uel Returns complete CGI query URL 

gelowner Returns a file’s owner 

getfullhost Returns fully qualified domain name of the local host 
piled Breaks a long line into lines for HTML parsing 

pamper Inserts standard information (“boiler plate”) at page end 
htmltop Inserts title and header at page top 

pan Converts tab-delimited file into HTML table 

eee Returns TRUE if the Form uses METHOD="GET” 
methpost Returns TRUE if the Form uses METHOD=” POST” 

myurl Adds the script’s URL to the page 

Cee Establishes SLAC’s Oracle/Rexx environment 
printheader Inserts the Content-type header 

pivaneblcs Adds the Form’s name-value variable pairs to the page 
neadfonm, Reads a Form’s GET or POST input and returns it decoded 
readpost 


Reads a Form’s standard input with METHOD=” POST” 


Function 


slacfnok 
striphtml 


suspect 


webify 


wraplines 
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Use 
Identifies a file’s visibility 
Removes HTML markup from a string 


Returns an error message if an input string contains a suspect 
character 


Encodes special characters as ASCII hex 


Breaks long lines appropriately for terminal output 


The cgi-lib.rxx package comes with several sample scripts. Here’s a simple one that illustrates sev- 
eral of the functions. It simply reads form input from the user and echoes it to a Web page. It appears 
here courtesy of its author Les Cottrell and the SLAC: 


#!/usr/loca 
/* Minimal 


F=PUTENV ("R 


il /Mloylial// restore 
ist http form and script in, 
EXXPATH=/afs/slac/www/slac/www/tool/cgi-rexx") 


SAY PrintHeader(); SAY '<body bgcolor="FFFFFF">' 
Input=ReadForm () 


Ig biayowhyes 


WMSUHN, IO) ff Rewete. alee / 


SAY HTMLTop('Minimal Form' ) 


SAY '<form><input type="sSubmit">', 
'<br>Data: <input name="myfield">' 


ELSE DO Peart 2s 
SAY HTMLTop('Output from Minimal Form') 


END 
SAY HTMLBot 


In this script, this 


F=PUTENV ("R 


SAY PrintVariables (Input) 


() 


first line accesses the cgi-1ib.rxx package: 


EXXPATH=/afs/slac/www/slac/www/tool/cgi-rexx") 


The line is coded for uni-REXX, a commercial Rexx interpreter from The Workstation Group (see 

Chapter 19 for information on uni-Rexx and other major commercial Rexx interpreters). Your statement 
for library access would be coded differently if you use a different Rexx interpreter. For example, using 
Regina and most other interpreters you could code this statement with the value built-in function. The 


first parameter in 


the statement below is the symbol to change, the second is the value to set it to, and 


the third is the variable pool in which to make the change. The result is to update the environmental 


variable properly 


call value 


for access to the function library: 


"REXXPATH', '/afs/slac/www/slac/www/tool/cgi-rexx', 'ENVIRONMENT' 


The cgi-1lib.rxx package provides full source code for the functions, so you can set them up however 


you need to as an 


external library for your version of Rexx. Or, use them as internal routines. 
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Next, the script writes the Content Type header by the PrintHeader function. The content type header 
must be the first statement written to the browser. It tells the browser the kind of data it will receive in 
subsequent statements: 


SAY PrintHeader(); SAY '<body bgcolor="FFFFFF"> 
The next line reads the input form with the ReadForm function: 
Input=ReadForm () 


If there is no input, the script writes a minimal HTML page using the HTMLTop function. The HTMLTop 
function inserts a title and header at the top of a Web page: 


IF Input='' THEN DO /*Part 1*/ 
SAY HTMLTop('Minimal Form') 
SAY '<form><input type="sSubmit">', 
'<br>Data: <input name="myfield">' 
END 


If there was form input, the script echoes it back to the user by the PrintVariables function. The 
PrintVariables function adds the form’s name-value variable pairs to the Web page: 


ELSE DO /*Part 2*/ 
SAY HTMLTop('Output from Minimal Form') 
SAY PrintVariables (Input) 

END 


The program ends by writing a standard footer to the Web page with the HTMLBot function: 
SAY HTMLBot () 


You can see that developing Rexx scripts that interface to CGI is just a matter of following CGI rules 
regarding how input is read into the script and written to the interface. CGI scripts typically read user 
forms input, perform some processing, and write textual output that defines the Web page the user sees in 
response. A library of functions like those provided by the cgi-1ib.rxx package makes the whole pro- 
cess easier. They offer convenience and higher productivity than manually coding everything yourself. 


In concluding, we mention that this Rexx/CGI function library is also the basis for the CGI interface 
package offered with the Reginald Rexx interpreter. See Chapter 23 further information on Reginald and 
for example Reginald scripts. 


The Internet/REXX HHNS WorkBench 


The CGI / Rexx library function package described in the above section helps you develop scripts that 
interact with the Common Gateway Interface. Using it reduces the level of effort required in writing CGI 
programs. Another free external library of Web programming functions is downloadable from Henri 
Henault & Sons, Paris, France. It too, is designed for Web server programming through controlling the 
Common Gateway Interface. 
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The purposes of this package are to help you: 


Q Quickly create dynamic Web pages, tables and forms 
Q Easily handle forms results 
Q = Run Rexx-CGI scripts without change across the supported platforms 
The Internet /REXX HHNS WorkBench consists about 40 functions. This function library comes with 


about a dozen sample programs. English documentation and the library are available at the Henri 
Henault & Sons Web site at www. hhns. fr/fr/real_cri.html. 


The library runs under Windows, Linux, and IBM’s AIX operating systems. It is tested with the Regina, 
IBM Object REXX, and NetRexx interpreters. It supports two Web servers: Microsoft’s Internet 
Information Services (or IIS) and the Apache open-source Web server. 


Setting up the product requires several steps: 


1. Download and install the product. 

2 Ensure PATH or environmental variables point to the product’s shared library. 

3. Configure either IIS or Apache. 

4 If you’re using NetRexx, ensure you have installed a servlet container engine (such as JServ or 
Tomcat). 


The product documentation describes these steps in detail. 


To give an idea of what the library contains, here are its functions and their uses (all functions are 
described in full detail in the product documentation): 


Function Use 

delay Wait (in seconds and milleseconds) 

inkey Keyboard scan 

getkwd Parse a keyword parameter list 

getenv Return the value of an environmental variable 
getpid Returns the current process ID 

getwparm Returns a parameter value from an * . ini file 
filesize Returns file size 

parsefid Parses a Windows/DOS/ Unix/Linux filename 
popen Issues an operating system command 

cgilinit Initializes, sets up CGI header 

cgiSetup Initializes CGI, sets up Rexx variables only 


Table continued on following page 
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Function Use 

CgiEnd Ends CGI script 

CgiWebit Processes nonalphanumeric characters in a string 
TblHdr Generates a table header 

TblRow Generates a table row 

FrmHdr Generates a <FORM ACTION=... tag 
FrmInp Generates an INPUT tag within a form 
Cgilmg Generates an <IMG> tag 

CgiHref Generates a hypertext link 

r4Sh Unescape a string 

CgiRefr Goes to another URL 

GetCookie Extracts a value from the current cookie 
Tags Generates a pair of tags 


Beyond the Web programming functions, the package includes other useful functions. The following 
table shows that they are divided into three categories: mathematical functions, CMS-like functions, and 
date functions: 


Function Group Purpose Functions 

Mathematical These functions support atan, atan2, cos, sqrt, exp, fact, 
advanced or transcendental log, pow, sin 
mathematics. 

CMS These functions support stm2file, stm2var, file2stm, 
conversion between filenames var2stm, makefid 


and variables and stems. 


Date These functions convert between d2date, date2d 
Julian day numbers and dates 


Let’s take a look at a sample program using this package. This script writes a Web page that lists pro- 
gram names and their descriptions. The programs it lists are the sample scripts that come with the 
Internet /REXX HHNS WorkBench. The output of this program can be viewed at the product Web site, 
www.hhns.fr/fr/real_cri.html, and is also depicted in Figure 17-1. The script appears here courtesy 
of Henri Henault & Sons. 
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E) HH. & Sons - Microsoft Internet Explorer provided by SBC Yahoo! DSL 


File Edit View Favorites Tools Help 


&S 
Henri Henailt & Sons 


G Accueil ) 


(This page is produced by @ Rexx CGI) 
Description URI 
acomplete example, with the whol set of functions p90 allmone.cei 
4. quick Sort Example pé0_gsort.cei 
‘wortgage computation ; display form p50_mgage cgi 
Displays the system evaonment vane pél_enviistog 
displays the REXX variables at entry na CGI p40 _olhvars.cgi 
|A Sirmple calculator : the dyput form p36_sampeale cgi 
A Sample EURO converter : the input for Pp 30 _eurocwt ogi 
displays a very simple form p20_sampformczi 
A more elaborate list of the samples pl2_samplst2.cei 
displays a very simple list of the samples pl0_samplist on 


‘See the Program source which produces this page. 


Address By hitp:/}owehhns frfftfreal_eribhem ly] >i 


2 
Figure 17-1 


Here’s the program: 


#! /usr/local/bin/regina 
pe A more elaborate list of the samples ay 


call setdll /* loads the HHNS shared lib */ 
call CgiInit "TITLE='Another List of samples' BGCOLOR=FFFFFF" 


say "<center><h4>Rexx CGI Examples</h4></center>" 
say "<center>(This page is produced by a Rexx CGI)</center><p>" 


if left(translate(webos), 3) = "WIN" then 
gilil jexejgei “Dales je) oO jo. Ces." 

else call popen "ls -1 p*.cgi" 

/* the above 3 statements may be replaced by 
call popen webdir "*.cgi" 

oy) 


say "<center>" 
say "<table border=1>" 


say tblHdr("Description", " URI") 
do queued () 
/*--- get the next program name ---*/ 
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end 


say 
say 


say 


parse pull z 

/*--- assume that 2nd line of the program is its brief description --*/ 
call linein z; desc = linein(z); call lineout z 

parse var desc '/*' desc '*/' 


/*--- Now, write a table Row with the description and the Web link ---*/ 
say tblRow(strip(desc), cgiHref(z, z)) 

'</table>' 

'</center>' 

"<p>See the "cgiHref("r00_showsre.cgi?p12_samplst2.cgi", "Program source") 


"which produces this page." 


call cgiEnd 
return 0 


The program starts by accessing the shared function library by its first statement: 


call setdll /* loads the HHNS shared lib */ 


Then it initializes by invoking the CgiInit function to write the page title: 


call CgiInit "TITLE='Another List of samples' BGCOLOR=FFFFFF" 


say 
say 


"<center><h4>Rexx CGI Examples</h4></center>" 
"<center>(This page is produced by a Rexx CGI)</center><p>" 


The next several lines get the list of program names (filenames) to place into the list of programs in the 
table on the Web page. This code first determines whether the operating system is Windows or a version 
of Unix; then it uses the popen function to issue either a dir or 1s command to get the directory listing 
into the stack. This is a good example of how scripts can be written to operate across platforms through 
OS-aware programming: 


if left(translate(webos), 3) = "WIN" then 


call popen "Dir /b /o p*.cgi" 


else call popen "ls -1 p*.cgi" 
/* the above 3 statements may be replaced by : 


BY 


call popen webdir "*.cgi" 


Now, the program writes the table header, using the td1lHdr function: 


say "<center>" 
say "<table border=1>" 
say tblHdr("Description", w URL"), 
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Next, the program executes a do loop to read each program name from the stack. For each one it 
retrieves, it uses the tb1Row function to write a row into the tabular listing. Each line in the output list- 
ing contains the program name, followed by the URL hyperlink to its code. The link is produced by the 
cgiHref function: 


/*--- Now, write a table Row with the description and the Web link -- */ 
say tblRow(strip(desc), cgiHref(z, z)) 


After it has created the table of program names and hyperlinks to their corresponding scripts, the pro- 
gram closes the table: 


say '</table>' 
say '</center>' 


The program concludes by writing a message with a URL link by the cgiHref function. Then it termi- 
nates by invoking cgiEnd: 


say "<p>See the "cgiHref("r00_ showsrc.cgi?p12 samplst2.cgi", "Program source") 
"which produces this page." 


call cgiEnd 


The Internet/REXX HHNS WorkBench makes CGI programming easier because you can leverage its set 
of Web-programming-specific functions for higher productivity. The scripting example employs only a 
small number of the package’s functions, yet you can see how these functions make for a higher-level, 
more powerful script. 


There are many more coding examples at the HHNS Web page at www. hhns.fr/fr/real cri.html. 
You can run the examples at the Web site and view their Web page output while viewing the code 
simultaneously in another browser panel. This makes it very easy to learn how to use this package. 


Programming Apache with Mod_Rexx 


The Apache Web server is the most widely used host system on the Internet. Its open source download 
includes several language processor modules. These are designed to allow developers to process any part of 
an Apache request including the creation of Web pages. The modules are available for Rexx, Perl, and 
other languages, with names like mod_rexx, mod_perl, and mod_php, respectively. Each module has 
the same capabilities but supports a different scripting language. 


The Apache Web server directly executes your Rexx scripts through its Mod_Rexx interface. Apache 
offers a more efficient way of writing Web server code than the Common Gateway Interface. Web 
server extensions like CGI typically suffer from performance overhead because they spawn separate 
processes to handle new requests. The Apache server handles new requests by executing within a new 
thread, rather than spawning a new process. Threads are a more efficient mechanism than processes on 
most operating systems. This also means that Mod_Rexx requires a thread-safe interpreter. Examples of 
thread-safe Rexx interpreters include Regina and Open Object Rexx. 
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Mod_Rexx gives Rexx developers full control over all aspects of the processing of Apache server 
requests. The product comes in two flavors. One is a traditional, function-based interface, while the 
other is an object-oriented interface. The procedural interface contains roughly 50 functions, all of which 
start with the letters www. The object-oriented interface consists of three classes and their accompanying 
40-odd methods. This chapter focuses on the function-based interface. 


Functions and special variables 


Mod_Rexx is very complete and handles almost any requirement. To give you an idea of what’s 
included, let’s briefly discuss the functions for the traditional, function-based interface, and their uses. 
The functions are grouped into four categories: 


C1 General Functions — This set of functions provides a base level of services necessary to work 
with the Apache Web server. They manage cookies and the error log, retrieve 
environmental information, and handle URLs. 


C1 Apache Request Record Functions — These functions provide information about and manage 
the request record pointer, information coming into the script from Apache and the Web. 


Cl Updatable Apache Request Record Functions — These functions manage the request record 
pointer and allow updating values as well as retrieving them. 


CL] Apache Server Record Functions — These functions manage server-side concerns pertaining 
to Apache and its environment. 


Appendix J lists all the functions in the Mod_Rexx package along with descriptions of their use. 


Mod_Rexx uses a set of three dozen special variables to communicate information to Rexx scripts. The 
names of these variables all begin with the letters www. These special variables are set either before the 
script starts, or after the script executes a function call. Their purpose is to communicate information to 
the script either about the environment or the results of function calls. The sample program we discuss 
later creates a Web page and displays the values of these variables. Appendix J contains a complete list 
of all the Mod_Rexx special variables. 


Installation 


Mod_Rexx is distributed with Apache. Download Apache from www. apache. org. Or, obtain 
Mod_Rexx by separate download from SourceForge at 
http://sourceforge.net/projects/modrexx. 


Mod_Rexx is distributed under the Common Public License. The license agreement downloads with the 
product. Be sure to read it and agree to its terms before using the product. Mod_Rexx runs under 
Windows, Linux, and BSD. It is tested with the Regina and Open Object Rexx interpreters. 


Installing Mod_Rexx is similar to installing the Rexx interfaces described in the last few chapters. Be sure 
that the Mod_Rexx shared library named mod_rexx.dll ormod_rexx.so is present and that it can be 
located through the PATH or the proper shared-library environmental variable. The installation instruc- 
tions explain this in detail. 
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One additional step is required: configuring the Apache Web server to execute your Rexx scripts. To 
configure Apache, just edit its configuration file and restart the server for the changes to take effect. 
Apache’s configuration file is typically named http.conf and is located in the Apache conf (configura- 
tion) directory. You must add lines to this file that: 


QO) Load the Mod_Rexx module. 


Q) Ensure that scripts with file extensions * . rex and * . rexx are processed by Mod_Rexx. 


Q Optionally define Rexx Server Page, or RSP, support. 
The lines you add to the Apache configuration file should look similar to these: 


# The following line needs to be added to the end of the appropriate 
# httpd.conf LoadModule list. 

# 

LoadModule rexx_module modules/mod_rexx.dll 


# The following lines should be added at the end of the http.conf file. 
4 

AddType application/x-httpd-rexx-script .rex .rexx 

AddType application/x-httpd-rexx-rsp .rsp 


# Add these for REXX Server Page support 
# 


RexxRspCompiler "c:/Program Files/Apache Group/Apache2/bin/rspcomp.rex" 


After reconfiguring this file, shut down and restart the Apache Web server so that the new directives 
take effect. 


To test the install, start your browser and enter this line into its “address entry box:” 
http: //your.domain.com/test.rex 


Replace the text your .domain.com with the name of your own server. This test runs a Rexx test script 
under Mod_Rexx and displays a simple Hypertext Markup Language (HTML) page. 


Should you have any difficulty, Mod_Rexx comes with documentation that covers both installation and 
the relevant Apache directives. The documentation also gives complete information on the Mod_Rexx 
function library, the alternative object-oriented interface, special Rexx variables, and how to use Rexx 
Server Pages. 


sample script 


Let’s discuss how to write scripts that manage Apache through the Mod_Rexx interface. First, we'll 
describe the kinds of processing these scripts can perform; then we'll look at an sample program. The 
sample script reads input from a user of the Web server, and writes a Web page to his or her browser in 
response. It is a typical program in that it serves Web pages. 
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You can write scripts that take control from Apache at any point in its request processing. These are the 


processing phases during which your script might run: 


Pp 


© ON OW FP Wh 


nay 
S 


ma 
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may 
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ma 
2 


14. 


Request 
Post-read request 
URI translation 
Header parser 
Access control 
Authentication 
Authorization 
MIME type check 
Fixup 

Response 
Logging 

Cleanup 

Wait 


Post-read request 


Most scripts are response handlers — they run during the Response phase of Step 10. Response handlers 
receive the user’s input and write a Web page to his or her browser in response. 


This scripting example is a response handler. The script creates a Web page that displays the value of the 
Mod_Rexx special variables. Appendix J lists the Mod_Rexx special variables. Each has a name that 
starts with the letters www. This script is one of the sample scripts distributed with the Mod_Rexx pack- 
age. Here is the script: 


284 


/* these are some typical Apache return codes */ 
DECLINED = -1 /* Module declines to handle */ 
= 0 /* Module has handled this stage. 


OK 


/* get the Apache request record ptr */ 


ig. = 


/* set content-type and send the HTTP header */ 
call WwWSendHTTPHeader r, 


arg (1) 


call WwwWGetArgs r 


/* start sending the html page */ 


say 
say 
say 
say 
say 


"<html>" 
"<head>" 


"<title>Sample HTML Page From Rexx</title>" 


"</head>" 
" <body> " 


"text/html" 


me 


say 


say 


say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 


say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 


say 
say 
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"<hl>Sample HTML Page From Rexx</h1>" 


"<p>The Mod_Rexx version string is "'WWWGetVersion()'"' 


"<p>The following is the list of standard Rexx CGI variables and their values:" 
"<table border="1"><tr><th>Name</th><th>Value</th></tr>' 
"<tr><td>WWWAUTH_TYPE</td><td>"vorb (wwwauth_type) "</td></tr>" 
"<tr><td>WWWCONTENT_LENGTH</td><td>"vorb(wwwcontent_length) "</td></tr>" 
"<tr><td>WWWCONTENT_TYPE</td><td>"vorb (wwwcontent_type) "</td></tr>" 
"<tr><td>WWWGATEWAY_INTERFACE</td><td>"vorb (wwwgateway_interface) "</td></tr>" 
"<tr><td>WWWHTTP_USER_ACCEPT</td><td>"vorb (wwwhttp_user_accept) "</td></tr>" 
"<tr><td>WWWHTTP_USER_AGENT</td><td>"vorb (wwwhttp_user_agent) "</td></tr>" 
"<tr><td>WWWPATH_INFO</td><td>"vorb (wwwpath_info) "</td></tr>" 
"<tr><td>WWWPATH_TRANSLATED</td><td>"vorb (wwwpath_translated) "</td></tr>" 
"<tr><td>WWWQUERY_STRING</td><td>"vorb (wwwquery_string) "</td></tr>" 
"<tr><td>WWWREMOTE_ADDR</td><td>"vorb (wwwremote_addr) "</td></tr>" 
"<tr><td>WWWREMOTE_HOST</td><td>"vorb (wwwremote_host) "</td></tr>" 
"<tr><td>WWWREMOTE_IDENT</td><td>"vorb (wwwremote_ident) "</td></tr>" 
"<tr><td>WWWREMOTE_USER</td><td>"vorb (wwwremote_user) "</td></tr>" 
"<tr><td>WWWREQUEST_METHOD</td><td>"vorb (wwwrequest_method) "</td></tr>" 
"<tr><td>WWWSCRIPT_NAME</td><td>"vorb (wwwscript_name) "</td></tr>" 
"<tr><td>WWWSERVER_NAME</td><td>"vorb (wwwserver_name) "</td></tr>" 
"<tr><td>WWWSERVER_PORT</td><td>"vorb(wwwserver_port) "</td></tr>" 


"<tr><td>WWWSERVER_PROTOCOL</td><td>"vorb (wwwserver_protocol) "</td></tr>" 
"<tr><td>WWWSERVER_SOFTWARE</td><td>"vorb (wwwserver_software) "</td></tr>" 
"</table>" 


"<p>The following are some additional variables provided to the Rexx program:" 
"<table border="1"><tr><th>Name</th><th>Value</th></tr>' 
"<tr><td>WWWDEFAULT_TYPE</td><td>"vorb (wwwdefault_type) "</td></tr>" 
"<tr><td>WWWFILENAME</td><td>"vorb (wwwfilename) "</td></tr>" 
"<tr><td>WWWFNAMETEMPLATE</td><td>"vorb (wwwfnametemplate) "</td></tr>" 
"<tr><td>WWWIS_MAIN_REQUEST</td><td>"vorb (wwwis_main_request) "</td></tr>" 
"<tr><td>WWWRSPCOMPILER</td><td>"vorb(wwwrspcompiler) "</td></tr>" 
"<tr><td>WWWSERVER_ROOT</td><td>"vorb(wwwserver_root) "</td></tr>" 
"<tr><td>WWWUNPARSEDURI</td><td>"vorb (wwwunparseduri) "</td></tr>" 
"<tr><td>WWWURI</td><td>"vorb (wwwuri) "</td></tr>" 

"</table>" 


"</body> " 
"</html>" 


return OK 


/* vorb: return the value or a required space */ 
vorb: 


if length(arg(1)) > 0 then return arg(1) 
else return ' '' 


The first few lines in the script define two of the standard Apache return codes: 


/* these are some typical Apache return codes */ 
DECLINED = -1 /* Module declines to handle */ 


OK 


=70 /* Module has handled this stage. */ 
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The next line gets the main argument Apache always passes to every Rexx script. It contains a request 
record pointer used as an argument in the coding of subsequent Mod_Rexx functions: 


/* get the Apache request record ptr */ 
r = arg(1) 


Using this pointer, we can assign a content type to the responses that will be sent to the browser. This tells 
the browser how to interpret the Web page information it will receive next: 


/* set content-type and send the HTTP header */ 
call WWWSendHTTPHeader r, "text/html" 


Then this required statement gets the query string arguments from Apache: 
call WwWwWGetArgs r 


Now, the program can start creating its response to the user. This means writing HTML text to the 
browser. All the Rexx script really has to do is issue say instructions to send appropriate text strings. It 
begins by writing the page header information: 


/* start sending the html page */ 

say "<html>" 

say "<head>" 

say "<title>Sample HTML Page From Rexx</title>" 
say "</head>" 

say "<body>" 

say "<hl>Sample HTML Page From Rexx</h1>" 


The next line invokes the WwwGetVersion function to get the Mod_Rexx version under which the script 
is running. The script displays this information on the Web page: 


say '<p>The Mod_Rexx version string is "'WWWGetVersion()'"' 


Now, the program issues a long series of say instructions. We won’t repeat them all here, but here are 
the first few say statements: 


say "<p>The following is the list of standard Rexx CGI variables and their values:" 
say ‘<table border="1"><tr><th>Name</th><th>Value</th></tr>' 


say "<tr><td>WWWAUTH_TYPE</td><td>"vorb (wwwauth_type) "</td></tr>" 
say "<tr><td>WWWCONTENT_LENGTH</td><td>"vorb (wwwcontent_length) "</td></tr>" 


Each say instruction displays the value of a different Mod_Rexx special variable on the Web page. These 
variables all begin with the letters www. 


The program ends by closing the HTML tags and sending a return code string of OK to the caller: 
say "</table>" 
say "</body>" 


say "</html>" 
return OK 
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The code for a short internal function called vorb ends the program. This internal function is used in 
some of the say instructions to space output in a more attractive way. 


That’s all there is to it. Knowing just a few Mod_Rexx functions, you can take control of Apache to better 
customize Web pages and generate tailored output. This sample script shows how easy it is to get 
started. As your knowledge grows, the Mod_Rexx interface gives you the functions required to gain full 
scripting power over the Apache Web server. 


Example — Rexx Server Pages 


Rexx Server Pages, or RSPs, are similar to Java Server Pages or embedded PHP scripting. They allow you 
to embed Rexx code right into your HTML code. The benefit is that HTML pages can be dynamically cre- 
ated and altered at runtime. This customizes the Web page’s response to the user. 


To set up RSPs, you must configure Apache properly by giving it the appropriate directives and 
rebooting Apache. The install instructions above included the lines necessary to configure Apache to 
enable RSPs. 


Just like server pages coded in other scripting languages, place your Rexx code directly within the 
HTML, and frame it between special markers. The delimiters must occur on their own line (without any 
other code). They identify the start and end points of Rexx code within the HTML. There are two kinds 
of delimiters: short and long. Use either within the HTML to identify your Rexx code: 


Delimiter Type Starts With Ends With 
short-form markers <?rexx ?> 
long-form markers <script type="rexx”> </script> 


Here is a sample RSP coded with short delimiters that show where the Rexx code starts and ends: 


<p>The current date and time is 

<? Lexx 

/* the following is a REXX statement */ 
say date() time() 

?> 


You can see that the Rexx code is embedded between the markers <?rexx and ?>. This embedded code 
is simply standard Rexx. It enables programmability within the HTML code. The delimiter markers 
serve to identify the Rexx code and isolate it as opposed to native HTML code. 


Here is the exact same example coded with long delimiters: 


<p>The current date and time is 
<script type="rexx"> 

/* the following is a REXX statement */ 
say date() time() 

</script> 
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As in the example using short delimiters, this example shows how you can embed Rexx code directly 
within your HTML code that defines Web pages. 


When RSP-enabled code is referenced, Mod_Rexx takes these steps to run it: 


It creates a temporary file. 
The RSP compiler compiles the RSP file into a Rexx program and places it in the temporary file. 


1 
2. 
3 It runs the compiled Rexx program. 
4 


It erases the temporary file. 


Rexx Server Pages allow you to capitalize on your knowledge of Rexx in creating dynamic server pages. 
They present an alternative to coding in languages like Java Server Pages or PHP. 


Further Information 


For further information, visit the Mod_Rexx project pages hosted by SourceForge at http: //source 
forge.net/projects/modrexx. The website www.RexxInfo.org has tutorials and background 
information on both Rexx with CGI and Mod_Rexx. 


Summary 


Two popular ways to script Web servers are CGI and the Mod_Rexx interface into Apache. This chapter 
describes both. Rexx scripts can manage almost any aspect of these popular Web server products, but 
most scripts run in response to a user request. These scripts serve Web pages to users. 


We looked at three tools: the CGI/Rexx library from Stanford Linear Accelerator Laboratory, the 
Internet/REXX HHNS WorkBench from Henri Henault & Sons, and Apache’s Mod_Rexx interface. The 
sample script for the first package read a user’s form input and simply echoed it back to a Web page. It 
illustrates all the basics of CGI programming, and showed how the functions of the CGI/Rexx library 
simplify Web serving. The sample script for the second function library writes a Web page that includes 
a list of programs and their descriptions. It illustrates a little more advanced CGI programming, this 
time based on the package from Henri Henault & Sons. The final programming example uses Apache’s 
Mod_Rexx interface. It serves a Web page that lists all of the Mod_Rexx package’s special variables. 


The sample programs were very brief and are intended to show how to get set up and started with these 


tools. For further information and complete documentation, visit the Web sites listed during the discus- 
sions where these tools can be freely obtained. 
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Test Your Understanding 


1. Could you write Rexx/CGI scripts without using any of the packages this chapter describes? 
What would be the downside to this? 


2. In the cgi-lib.rxx library, what functions do you use to write standard headers and footers 
on Web pages? What is a Content Type header and what function do you use to write it? 
What function(s) read user inputs? 


3. In the Internet/REXX HHNS WorkBench, what functions typically begin and end scripts? What 
function do you use to write the Content Type header? What function inserts a hyperlink into 
the output Web page? 


4. What is Mod_Rexx and what does it do? Does Mod_Rexx have all the same capabilities as 
mod_perl and mod_php? Compare Apache and Mod_Rexx to CGI. Which yields better 
Web server performance? Why? 


5. | What are Rexx Server Pages? Why are they useful? How do you create them? 
What are short-form and long-form delimiters? Is there any functional difference between them? 


You need to customize Apache’s log processing. How can this be accomplished? 
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Overview 


There are more free and open-source Rexx interfaces and tools than one book can possibly cover, 
so this book just introduces a few of the most popular. This chapter describes XML programming 
with a package called RexxXML. It tells how to write scripts that manipulate XML and HTML data 
files and how to accomplish other XML-related tasks. 


To start, we'll define what XML is, and what related terms like XSLT, XPath, and HTML mean. 
Then we'll look at the kinds of processing you can accomplish using the RexxXML package. After 
that, we'll briefly discuss the functions in RexxXML, including those for document tree parsing, 
document tree searching, XSLT processing, and schema validation. After we discuss how to 
download and install RexxXML, we'll illustrate specific XML operations, such as how to load and 
process XML documents, how to validate documents, and how to process them against an XSLT 
stylesheet. With this background, we’ll review a script that uses RexxXML to read a Web page, 
identify a specific data element within that Web page, and compare the value of the data element 
to the version of RexxXML used within the script. The script uses the Web page to determine if a 
more recent version of RexxXML is available than the user has installed. 


The chapter concludes by mentioning many other free and open-source Rexx tools, packages, and 
interfaces. Most can be found on the Web and freely downloaded just by entering their name into 
any popular search engine. Or visit www.RexxInfo.org for a complete list and free downloads. 


XML with RexxXML 


Extensible Markup Language, or XML, is a data description language. XML files are text files that 
contain both data and descriptive tags for that data. XML files offer a self-explanatory way to 
store, transport, and communicate data. They are often used for standardized data interchange 
between different organizations or between different application systems within the same 
company. 
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XPath is a standard for identifying and extracting parts of XML documents. Extensible Stylesheet Language 
Transformations, or XSLT, applies definitional templates called stylesheets to XML files. XSLT separates 
data from the format in which it appears. Hypertext Markup Language, or HTML, is the language in which 
many Web pages are defined. It is a predecessor technology to XML and XSLT. 


XML and its related technologies have become popular as a way to provide self-descriptive, self-validating 
data. They underlie the construction of the internet and data transfer between many organizations. 


RexxXML is an external function library that supports common XML operations. Rexx scripts use it to 
parse, transform, analyze and generate XML files. RexxXML goes well beyond XML itself to support 
HTML, XML dialects, XPath, and XSLT. 


RexxXML is built on top of libxml and 1ibxs1t. These two free products are part of the XML C parser 
and toolkit of the Gnome open-source project. Based on every imaginable XML-related standard (and 
there are quite a few of them!), these function libraries give programmers a full range of XML capabili- 
ties. RexxXML brings most of these functions to Rexx programmers. 


RexxXML has a wide range of features. Here are a few of the things you can do with it: 


Process XML, XML dialects, and HTML data from within Rexx scripts 
Access documents through URLs or Rexx variables 

Search and modify document contents 

Extract data from within documents 

Convert non-XML data into XML documents 

Validate XML documents via Schemas 

Scan Web pages (HTML files) and identify or extract information 
Transform XML data via XSLT 

Extend XSLT 

Use arbitrary precision arithmetic in XSLT transformations 


Use it as a macro language for an application based on 1ibxm1 


Cocovovocvovocvocvoceoo oO 


Send data to an HTTP server and retrieve non-XML data from HTTP and FTP servers 

The RexxXML library contains roughly 50 functions. They can be categorized into these self- 
descriptive groups: 

Housekeeping routines 

Document tree parsing 

Document tree searching 

XSLT processing 

Schema validation 


Communications with HTTP and FTP servers 


COooocoo ao 


C-language interface 
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Here are the RexxXML functions along with brief descriptions (see the RexxXML documentation for 
more detailed code-oriented descriptions): 


Q 


Housekeeping — The housekeeping functions load the RexxXML library for use by a script, delete 
the library from memory when a script finishes using it, and returns version and error informa- 
tion to scripts: 


QO 


a ls Om 


xmlLoadFuncs — Register RexxXML functions, initialize ML/XSLT libraries 
xmlDropFuncs — Ends the use of RexxXML functions, frees library resources 


xmlVersion— Returns the version of the XML and XSLT libraries 


xmlError — Returns error message text since the most recent call 


xmlFree— Releases object’s memory 


Document Tree Parsing —RexxXML uses the document tree as its underlying processing paradigm. 
The functions in this group allow scripts to create or retrieve document trees, to perform various 
parsing and update operations on them, and to save them to disk when done: 


Gl. (By 6. oe Bo ele «3 10:1) JB!) i le et SBF OB Bs 


xml ParseXML— Parses XML data, returns 0 or a document tree 
xmlNewDoc — Creates a new, empty XML document tree 

xml ParseHTML— Parses HTML data, returns 0 or a document tree 
xm1NewHTML — Creates anew HTML document tree 

xm1SaveDoc — Writes a document tree to a URL, or returns it as a string 
xmlFreeDoc — Frees a document tree 


xmlExpandNode — Puts data from node into a stem 


xmlNodeContent — Returns the content of node as a string 


xmlAddElement — Creates a new element and adds it as a node 
xmlAddaAttribute— Creates a new attribute and adds it to a node 
xmlAddText — Creates a text node and adds it as a child to a node 

xmlAddPI— Creates a processing instruction and adds it as a child to a node 


xmlAddComment — Creates a comment and adds it as a child to a node 


xmlAddNode — Creates a new node and adds it as a child of another node 
xmlCopyNode — Creates a new node as a copy of another 
xmlRemoveAttribute— Removes attribute(s) from a node 
xmlRemoveContent — Removes children of node(s) 


xmlRemoveNode — Removes node(s) from a document tree 
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Document Tree Searching — These functions are specifically concerned with parsing and analyz- 
ing document trees. They give scripts the ability to inspect documents and better understand 
their contents, without having to program these operations explicitly or at length in scripts: 


Q xmlEvalExpression— Evalutes XPath expression and returns result as a string 


OU 


xm1FindNode— Evaluates XPath expression and returns result as a nodeset 


xmlNodesetCount — Returns number of nodes in a nodeset 


xmlNodesetItem— Returns specified node from a nodeset 


xmlCompileExpression— Converts an expression to a quick (“compiled”) form 


xmlFreeExpression— Frees a compiled expression 


xmlNewContext — Allocates a new context 
xmlSetContext — Changes or sets the context node 


xmlFreeContext — Frees the context(s) 


ooo co vocoo oO 


xmlNodesetadd— Adds specified nodes to a nodeset. 
XSLT Processing — These functions work with and apply XSLT stylesheets to documents: 


QO) xmlParsexSLT— Parses and compiles an XSLT stylesheet 


OQ xmlFreeStylesheet — Free compiled stylesheet(s) 


OQ xmlApplyStylesheet — Applies the XSLT stylesheet to a document 


QO = xmloutputMethod— Reports the output method of a stylesheet 


Schema Validation — These functions automate the process of schema validation, that is, ensuring 
that documents correctly match the specifications embodied in their related schemas: 


QO xmlParseSchema— Parses a document schema 

Q = xmlvalidateDoc— Validates a document according to a stylesheet 

Q xmlFreeSchema— Frees schema document(s) 

QO xmlDumpSchema— Writes schema(s) to a file (ususally for debugging) 
HTTP and FTP — These two functions retrieve data from URLs: 


QO xmlPost —Sends an HTTP post command to a URL and returns result 


OQ xmlGet —Retrieves data from a URL 


C-language Interface — These two functions implement the C-language interface for the 
RexxXML library. The function library can be used as a set of callable routines from C programs, 
as well as from with Rexx scripts: 


OQ rexxXMLInit — Registers the XML library and initializes 


Qo xexxXMLFini— Ends XML library usage, frees resources 
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Licensing, downloading, and installation 


RexxXML runs under operating systems in the Windows, Linux, Unix, and OS/2 families. It is free soft- 
ware, distributed without charge or warranty, under the Mozilla Public License. The terms of the license 
are explained in the documentation that downloads with the product. As licensing terms sometimes 
change, be sure to read the license prior to using the product. 


RexxXML is tested with the Regina Rexx interpreter. It can be used with other Rexx implementations 
that can register and load external functions but is not formally tested with them. 


RexxXML downloads as a single compressed file containing either binaries or source. Downloads 
include a complete guidebook in Adobe * . pdf format. Entitled RexxXML Usage and Reference, it is writ- 
ten by the author of the product, Patrick T. J. McPhee. The guide offers an excellent introduction to XML 
and related subjects like XPath, XSLT, and schemas. It also contains the complete function reference 
manual and a quick reference guide. 


The first step in installing RexxXML is to download and install its prerequisites, the 1ibxm1 and 
1ibxsl1t products. These free products are distributed under the MIT License and are downloadable at 
http: //xmlsoft.org. They are available for almost any operating system as either binaries or source. 
The decompressed files include installation instructions that follow typical procedures for Windows, 
Linux, or Unix. Documentation for the products is at http: //xmlsoft.org/docs.html. That Web site 
also offers good tutorials and introductory information on XML programming, the XML standards, 
dialects, related standards, and the like. 


Download and install RexxXML. Download sites include www. interlog.com/~ptjmand www. 
interlog.com/~ptjm/software.html. As with libxml and 1ibxs1t, if any Web addresses have 
changed, merely enter the product name into a popular search engine such as Google or Yahoo! to locate 
other download sites. RexxXML installs in the same manner we've seen in previous chapters covering 
interfaces such as Rexx/SQL, Rexx/Tk, Rexx/DW, and Rexx/gd. The RexxXML Windows Dynamic Link 
Library, or DLL, is named rexxxml .d11; the Linux or Unix shared library has the same root name. As 
always, ensure that the proper environmental variable points to the library directory so that the inter- 
preter can find and load the external functions. 


Common operations 


We’ve mentioned the wide variety of operations scripts can perform using the RexxXML functions. In 
this section, we'll review short code snippets that show how to perform several of the most common 
operations. The specific operations we'll explore include: 


Q ~~ How to load the RexxXML library for use 

How to load, transform, and save XML documents 

How to verify if a document is well formed and how to validate it 
How to create XML documents 


Simple ways to parse documents 


Oocooo 


How to apply a stylesheet to a document 
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First, let’s look at how to load the RexxXML external function library for use. A script must register and 
load the RexxXML library prior to using any of its functions. This is accomplished in a manner similar to 
registering and loading the Rexx/Tk, Rexx/DW, or Rexx/gd libraries: 


call RxFuncAdd 'xmlloadfuncs', 'rexxxml','xmlloadfuncs' 
if xmlloadfuncs() <> 0 then say 'ERROR- Cannot load RexxXML library!' 


All RexxXML functions are now available to the script. Invoke the xm1DropFuncs function to deregister 
the library and free resources when all XML processing is complete. 


Many scripts load, process or transform, and save an XML document. Figure 18-1 diagrams how this 
interaction typically occurs. 


Processing Documents 


Process 
the xmlSaveDoc xmlFreeDoc 
Document 
Load and optionally Save the updated Free resources 
validate a document document to disk (memory) 


Figure 18-1 


The xm1ParseXML function accesses or loads a well-formed (syntactically correct) document: 
document = xmlParseXML('test_file.xml1') /* document must be well formed */ 


An optional argument specifies whether the Document Type Definiton, or DTD, should be referenced and 
the XML file validated. Here are a couple examples: 


document = xmlParseXML('test_file.xml', , 'V') /* validate the file * 
document = xmlParseXML('test_file.xml', , 'D') /* load the DTD, do not validate */ 


Applying xml ParseXML to a document that is not well formed returns 0. The same return code indicates 
an attempt to validate an invalid document. 


After processing or transforming the file, the script can write it to disk: 
call xmlSaveDoc 'test_file.xml', document /* save the document for later */ 
Always free resources after finishing with the data by calling the xm1FreeDoc function: 


call xmlFreeDoc document /* end processing, free reources*/ 


296 


XML and Other Interfaces 


Now that we’ve seen how to load, validate, and save XML documents, let’s see how to create them. This 
is just a matter of string processing — splicing and pasting data together with the proper descriptive 
tags. Assuming that the data is in the chunks array, here’s how to build a simple, prototypical XML doc- 
ument. Each data item is written with the proper beginning and ending descriptive tags: 


data = '<data>' 
do j = 1 to number_of_chunks 
data = data || '<chunk>' || chunk.j || '</chunk>' 
end 
data = data || '</data>' /* add the end tag */ 


Of course, building XML files can be much more complicated than our simple example. RexxXML pro- 
vides the full set of required functions. 


To add data to an existing document, a script creates the right type of node and inserts it into the 
proper location within the document tree. xmlAddElement is the function to use. Other useful 
functions for adding information to documents include xmlAddAttribute, xmlAddText, xmlAddPI, 
xmlAddComment, xmlAddNode, and xmlCopyNode. Figure 18-2 summarizes how scripts can add or 
remove data from documents through appropriate RexxXML functions. 


Updating Documents 


xmlAddElement 


xmlAddAttribute 

xmlAddText 

xmlAddPI 
Input xmlAddComments Updated 
document mieddNode document 


xmlCopyNode 
xmlRemoveAttribute 
xmlRemoveContent 


xmlRemoveNode 


Figure 18-2 


Processing an XML document means understanding and parsing its tree structure. This allows scripts to 
search, analyze, and transform XML documents. One approach to processing a document is to expand 
its document tree into a Rexx array or stem containing all the relevant data. The xmlExpandNode func- 
tion accomplishes this. After issuing this function, scripts can traverse the data in the tree and analyze 
the document. You can access attribute values by using a tail for the stem that names the attribute. 
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XPath is another option for searching document trees and analyzing data. Figure 18-3 below diagrams 
how programs use XPath to process documents. 


XPath for Document Processing 


xmlFindNode 


xmlNodesetltem 
done 


Geta Return a 
document node set 
tree 
Process each item 
in the node set 
Figure 18-3 


The xm1FindNode function returns a node set representing a document subtree, from which individual 
items can be extracted by xm1NodesetItem. xmlNodesetCount tells how many items are in a node set. 
Look at this example: 


document = xmlParseXML (filename) /* yields a document tree */ 
nodeset = xmlFindNode('//Root_Element', document) /* returns a node set Ky 
do j = 1 to xmlNodesetCount (nodeset) /* while a node to process */ 

call process xmlNodesetItem(nodeset, j) ad process a node Rif 
end 


This code starts with the document tree or nodeset off the root element. It converts each eligible node in 
the document into an array and calls the routine named process to work with these nodes. 


Validating documents against schemas (or data definitions) is another important operation. Schemas are 
read from files, Rexx variables, or the XSD environment. The four main functions applied to them are 
xmlParseSchema, xmlValidateDoc, xmlFreeSchema, and xmlDumpSchema. 


To validate a document, use the xm1ValidateDoc function. xm1ValidateDoc validates a document 
against a schema and returns the string OK if the document matches it. Otherwise it returns a character 
string describing the problem. Here’s an example that validates the document named document against 
a schema named xsd_to_use: 


status = xmlValidateDoc(xsd_to_use, document) 

if status <> 'OK' then do 
say 'Document did not validate ok, status is:' status 
say 'Here is more information:' xmlError() 

end 


The xmlError function returns the accumulated error and warning messages since the last time it was 
called. Use it as a generic function to return further information when an error occurs. 
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Applying XSLT stylesheets is as easy as document validation, in that it only involves four functions: 
xmlParseXSLT, xmlFreeStylesheet, xmlApplyStylesheet, and xmlOutputMethod. XSLT data can 
be read from a file, read from a Rexx expression, or taken from the environment. Figure 18-4 diagrams 
how scripts can apply stylesheets to documents. 


Applying a Stylesheet to a Document 


Apply the 
stylesheet to 
the document 


xmlApplyStylesheet 


xmlFreeStylesheet 


Get the Get the 
document stylesheet Free resources 
xmlFreeDoc 
Figure 18-4 


Here is an example that shows how to apply stylesheets to documents. It applies the stylesheet named in 
the first parameter of the xmlApplyStylesheet function to the document named in the second. That 
function returns the result tree: 


document xmlParseXML('test_file.xml') /* get the document to process xy 
stylesht = xmlParseXSLT('style_sheet.xsl') /* get the stylesheet to use on it */ 


new_document = xmlApplyStylesheet(stylesht, document) 


call xmlFreeStylesheet stylesht /* free the Stylesheet when done */ 
call xmlFreeDoc document /* free the Document when done #/. 


The final two statements in this example free the stylesheet and the document after processing is com- 
plete. In working with XML it’s a good idea to always free resources after the script has completed pro- 
cessing the items. 


A sample script 


RexxXML ships with a couple dozen sample programs. All come complete with appropriate * .xm1, 
* xsd, *.xsl,and *.html input files. The bundled manual RexxXML Usage and Reference discusses sev- 
eral of the examples in detail. 


Let’s take a look at an sample script. It appears courtesy of the author of RexxXML, Patrick T. J. McPhee. 


This sample script is called iscurrent . rex. It reads an HTML Web page. It scans the Web page and 
extracts a data element from items in a table in that Web page. The data item it extracts is the most 
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current version for the RexxXML software package. The script compares that version to the one the 
script itself is using. If the Web version is newer, the script informs the user that a newer version of 
RexxXML than the one he or she is using is available. 


This script demonstrates how to access an HTML Web page, how to scan it, and how to extract informa- 
tion from it. 


Here is the script: 
/* check software.html to see if we're up-to-date 


* 


* $Header: C:/ptjm/rexx/rexxxml/trip/RCS/iscurrent.rex 1.3 2003/10/31 17:16:45 


ptjm Rel $ 
neuf 
rec = rxfuncadd('XMLLoadFuncs', 'rexxxml', 'xmlloadfuncs') 


alse TeteKe! {ElavSin Cle) 
say rxfuncerrmsg() 
exit 1 
end 


call xmlloadfuncs 
software.html = 'http://www.interlog.com/~ptjm/software.html1' 


parse value xmlVersion() with myversion 
package = 'RexxXML' 


sw = xmlParseHTML(software.htm1) 


if sw = 0 then do 
say xmlError() 
exit 1 
end 


/* software.html has a single table. Each row of the table has the 
package name in the first column, and the version number in the second. 
The first occurrance of the package is the most current one. */ 


prow = xmlFindNode('/html/body/table/tbody/tr[td[1] = $package][1]', sw) 
if xmlNodesetCount (prow) \= 1 then do 

say ‘unexpected row count' xmlNodesetCount (prow) 

exit 1 

end 


curver = xmlEvalExpression('td[2]', xmlNodesetItem(prow, 1) ) 


if curver \= myversion then do 
say 'My version is' myversion 
say 'Current version is' curver 
say 'which was released' xmlEvalExpression('td[3]', xmlNodesetItem(prow, 1) ) 
end 
else 
say 'All up-to-date!' 
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The script initializes by registering and loading the RexxXML library: 
rec = rxfuncadd('XMLLoadFuncs', 'rexxxml', 'xmlloadfuncs') 


if rcc then do 
say rxfuncerrmsg() 
exit 1 
end 


call xmlloadfuncs 


This initialization code would typically appear at the start of any RexxXML script. It is very similar in 
design to the code in previous chapters that loads and registers other external function libraries, for 
example, those for Rexx/SQL, Rexx/Tk or Rexx/DW. Note that the rxfuncerrmsg function is specific 
to Regina Rexx. It returns the most recently occurring error message. If you’re not using Regina, leave 
this statement out your code. We recommend replacing it with your own error message concerning the 
problem. 


Following initialization, this line specifies the URL (or Web page address) of the HTML Web page to 
analyze: 


software.html = ‘http://www.interlog.com/~ptjm/software.htm1' 
This next line retrieves the version of RexxXML the script is running under: 

parse value xmlVersion() with myversion . 
The version this statement retrieves will later be compared to that on the Web page. If they differ, the 
script knows that a newer version of the RexxXML package is available and reports that finding in its 


concluding statements. 


This code parses the HTML Web page into a variable as a document tree. A return code of 0 means that 
parsing failed, and results in a call to xmlError for more information: 


sw = xmlParseHTML(software.html) 


if sw = 0 then do 
say xmlError() 
exit 1 
end 


Now that the code has retrieved the Web page HTML and parsed it into a document tree, it must inspect 
a table within the HTML that lists software packages and their versions. The header of the table 
describes its contents: 


<thead> 

<tr> 

<td width="20%">Package</td> 
<td width="10%">Version</td> 
<td width="20%">Date</td> 
<td width="50%">Notes</td> 
af ere 

</thead> 
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The next program statement retrieves the row from the table that refers to the most recent version of the 
RexxXML package. The program knows that the first occurrence of the package in the table in the most 
recent one. It uses the following statement, with its XPath expression, to retrieve the appropriate infor- 
mation from the table: 


prow = xmlFindNode('/html/body/table/tbody/tr[td[1] = Spackage][1]', sw) 


Now, this statement extracts the Version data element from the row just retrieved. Together with the 
previous statement, this operation requires coding that is a bit detailed. For right now, just concentrate 
on what the statements do. They retrieve the appropriate data element, the RexxXML version, from the 
HTML table: 


curver = xmlEvalExpression('td[2]', xmlNodesetItem(prow, 1)) 


The final lines of the program compare this version to that under which the script runs. It displays a 
message as to whether they differ: 


if curver \= myversion then do 
say 'My version is' myversion 
say 'Current version is' curver 
say 'which was released' xmlEvalExpression('td[3]', xmlNodesetItem(prow, 1) ) 
end 
else 
say 'All up-to-date!' 


This sample script illustrates how easy it is to process and analyze a Web page or document with the 
RexxXML functions. The package offers much more capability than can be shown here. It saves a lot of 
string processing work that scripts would otherwise have to perform themselves in order to process 
XML. Readers are urged to download the RexxXML product, review its examples, and read the 
documentation. 


Other Rexx Tools, Interfaces and Extensions 


As a worldwide scripting language in use for over four decades, there are literally too many Rexx tools, 
utilities, extensions, and interfaces to track them all. Appendix H lists some of the available tools and 
hints at their breadth. All are either open source or free software. 


You can locate most of these tools simply by entering their names as search keywords in any search 


engine, such as Google. Code repositories such as SourceForge and GitHub host many of these tools. Or go 
to www.RexxInfo.org fora single point of access to most of them. 
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Summary 


This chapter explores the free RexxXML package for processing XML files. RexxXML provides almost 
any function needed to work with XML, HTML, XPath, XSLT, and related data description languages. 
Combined with the string manipulation strengths of Rexx scripts, RexxXML makes XML processing 
quick and straightforward. 


This chapter defined what terms like XML, XSLT, XPath, and HTML mean. We investigated the kinds of 
XML processing that the RexxXML package makes possible. We briefly discussed the functions in 
RexxXML, including those for document tree parsing, document tree searching, XSLT processing, and 
schema validation. And we discussed specific XML operations, such as how to load and process XML 
documents, how to process documents, how to validate documents, and how to process them against 
XSLT stylesheets. We reviewed one of the sample scripts that ships with the RexxXML package. The 
sample script demonstrates how to access a Web site, download an HTML page for processing, and how 
to scan that Web page and extract a relevant data element. In all, we saw that RexxXML is a comprehen- 
sive package that makes working with XML and its related technologies much simpler. 


There are dozens of other add-in interfaces and tools for Rexx developers. In Chapters 15 through 18, we 
discussed a few of the most widely used packages and demonstrated how to use them. While we could 
only skim the surface of these products in the limited space available, the material did provide an intro- 
duction sufficient to get you started with the tools. Appendix H lists several dozen more free and open- 
source Rexx interfaces and tools along with brief functional descriptions. Most can be found for free 
download on the Internet merely by entering their names into any popular search engine. New Rexx 
function libraries and utilities are continually being produced. 


Test Your Understanding 


1. What is the relationship between HTML, XML, XPath, and XSLT? What role does each 
play? Why is self-describing data useful? What language is used to build Web pages? 


2. How can you validate a document against a schema? What RexxXML functions do you use to 
load documents and save them? 


3. If you wanted to write a script to automatically scan Web pages and extract information, what 
RexxXML functions would you use? How do you ensure that the script dynamically connects to 
the Web page to analyze? 


4. Does Rexx include regular expressions? If you wanted to add regular expressions to your 
scripts, how would you do this? 


5. | What RexxXML functions would you use to apply a stylesheet to a document? 
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Overview 


You have reached the point in this book and in your understanding of Rexx that you know the 
core language. Now it is time to explore more deeply the many platforms, problems, and 
situations to which Rexx applies. Let’s expand our knowledge into advanced Rexx. 


This chapter outlines the history and evolution of Rexx. Discussing the evolution of the language 
shows how it has migrated across platforms and addressed new developer needs over time. This 
is useful in analyzing where Rexx fits into your own organization and how you can assess its 
utility as a universal scripting tool. 


This chapter analyzes the roles Rexx fulfills, as a scripting language, macro language, shell 
extension, application programming interface, object-oriented scripting tool, mainframe command 
language, and vehicle for programming handheld devices. It discusses where different Rexx 
implementations fit into this picture. It describes the “personalities” of the various Rexx 
intepreters and when and where you might want to use each. 


It also introduces a methodology for comparing Rexx interpreters to one another. The 
methodology can be used, too, for comparing Rexx against other scripting and programming 
language alternatives. Different projects and different organizations have different needs. No one 
interpreter is best for every situation. This chapter helps you compare and contrast interpreters 
and discusses some of the roles of the various Rexx products. 


This chapter also introduces the remainder of the book. The chapters that follow, Chapters 20 
through 30, discuss specific Rexx interpreters. Each describes the personality of an interpreter, 
where it runs, how to download and install it, and its features that extend beyond the Rexx 
standards. 


The upcoming chapters offer sample scripts that demonstrate many of the interpreter extensions 
and how they can be leveraged on specific platforms. The goal is to provide you with interpreter- 
and platform-specific information. 


Chapter 19 


Rexx interpreters run the gamut of platforms and applications. Some emphasize portability, while 
others emphasize platform-specific extensions and leverage platform-unique features. Some target cell 
phones, while others target mainframes. Some are object-oriented, while one offers an alternative to 
Java programming (it runs on the Java Virtual Machine and generates Java bytecode). 


The upcoming chapters go beyond the fundamentals of classic Rexx covered to this point and expand 
into the extended features of Rexx as it runs on different platforms. But first, we take a step back. We 
need to understand how Rexx evolved, why different interpreters are available, and some of the 
differences among them. 


The Evolution of Rexx 


Let’s start by discussing how Rexx was invented and how it has evolved. This helps us understand why 
there are many different Rexx interpreters today, and how they came to be. Understanding the larger 
picture is useful in assessing the various uses of Rexx and the differences among Rexx interpreters. 


Rexx was invented in 1979 by Michael Cowlishaw at IBM’s UK laboratories. It evolved into its present 
form in the early 1980s. Rexx stands for REstructured eXtended eXecutor. Rexx is sometimes written in all- 
uppercase as REXX. 


Rexx was designed to fulfill the promise of scripting languages — as general-purpose, high-productivity, 
easy-to-use vehicles for the quick solution of programming problems. Rexx was designed to be easy to 
use, yet powerful and flexible. These two design goals — ease of use and power — normally conflict. 


The specific goal in Rexx was to bring them together. This contrasts with the goals of many other 
scripting languages, which include: 

LI Addressing a specific problem space 

Fulfilling the personal goals or tastes of their inventors 

Compatibility with earlier languages 


Optimizing machines resources (CPU cycles or memory) 


OoOodo 


Ease of interpreter writing 


The goal with Rexx was to develop a general-purpose language that would be used by the widest 
possible cross-section of people and would fit their needs. Presciently anticipating how the Internet 
would drive cooperative software development more than a decade later, inventor Cowlishaw offered 
free use of Rexx within IBM’s network and solicited suggestions and recommendations. He got it in 
abundance, frequently answering hundreds of emails with ideas every day. This feedback was critical 
in shaping the language as user-friendly yet powerful. The result is that Rexx has its own unique 
personality among scripting languages. 
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Any programming language ultimately faces the popularity test. As Rexx spread throughout IBM, 
IBM’s customers became aware of the language and demanded it. IBM complied by shipping Rexx as 
the scripting language for its VM mainframes. Soon IBM bundled Rexx with all versions of its main- 
frame operating systems, including those in the OS and VSE families. 


In the 1990s, IBM developed a strategy for common software across all their computers. They called it 
Systems Application Architecture, or SAA. IBM selected Rexx as its official command procedure language across 
all its operating systems. The result was that IBM has bundled Rexx with all its operating systems ever 
since, including their mainframes (OS, VM, and VSE), midrange servers (IBM i, previously known as 
i5/OS and OS/400) and Power Systems, and personal computers (PC-DOS and its follow-on OS/2, which 
eventually evolved into eComStation and then ArcaOS). 


Others soon picked up IBM’s enthusiasm for the language. Microsoft offered Rexx as the 
Windows scripting language in the Windows 2000/XT Resource Kits. (The company later dropped 
Rexx in order to proprietarize Windows scripting. It did this by promoting its own tools such as 
VBScript and later PowerShell). Several other systems, including the Amiga and its descendants, 
bundled Rexx as their default OS scripting language. 


By the 1990s, Rexx had become quite popular. But it was still widely considered an IBM product — even 
if this view was not entirely accurate. Two events transformed Rexx from an IBM language into a 
universal scripting language: 


CL] The American National Standards Institute (ANSI) standardized Rexx in 1996. This gave it inter- 
national imprimatur and prestige and transferred control of the language from IBM to a recognized 
standards organization. 


Ll] The free and open source software movement. 


The result is that today free Rexx runs on virtually every known platform, from cell phones and 
tablets, to laptops and desktops, to midrange servers of all kinds, up to the largest mainframes. There 
are very few platforms on which Rexx does not run. There are at least dozen free Rexx interpreters and 
Rexx is used worldwide. 


Figure 19-1 pictorially displays the cross-platform versatility of the free Rexx interpreters. 


Rexx runs on all today’s major platforms: Windows, Linux, Unix, BSD, macOS, cell phones, and 
mainframes. 


But just as significant is that it also runs on many obscure and lesser-known systems. (This even 
includes obsolete platforms, which is handy if you happen to still support one.) There are more of 
these than we can list here, but they include DOS family systems, OpenVMS, CISC, eComStation, 
ArcaOS, OS/2, Mac OS X, classic Mac OS, Amiga OS 4, AROS, aeROS, MorphOS, AOS, Athos/Syllable, 
QNX, BeOS, Palm OS, SkyOS, Symbian OS/EPOC32, Pocket PC, Windows CE, Windows handhelds, 
and more. 


For a language to achieve this success, its language definition must coalesce at the right time. If a 
language is locked into definition too early, it may not evolve sufficiently and can ossify into a stunted 
form. On the other hand, if a language fails to acquire formal definition in time, it can fragment into a 
tower of babble. Or, when a formal definition does come along, there may be so many incompatible 
versions in use that the standard does not mean anything. (The BASIC language is an example. There 
are so many nonstandard versions of BASIC that the official language definition means little.) 
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Free Rexx Implementations 


All operating systems Linux, Unix, BSD, Mainframes BSD, Unix, Linux 
(except mainframes) macOS, Android, 
Windows, DOS, etc 


ooRexx , 


Windows, Linux, Android Android Any Java 
Unix, macOSs, Virual Machine 
BSD, others 

AmigaOS 4, z/VM, others soon Windows Windows 

MorphOSs, 

AROS, aeROS Figure 19-1 Out of support 


Rexx was lucky. Its inventor wrote a book to provide an informal language definition early on. The Rexx 
Language by Michael Cowlishaw (Prentice-Hall, 1985) crystallized the language and provided de fact 
direction for various implementations. With minor revisions, it was republished as a second edition in 
1990. This edition is commonly referred to as TRL-2 or TRL2. 


American National Standards Institute promulgated their ANSI Rexx standard in 1996. The standard 
follows TRL-2 very closely and ties up a few minor loose ends. The ANSI-1996 standard finally gave 
Rexx the imprimatur and prestige of an international standards body. It is formally known as X3.274- 
1996 and was developed by ANSI technical committee X3J18. Chapter 13 enumerates the exact 
differences between the TRL-1, TRL-2 and ANSI-1996 standards. 


Rexx is both well documented and highly standardized. This makes possible portable programming across 
the extremely wide variety of platforms on which Rexx runs. Chapter 13 made some recommendations 
about how to maximize the portability of Rexx scripts. These fundamentals also make skills 
transferable. If you can program Rexx on one platform, you can program it on any platform. 


With the rise of object-oriented programming in the 1990s, two free object-oriented Rexx interpreters 
came out. IBM developed Object REXX and Kilowatt Software created roo! Both are super sets of 
classic Rexx; they run standard Rexx scripts without alteration. IBM’s Object REXX became an open 
source product in early 2005. It is now called Open Object Rexx — or ooRexx -- and is managed as an 
open source project by the non-profit Rexx Language Association. 
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As Java became a popular language for developing Web-based applications, Michael Cowlishaw also 
developed NetRexx, a Rexx-like language that runs in the Java environment on the Java Virtual 
Machine (JVM). NetRexx scripts synergistically coexist with Java code. NetRexx scripts use Java classes 
and NetRexx can be used to create classes usable by Java programs. NetRexx can be used to write 
applications, servlets, and Java Beans. NetRexx is also a free and open source product. 


The Rise of Scripting Languages 


Let’s step back a moment from Rexx and its variants to talk about scripting languages. As explained in 
chapter 1, Rexx is a scripting language, an interpreted language designed for quick, easy program 
development. Rexx is widely considered the first general-purpose scripting language. 


Scripting languages are high-level vehicles that glue together other software components for 
quick program development. At their best, they result in higher programmer productivity; faster, easier 
debugging; and, more readable, maintainable code. Figure 19-2 enumerates some of their benefits: 


Scripting Benefits & Drawbacks 


Benefits: Drawbacks: 


Higher programmer productivity Slower run times 
(Example: Online Transaction Processing systems) 


Less concern about machine details Not suitable for low-level machine-specific coding 
(Example: device driver) 


Ties together and builds on existing 
software 


Faster, easier debugging 


Figure 19-2 


The downsides to interpreted languages are that they are less machine-efficient. They might not be the 
best choice for an application demanding the absolute highest performance. An example might be an 
online transaction processing (OLTP) system. In this case, the extra effort coding and debugging with a 
compiler might well be worth the higher machine efficiency you gain. 


Another example might be coding a low-level device driver, or a frequently used internal part of an 
operating system. These applications might require the lower-level detailed control a language like C or 
C++ or Java affords. Scripting languages aren’t generally used for programming that requires low-level 
machine access. 
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The Trend Towards Scripting 


One of the biggest shifts in software development over the past two decades is the increasing popularity of 
scripting languages. The reason for this is that their strengths fit the needs of 21* century programming: 


C] Computers have become much more powerful. Today's laptop exceeds the power of a mainframe 
fifty years ago. So the run-time differential between interpreted and compiled programs, once so 
important, today rarely matters. 


C1] The rise of the internet required new programming tools. Scripting perfectly fits the web 
programming paradigm, for both server- and client- side development. 


(} The continuing labor crunch places a premium on programmer productivity. As computers 
become more powerful, why not push the programming burden onto them, instead of the 
development team? Scripting does exactly that. 


C1 The rise of free and open source software (FOSS) has permanently changed the programming 
landscape. Most popular scripting languages — like Rexx — are FOSS. 


And so scripting languages are used for almost any kind of application today: 


Scripting Uses 


* Web browser programming 
* Web server-side applications 
* Glue languages 

* GUI programming 

* Command language 

* Job control 

* Systems administration 

* Task automation 

* Text processing 

* Macro programming 

* Embedded programming 


Figure 19-3 
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Understanding Scripting Languages 


Classifying scripting languages can help discern their individual strengths and weaknesses. Which 
languages are appropriate when? What distinguishes one from another? A few charts may help 
clarify. 


One fundamental division is between those languages that are general-purpose versus those that are 
more narrowly focused on a specific design problem. Look at figure 19-4: 


General vs Special Purpose Languages 


General Purpose: Special Purpose: 


Rexx, ooRexx, NetRexx, Python, Bash, KornShell, JavaScript, TypeScript, ASP.NET, PHP, VBA, R, Lua, 
Unix/Linux Shell languages, Perl, PowerShell, Ruby, AWK, GML, sed, others 
AppleScript, Visual Basic, VBScript, Tcl, others 


Figure 19-4 


You can see that some of the special-purpose languages support web development. Others are for text 
processing or embedded programming. Specially designed scripting languages can be ideal for such 
tasks. 


You might disagree with some of the classifications in the charts we present in this section. That's 
because it's not always clear how to classify languages. And languages change and evolve over time. 


PHP is a great example. It was originally designed exclusively for server-side web programming. It 
ran on servers to dynamically generate web pages. But it expanded its purview over time, and 

today can be used for client-side development as well. It can even be used for applications other than 
web programming (though one rarely encounters it in this role). 


PHP highlights another another useful distinction. Some scripting languages were designed specifically 
for web programming, while others address other kinds of applications. Some cover both bases, while 
others specialize. 


This chart shows some of the more common scripting languages for web development. We've split 


them into server- versus client- side tools. You can see that Rexx fits with those general-purpose FOSS 
languages used for server-side development, whereas the client-side tools are specialized tools: 
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Web Development Scripting 


Figure 19-5 


Another way to categorize scripting languages is to divide them into open source and proprietary products. 
Rexx sits squarely on the side of FOSS, though there are a few commercial versions around: 


Open Source vs Proprietary Scripting Languages 


Figure 19-6 


Another way to judge scripting languages is by their relative ease of use. "Ease of use" really encompasses a set 
of related values. Is the language easy to learn, easy to code, and easy to maintain? Does it put the burden of 
programming on the computer or the programmer? 


Easier vs Harder Scripting Languages 


Figure 19-7 
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Languages that one might consider easy include Rexx, ooRexx, NetRexx, Python, PHP, JavaScript, GML, and 
forms of Visual Basic. More difficult languages include several whose challenging syntax can be difficult to 
grapple with. The Unix/Linux shell languages, Perl, and AWK, fit into this category. They're quite powerful, but 
their idiosyncratic syntax means they aren’t easy to use or maintain. 


A final distinction is between languages that are cross-platform, versus those that are identified with a particular 
operating system. Many cross-platform examples spring to mind here, including Rexx, ooRexx, NetRexx, Python, 
Perl, Ruby, PHP, JavaScript, and others. Most are open source. 


Of course there are languages that are cross-platform, but in practice are rarely seen outside their native 
environment. An example would be PowerShell, which runs on several platforms, but is still nearly always 
encountered (and considered by most to be), a Windows tool. 


Another example is the Linux/Unix/BSD shell languages. Most run on several platforms but are rarely seen 
outside their native environment. Thus there’s a distinction between those languages that can be used across 
platforms, as opposed to those you truly see employed in this manner. 


Cross Platform Versus Platform-Specific Languages 


Cross Platform: Platform Specific: 
Rexx, ooRexx, NetRexx, Python, Bash, Perl, PHP, AppleScript, GML, Visual Basic, VBA, VBScript, 
KornShell, Ruby, Tcl, PowerShell, ASP.NET, others 


JavaScript/ECMAScript, TypeScript, others 


Figure 19-8 


Interpreter Options 


As you know, the examples in this book were tested using the Regina Rexx interpreter under Windows and 
Linux. We recommended that you start with Regina because it is an excellent open source Rexx that will run on 
any platform. Regina meets all Rexx standards and is the most popular free Rexx interpreter. It enjoys the 
largest user community and more interfaces are tested with Regina than any other Rexx interpreter. 


The other Rexx interpreters offer benefits, too. It is time to explore them. There are about a dozen free Rexx 
interpreters. The following table lists the platforms, costs and licensing terms for all these products. Some are 
free regardless of the use to which you put them, while others are free for personal and nonprofit use but 
require a license fee for commercial use. Some are open source, while others are free but not open source. Be 
sure to read the license for any Rexx interpreter you download and agree to its terms before using the product. 
A convenient list of free software licenses is maintained by the Open Source Initiative or OSI at 
www.opensource.org/licenses. 
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Interpreter Platforms Cost & Licensing 
Regina Nearly everywhere Free, open source, GNU Library or 
(except mainframes) LGPLv2 
ooRexx Windows, Linux, Unix, BSD, Free, open source, GPLv2, CPL 1.0 
(aka Open Object Rexx) MacOS 
ooRexx for Android Android Free, open source, Apache 
2.0 license. 
BRexx Linux, Unix, BSD, macOS, DOS, Free, open source, GPLv2 
Android, Windows 
BRexx370 Mainframes Free, open source, GPLv2 
Rexx/imec BSD, Unix, Linux Free, open source, no warranty 
IBM REXX Mainframes Bundled with OS, proprietary license 
IBM REXX Compiler Mainframes Proprietary license 
Rexxoid Android Free, open source 
(aka “Rexx for Android”) 
NetRexx Anywhere with a Java Virtual Free, ICU License 
Machine 
ARexx Amiga-derived systems Free, bundled, license varies 
CREXX z/VM, soon others Free, MIT license 
k4 (out of support) Windows Free. Limited warranty 
Roo! (out of support) Windows Free. Limited warranty 
Reginald (out of support) | Windows Free. No warranty 


Which Rexx? 


Given that there are so many free Rexx interpreters, an important question is which one should you choose? The 
answer varies by project and by organization because different projects and organizations each have their own 
criteria. The weighting or relative importance of those criteria vary. 


For example, one organization might rank Windows GUI programming as their primary concern. Regina or Open 
Object Rexx (ooRexx) might be their choice. Another organization might cite object-oriented programming as their 
goal. ooRexx and NetRexx are their prime candidates. 
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No one interpreter is best for all situations — different projects have different criteria and will result in different 
“best” decisions. To determine which Rexx interpreter(s) are right for you, follow these steps: 


1. List your selection criteria. 
2. Rank the relative importance of the criteria to your project or organization. 
3. Review the Rexx offerings in view of the ranked criteria. 


Many organizations use this weighted-ranking approach to evaluating software. List all selection 
criteria in a spreadsheet and assign each criterion a rank (such as High, Medium, or Low, or a 
number between 1 and 10). Give each interpreter a rank for how well it fulfills each criterion. 
Multiply all criteria ranks by the weightings to derive an overall number for each product. The 
interpreter with the highest number best fits your requirements. 


The table below shows how the weighted ranking approach works. Criteria for the project or 
organization are listed on the left-hand side of the chart, along with the priority for each. These will 
vary by project or company, as will their relative importance. Of course, your ranking chart will 
probably list more criteria than shown here; this is just an example of how to create the chart. 


Criteria (Rank) Regina _|BRexx ooRexx Rexx/imc NetRexx __ |... others ... 


Runs on our platforms (10) 


Platform extensions (3) 


Performance (5) 

TRL-2 standard (5) 
ANSI-1996 standard (3) 
Support (5) 


... other criteria ... 


TOTAL SCORES: 


The free Rexx interpreters are listed across the top. Each column reflects the score for the interpreter versus 
the criteria. Multiply the score for each box times the rank or weight and add all rows to score a cumulative 
weighted ranking for each interpreter. This cumulative ranking is written for each interpreter in the last row 
of the chart. 


Weighted-criteria comparison is useful for other kinds of evaluations in computer projects. For example, use it 
to determine which scripting language is most appropriate for a project or an organization. Rank Rexx versus 
other general-purpose scripting languages such as Python, Perl, VBScript, the shell languages, Ruby and others. 
Just as in the comparison of different Rexx interpreters, different criteria and weightings tend to promote 
different tools as most the suitable for different projects. 
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Free Classic Rexx Interpreters 


The following discussion supplies more background on the “classic” Rexx interpreters. All meet the TRL-2 standard 
except for NetRexx (which is best described as “Rexx like”). Regina is the only interpreter that adds the 
improvements required to meet the ANSI-1996 standard. The differences between the ANSI-1996 and TRL-2 
standards are very minor — see Chapter 13 for specifics. 


The goal here is to offer brief high-level profiles of each product in separate paragraphs. Chapters 20 through 30 
offer much more detail on the specific interpreters, their platforms, applications, and language extensions. 


We emphasize that the material in this chapter is merely a starting point for your own investigations. Different 
projects and organizations have different needs. There is no one answer for everyone. Only you know what your 
needs are, so only you can select the right tool for the purpose you have in mind. With this background, let’s briefly 
profile the different Rexx interpreters. 


Regina 


Regina is the most popular free Rexx, and it runs on nearly all platforms. Its large user community guarantees 
good support and means that more interfaces and tools are tested with Regina than any other Rexx. Regina is an 
open source product distributed under the GNU Library General Public License. 


Regina includes a very wide variety of extensions: it interfaces to just about every tool, from GUIs to databases to 
XML or whatever you need. The external function libraries and interfaces it works with include advanced C-like I/O, 
SQL database I/O, Tk GUI, DW GUI, gd graphics, XML, JSON, ISAM I/O, and many others. 


Regina also offers platform-specific features. So if you work on popular oe like Windows or Linux it brings 
many OS-specific features to the table. It can even run as part of a shell (the Z shell). 


Regina is one of the few free Rexx interpreters that fully implement the SAA application programming interface, or 
API. This provides a well-documented interface between Rexx and other languages. This allows Regina to be 
employed as a set of callable routines. It gives Regina a documented, standardized interface to Rexx extensions 
whether they ship with Regina or other Rexx interpreters. 


Regina’s documentation is very detailed and contains perceptive insights on Rexx interpreters and the finer points of 
the language. It explains Rexx standards and compatibility issues, how to use the SAA API, error conditions, I/O, the 
stack and language extensions. Chapter 20 discusses Regina in detail. 


BRexx 


BRexx is one of the fastest Rexx interpreters and it features a tiny disk footprint. BRexx runs under Linux, 
Unix, BSD, macOS, mainframes, Android, Windows, and several other systems. 


BRexx is especially well suited to systems with limited resources, such as cell phones, handheld devices, and 
smaller or older systems. It runs natively under Android, tiny Linuxes, DOS, Windows handheld versions 
like Windows CE, and similar small-footprint platforms. Its facility with DOS is not to be ignored — DOS is 
still popular for programming embedded systems and specialized devices, especially where a real-time 
single-tasking OS is required. 


On Android, BRexx uses a universal Android scripting interface called Scripting Layer for Android (or SL4A). 
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SL4A allows developers to automate Android tasks in scripting languages instead of using Java. 
The advantage, of course, is that Rexx has simpler syntax than Java. Also, it’s much faster and 
easier to develop with an interpreted scripting language than a compiled language like Java. 
Chapter 25 explains how to use BRexx on Android and provides sample programs. 


For all platforms, BRexx comes bundled with a number of external function libraries that go beyond 
the Rexx standards. Among its facilities for various platforms come built-in and external functions 
for math, PC file I/O, ASCII-EBCDIC conversion, C language style input/output, console I/O, array 
I/O, Windows CE, DOS interfaces, and ANSI-terminal screen I/O. BRexx also includes functions for 
VM/CMS-like buffer management, interfaces for databases like MySQL and SQLite, date/time 
conversions, and CGI scripting. 


Like Regina and Rexx/imc, BRexx features a long, proven support history. Chapter 22 describes 
Brexx and presents sample BRexx scripts. Chapter 25 specifically covers its use for Android 
programming. 


BRexx/370 


This is the BRexx code, ported and adapted to mainframe operating systems. One GitHub-based project targets 
CMS (VM/370) while the other targets MVS (OS/VS 3.8). Both run on the Hercules emulator, an open source tool 
that allows you to run mainframe operating systems on personal computers and other platforms. (Learn more 


about Hercules at http: //www.hercules-390.eu/.) 


The MVS version of BRexx/370 includes support for VSAM/KSDS, formatted screen, TCP support, NJE38, etc. 
The CMS version is integrated into CMS and runs memory-resident. Both products give you the ability to 
isssue operating system commands and support the features you'd expect from Rexx running in the 
mainframe environments. Appendix Z tells where to download these products, how mainframe emulation 
works on your PC, and where Rexx fits in. 


Rexx/imec 


Rexx/imc runs on BSD, Unix, and Linux operating systems. It includes extra functions for C-like 
I/O, higher mathematics, Unix environmental info, and other C-like and Unix-friendly extensions. 


Rexx/imc is a partial implementation of the SAA API. It has a proven track-record of support 
spanning decades. It seems to be most popular in the BSD community. Chapter 21 describes 
Rexx/imc and offers a few sample scripts that illustrate its extended capabilities. 


Rexx for Android (aka “Rexxoid”) 


Pierre G. Richard of Jaxo, Inc., developed a Rexx interpreter and library in C++. This code runs on most 
platforms. He initially deployed it on the Palm OS. Today it runs on Android. It offers a way to code Rexx 
scripts that issue Android shell commands. 
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You can download and install Rexxoid from the Google Play Store. At its GitHub home, at 
https://github.com/Jaxo/yaxx, you'll find a half dozen sample programs as well as product screen shots. 


When installing and configuring Rexxoid, it may be helpful to connect the phone to a laptop or desktop 
computer via USB cable. This also facilitates debugging. 


Rexxoid has a fundamentally different design than BRexx for Android. While BRexx uses the SL4A scripting 
interface, Rexxoid is primarily intended to issue shell commands. From this perspective, it’s a little more 
narrowly focused product. We describe Rexxoid and discuss sample programs in chapter 25. 


CREXX 


cREXX might best be characterized as an experimental interpreter project. To paraphrase from its GitHub 
home page, the project's goals are to: 


CL} Develop a modern implementation of a Rexx interpreter and compiler from the ground up 
Experiment with language improvements 
Revisit the Rexx language and determine what can be improved 


See if Rexx can be improved while retaining the essence of the language 


OoOoo 


See if programming can be made even easier 


Initially, CREXX runs on the z/VM mainframe platform. The goal is to also make it available on Windows, 
Linux, macOS, and z/OS mainframes. 


Given cREXX’s somewhat experimental nature, and in anticipation that it will evolve and change too rapidly 
for a printed resource like this book to keep up with, we won’t cover this project in detail. 


Interested readers are encouraged to visit the project at its GitHub home page of 
https://github.com/adesutherland/CREXX. 


Reginald 


Reginald was originally based on Regina Rexx. Reginald adds tools and functions that tailor Rexx 
specifically for Windows programmers. 


For example, it includes a Windows installer, a GUI script launcher, and a Rexx-aware text editor. It comes 
with a GUI dialog plus Integrated Development Environment (IDE), and helps developers to create 
programs featuring Windows GUI interfaces. Its many other interfaces include those for MIDI files, 
computerized speech synthesis, Windows file and directory I/O, and TCP/IP sockets. Its function libraries 
support transcendental math, regular expressions, speech generation, and various utilities. 


For developers wishing to create Rexx scripts that mold seamlessly into Windows, Reginald fits the bill. It 
offers a free “power tool” for Windows developers and supplies all the functions Windows developers need. 
It’s also nicely documented. 


Unfortunately, at the time of writing, support seems to have lapsed for Reginald. Reginald is thus "frozen in 
time" and falling behind Windows developments. Chapter 23 describes Reginald in detail and presents a few 
sample scripts. 
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r4 


r4 is a product of Kilowatt Software, which also offers the upwardly compatible, fully object-oriented 


roo! Both are customized for Windows, with easy installation and developer tools specifically 
designed for that operating system. The support tools and utilities work with both r4 and roo! 


r4 and roo! offer GUI tools and accessories that are simpler to use than many Windows GUIs. Some 


of the tools include a UI forms tool, color text file viewer and editor, over 135 windows command 
tools, visual accessories, XML to HTML auto-converter, GUI widgets, and so on. 


The products each include some 50 sample scripts and introductory tutorials that bring to life the 


spirit of Rexx as an easy-to-learn language. This documentation helps beginners learn the languages 


quickly and experienced developers to become immediately productive. 


Unfortunately, at the time of writing, Kilowatt Software no longer appears to be supporting r4 and 
roo!. Like Reginald, they are falling behind Windows' evolution. We retained the material on r4 and 


roo! in this edition because we do still field occasional inquiries about them. Chapter 26 describes 
both products, along with programming examples. 


Free Object-Oriented Rexx Interpreters 


The two free object-oriented Rexx interpreters are supersets of classic Rexx: Open Object Rexx (or 
“ooRexx”), and roo!. ooRexx runs on Android under the project name of "ooRexx for Android." 


These products can run “classic” procedural Rexx scripts without alteration. In addition they support 


all the features of object-oriented programming through their additions to standard Rexx. Both 


support inheritance and derivation, encapsulation, polymorphism, and abstraction. They come with 


complete class libraries. 


There is one major difference between the two ooRexx products and roo! — they are completely 
different implementations of object orientation in Rexx. Their class libraries, new instructions and 
functions, and even their object-oriented operators differ. Those interested in object-oriented Rexx 
programming should look closely at the differing approaches and compare them against their 
requirements. 


We might add that there is no ANSI standard for object-oriented Rexx. A standard would give object- 
oriented Rexx greater importance as a universal language, encourage wider use, and might increase its 


availability on other platforms. 


Object-oriented Rexx is popular both for classic Rexx programmers who wish to transfer their skills 


to object-oriented programming, and for those who know OOP but seek an easier-to-use language 


than many of the alternatives. Like classic Rexx, object-oriented Rexx combines its ease-of-use with 


power. But in this case, the power is based on extensive class libraries. 
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Open Object Rexx (or “ooRexx”) 


A product called Object REXX was originally developed by IBM Corporation in the mid-1990s. In early 2005, 
IBM open-sourced Object REXX and turned its continued development and support over to the Rexx 
Language Association. 


The Rexx Language Association renamed the product Open Object Rexx, usually referred to as ooRexx. Open 
Object Rexx is upwardly compatible with classic Rexx and extends the procedural language into the object- 
oriented world. 


ooRexx differs from roo! in that both are object-oriented supersets of classic procedural Rexx that take very 
different approaches to implementing object-oriented programming. 


It’s important to note that ooRexx supports all advanced OOP features. That includes multiple inheritance and 
operator overloading, for example. 


ooRexx runs on Windows, Linux, Unix, BSD, macOS, and other platforms. It is definitely the most widely used 
object-oriented Rexx interpreter. It also runs on Android through the "ooRexx for Android" project. 


Chapters 27 and 28 describe ooRexx in detail, and walk you through a number of example programs. If you’re 
not familiar with object-oriented programming, this is the perfect way to learn. Use your knowledge of Rexx 
and expand it at the pace that suits you into the object-oriented world. 


Appendix I lists the ooRexx classes. Viewing that list will give you an idea of the extensive power ooRexx offers. 


ooRexx for Android 


ooRexx for Android brings the benefits of Open Object Rexx to the Android. ooRexx was ported to Android by 
Thomas Grundmann-Kahr of Germany. It is offered under the Apache 2.0 open source license. 


Asa port, it features all the classes, methods, etc, available in ooRexx. The only difference is that it specifically 
targets Android, instead of the other platforms ooRexx supports (Windows, Linux, BSD, Unix, macOS, etc.). 


The product home is at GitHub at https: //github.com/itsmetjk/ooRexx5 for AndroidoS. From there, 
you can download the interpreter and access all its documentation. The software includes an Android Package 
Kit (APK) for easy installation. Chapter 25 covers ooRexx for Android. 


At the time of writing, scripts can only be run on a rooted device and require the Android Software 
Development Kit (SDK). This may change in the future. 


roo! 


Kilowatt Software offers their object-oriented extension of classic Rexx called roo! It is a companion product to 
their classic Rexx interpreter r4. 


roo! adds all object-oriented features to classic Rexx, including a full class library and support for all object 
programming principles. Upwardly compatible with r4, it uses all the same tools. Good tutorials bridge the gap 
between classic Rexx and object-oriented programming. 


Unfortunately, like r4, roo! appears to be out of support from Kilowatt Software. It is thus falling behind Windows' 
evolution. Since some readers still ask about it, chapter 26 describes roo! in detail. 
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NetRexx 


NetRexx is an free and open source “Rexx-like” interpreter that runs wherever Java runs -- on a Java 
Virtual Machine, or JVM. In fact, NetRexx was the first language (after Java itself) to run on the JVM. 


NetRexx offers an alternative way to script Java applications with a language that is closely 
modeled on Rexx. It uses the Java class library. You can code NetRexx scripts that call Java 
programs, or vice versa, or you can use NetRexx as a complete replacement or alternative to Java 
programming. You can even code Java Beans in NetRexx and use it for server-side programming as 
well. NetRexx is an easier-to-learn and use scripting language than Java that jettisons Java’s C- 
language heritage for the clean simplicity of Rexx. 


NetRexx is not a superset of classic Rexx. It is best described as a Rexx-like language for the Java 
environment. Since NetRexx is not upwardly compatible with classic Rexx, there is a free standard Rexx 
to NetRexx converter program available called Rexx2Nrx. Find it at www.RexxInfo.org or enter 
keyword Rexx2Nrx in any Internet search engine. 


Michael Cowlishaw — the inventor of classic Rexx — also developed NetRexx. Today, the product is free 
and open source, and is developed and maintained by the Rexx Language Association. The RexxLA 
offers a free license to download and use NetRexx for all Java environments. Chapter 30 describes 
NetRexx in detail. 


Mainframe Rexx 


Rexx was originally developed in the early 1980s to run under the VM family of operating systems. 
Later in the decade IBM released Rexx for OS- and VSE-family mainframe systems as well. 


Rexx has now been the dominant mainframe scripting and command language for decades. It 
integrates with nearly all mainframe tools and facilities and is the primary mainframe macro 
language. 


Some of the mainframe systems with which it interfaces include: TSO, CMS, ISPF, Xedit, editor 
macros, MVS Batch, SYSREXX, RACF, CCA, SMF, SDSF, NetView, CICS, DB2, CONSOLE, GCS, 
LINK*, ATTACH*, SYSCALL, IPCS, CPICOMM, CPIRR, LU62, APPCMVS, OPENVM, Zowe, and 


all address spaces or environments. 


That’s quite a list. You can see why Rexx is irreplaceable as a mainframe administrative or systems 
management tool. Of course, it's quite popular for user applications, too. 


Mainframe Rexx is so widely used that IBM long ago introduced a Rexx compiler. So developers 
can ultimately compile their programs for greater runtime efficiency once they have thoroughly 
debugged them. 


Mainframe Rexx is not free or open source but comes bundled with the operating system. Chapter 
29 discusses mainframe Rexx. It lists the differences between it, the ANSI-1996 standard, and the 
free Rexx implementations. This helps those who are transferring either their skills or their code 
from mainframes to other platforms. It may also prove useful to those who know systems like 
Windows, Unix, or Linux and have occasion to work with mainframes. 
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You might wonder: aren’t mainframes fading away? Do people still use them? Are mainframe skills still 
a viable career path? 


IBM doesn't release sales numbers. The result is that you'll find no lack of passionate arguments for 
either side of this question on the internet. Our own sense of it is that we're in a steady state. 


According to statistics from several sources, at the time of writing, somewhere over 70% of Fortune 500 
companies have mainframes. They are vital platforms in many industries, including banking and 
finance, retail, insurance, healthcare, government, and transportation. Mainframes process over 90% of 
the world's credit card transactions, for example. 


Surveys shows that large companies that have mainframes nearly always keep them. 


Yet the once common scenario of new companies growing into mainframes is probably a story of the 
past, now that there are alternatives like cloud services, parallel Linux servers, and other options. 


Some argue that Rexx will fade as a mainframe language as the “baby boomer” generation that grew up with 
it retires. That doesn’t seem to be the case. Younger programmers in countries that support outsourcing work, 
such as India, are keeping Rexx alive and healthy. Those who think that the use of mainframe Rexx is shrinking 
may be mistaking shifts in staff locations for a decline in usage. 


Chapter 29 covers mainframe Rexx. It discusses the unique characteristics of mainframe Rexx and how it 
differs from many of the free Rexx implementations. As well as mainframe professionals, this discussion may 
be of use to those who transfer either their skills or their code between mainframes and other platforms. It may 
also prove useful to those who know systems like Windows, Unix, or Linux and have occasion to work with 
mainframes. 


These appendices also specifically cover mainframe Rexx topics: 


Appendix E -- Mainframe-specific functions 

Appendix N -- How to Code EXECIO 

Appendix O -- How to Write ISPF Edit Macros 

Appendix P -- How to Run Rexx in Batch 

Appendix Q -- Rexx <--> Clist Equivalences 

Appendix R -- Mainframe Rexx vs the ANSI-1996 Standard 


Appendix W -- Job Interview Questions 


| 
| 
| 
| 
| 
| 
| 
U 


Appendix Z -- BRexx/370 for Mainframe Emulation 
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ARexx 


ARexx is a Rexx interpreter originally written by William S. Hawes and bundled with the Amiga 
computer line in the 1980s. While the Amiga computer is today little known, it was considered a very 
innovative machine for its time and had quite a mindshare impact. Amiga’s success was based on its 
offering the first popular multi-tasking operating system for a personal computer. The OS coupled 
these advanced features with the easy programming provided by Rexx as its primary scripting 
language. 


While the Amiga was popular and highly respected in its day, the company behind it, Commodore 
International, ultimately fell into decline and faded away in the 1990s. 


Yet the great popularity of the Amiga ensured its survival. Today there are several successor operating 
systems that keep the Amiga spirit alive and run ARexx: 


AmigaOS 4 (also known as AOS4) 

MorphOs 

AROS (acronym for “A Research Operating System”) 
aeROS (or AEROS) 


Oooo 


All these are live systems that are used and supported. They run on a variety of platforms including 
various models of Amiga, PowerPC, Apple mac’s, and AmigaOne. Some of the underlying processors include 
IA-32, Intel, ARM, m68k, PowerPC, and ARM. You can get a sense of the liveliness of this community by 
visiting one of its code repositories at Aminet at https: //AmiNet.net. 


ArcaOS Rexx 


Earlier we mentioned that IBM bundled Rexx with OS/2 from its inception. This gained the language 
many new adherents and resulted in the development of a large variety of Rexx packages and 
interfaces. 


Ultimately, of course, OS/2 lost the famous “OS wars” of the 1990s to Windows. But while it was swept 
from the limelight, OS/2 continued on as a viable platform. 


Eventually IBM transferred OS/2 development and support to a company called eComStation, or eCS. 


Later that company transferred OS/2 to its current developer, Arca Noae. Today the operating system is 
called ArcaOS, and it continues to bundle and run Rexx, as did all its predecessors. 
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uni-Rexx by The Workstation Group 


uni-Rexx is a commercial ANSI-standard Rexx implementation for Unix. It includes a Rexx interpreter, a Rexx 
compiler, OS-related extensions, application programming interfaces and a sample scripts library. 


uni-Rexx is the macro language for editors and other tools from the same vendor including uni-SPF, uni-XEDIT, 
netCONVERT, and Co/SORT. Uni-Rexx is a rock-solid product: the author supported an application of over 10,000 
lines of code in uni-Rexx and never encountered a single bug or issue. Find The Workstation Group at 
www.wrkgrp.com or at 1-847-540-3390. 


Other Commercial Rexxes 


There have been numerous commercial Rexx offerings over the years. Beyond uni-Rexx and the Rexx 
implementations that are bundled with operating systems, most have fallen by the wayside in the face of free 
and open source competitors. Examples include S/REXX by Treehouse Software, Personal Rexx by Quercus 
Systems, Mansfield Rexx from the Mansfield Group, and others. 


Running Rexx in the Shell 


Like other scripting languages, Rexx scripts run as a separate process than the one that invokes them. Run a 
Rexx script from the operating system’s command line (or by clicking an icon), and the operating system 
spawns a separate process for the script. 


Shell language scripts run in the same process as the command interpreter. The advantages to this are: 


C} Environment variables set by the script remain in effect after its termination. 


C} The current working directory can be altered permanently by the script. 


C} The numeric return code of the script is available in the return code variable identified by 
the special shell variable (in some operating systems named $? ) . 


One packaging of Regina Rexx enables it to run in the same process as the Z-shell (zsh). This yields the 
above advantages. This is useful for scripts that need to alter the user’s environment, for example, for 
scripts that perform product setup, installation, or customization. If you need to run a script within the shell 
itself, Regina can fulfill your requirements. 


Rexx As an API 


Several Rexx interpreters are implemented as a library suitable for linking into other applications. This 
allows programs written in other languages to employ Rexx as a set of callable routines that provide the 
functionality inherent in Rexx. 


Rexx interpreters use a consistent interface standard, called the SAA API or sometimes the Rexx API. These 


include Regina, Open Object Rexx, Reginald, and with partial compliance, Rexx/imc. The Regina Rexx 
documentation manual has a complete section that explains how this works. 
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The documentation is written from the standpoint of C/C++ programmers. The IBM Rexx SAA 
manual may also be of interest to those using the Rexx API. See Appendix A for details on how to 
obtain these sources of API information. 


Rexx As a Macro Language 


Macro languages are used to provide programmability within a product. Rexx is a popular macro language for a 
variety of products. For example, Rexx can be used as a macro language to tailor and customize various text editors, 
such as the primary mainframe editors (ISPF and XEDIT), THE (The Hessling Editor), and the Rexx Text Editor 
(RexxED). Rexx has found its greatest popularity as a macro language in the mainframe environment. Appendix O 
explains how to code Rexx edit macros and provides program examples. 


Multiple Rexx Interpreters on One Computer 


Given that there are so many Rexx interpreters, you might wonder: can I install more than one on the same 
computer? Absolutely. Chapters 20 through 30 describe various free Rexx interpreters and show how to 
install each. 


In most cases, you can install more than one Rexx interpreter on the same machine without experiencing any 
conflicts. Just follow the normal installation procedures, then use the products in the usual manner. The 
author routinely installs both Regina and ooRexx on the same computer without any issues. 


There are a few aspects of which to be aware. First, you'll need to ensure that each interpreter’s executable 
has a unique name. This is important because a few of the products use the same name for their interpreter. 
For example, versions of Regina, Rexx/imc, and ooRexx all call their executable rexx. If you install these 
three interpreters into a shared directory this creates an obvious conflict. 


Secondly, when you install more than one interpreter on a single computer, you'll want to ensure you are 
running the interpreter you think you are in any particular situation. It is possible, for example, to implicitly 
run a script, and have that script executed by a different interpreter than the one you thought ran it. For 
example, if you install several Rexx intepreters on a Windows machine, you'll want to know which interpreter 
runs a particular script when you double-click on it. 


The solution to the first problem is simply to ensure that each Rexx executable has a unique name. Installing 
the interpreters under different directories resolves this issue because the fully qualified path name is the 
filename for the executable. This approach works fine if you want to place each interpreter in its own unique 
product directory. 


If you want to place multiple Rexx interpreters in the same directory, you'll have to rename any executables 
whose names conflict. An example where this might be an issue is if you use Linux operating system 

and want to install all language interpreters into the same shared executables directory. The solution is simply 
to ensure that each Rexx interpreter in that directory has a unique name for its executable. For example, 
versions of Regina and Rexx/imc both call their executable rexx. You might delete Regina’s rexx binary and 
use its regina binary instead. Or rename Rexx/imc’s binary to rexximc. 
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Once you have installed multiple Rexx interpreters, any standard Rexx script will run under any of the 
interpreters. Still, you'll probably want to know (or ensure) which interpreter executes when you run a script. One 
solution is to explicitly invoke scripts. Name the interpreter to run on the command line with the name of the Rexx 
script to execute as its input parameter. For example, this command runs a script under the r4 interpreter on a 
Windows machine. r4’s executable is named r4: 


r4 rexxcps.rexx 


This command runs the same script on the same computer under BRexx. This BRexx executable is named rexx32: 


rexx32 rexxcps.rexx 


If necessary, use the full path name to uniquely identify the executable to run. This technique is useful if the 
unqualified or “short” filenames of the interpreters are the same but their fully qualified path names differ. Here is an 
example that specifies the full path name of a Rexx interpreter on a Unix machine. The name of the executable is 
rexx, a potentially duplicate short filename, but the fully qualified pathname ensures that the interpreter you want 
runs: 


usr/local/bin/regina/rexx rexxcps.rexx 


If you don’t fully qualify the executable name, the operating system’s search path may dictate which binary runs. 
Take this command: 


rexx LTeXxXCps.Lrexx 


Assuming that there are multiple rexx executables on the machine, the operating system has to choose 
which to run. Most operating systems have an environmental variable that tells which directories to search 
for the binary and the order in which those directories are searched. This environmental variable is named 
PATH (orpath) under Windows, Linux, Unix, BSD, and other operating systems. In terms of the example, 
the first reference in the search path that resolves to a valid executable named rexx is the one the operating 
system runs. 


Under the Linux, Unix, and BSD operating systems, you may direct which interpreter runs a script by coding 
some information on the first line of the script. The first line of the script begins with the characters #! and 
specifies the fully qualified name of the Rexx executable. For example, to run the Rexx/imc interpreter the first 
line in each script will typically be its fully qualified executable’s name: 


#!/usr/bin/rexx 


The fully qualified path name and the name of the Rexx executable vary by the interpreter. If two 
interpreters use the same fully qualified name for their executable, change the name of one of them to 
distinguish it. This unique reference then becomes the first line in scripts that use that interpreter. 


Under operating systems in the Windows family, the file association determines which Rexx interpreter 
executes a script when you click on that script. File associations are established for the interpreters 
automatically when they are installed. Here are the default file associations for some Rexx interpreters you 
might install under Windows: 
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Rexx Interpreter Typical Default File Extension 
Regina .CEXX 
ooRexx .orex or .rex 
BRexx or 
Reginald and r4 . eX 
NetRexx anes 


You can set the file associations manually (or alter them) through the Windows' file Explorer. Go to the top 
menu bar, select Tools | Folder Options... | File Types, and you can view and optionally change file 
associations. Or access this tool by searching for the keywords "associating files" in the Windows Help 
system. Managing the file associations allows you to avoid any conflicts in assigned file extensions among 
the Rexx interpreters. 


The chance of a conflict when installing two or more Rexx interpreters on the same computer is 
low. If you do have a conflict, verify that each Rexx interpreter has a unique name; try explicitly 
running the interpreters using their full pathnames; verify that PATH (or path) variables are 
correct; verify that the libraries the interpreters require are in the correct directories; and, verify 
the Rexx script extensions. 


Java Integration 


You can commingle Rexx with Java in several ways. We've already mentioned NetRexx, the Rexx-like 
language that runs on the Java Virtual Machine. Use it to code applications, beans, and servlets. 


In addition, the free and open source tools BSF4o0oRexx and BSF4Rexx bring the full capabilities of Java to 
ooRexx and classic Rexx, respectively. BSF stands for Bean Scripting Framework. These tools enable you to 
exploit all Java classes, objects, and functionality from within ooRexx and classic Rexx. Chapter 24 

provides examples of using BSF4ooRexx for programming single board computers. Appendix T covers Java 
integration and the Bean Scripting Framework in detail. 


Summary 


In this chapter, we took a step back and described the invention and evolution of Rexx. The goal was to get a 
bit of perspective on the language's platforms, roles, and applications. 


This chapter summarized the various Rexx interpreters that are available. It profiled their strengths, the 
platforms on which they run, and their major characteristics. We also presented a methodology for deciding 
which interpreter is most suitable for a particular project or application. Different projects and organizations 
have different needs, and the methodology helps structure decision-making when selecting a product. The 
methodology can be used either to compare Rexx to other scripting languages or to select a Rexx interpreter 
from among the several that are available. 
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This chapter also discussed the roles that Rexx scripts fulfill within organizations. These include using Rexx as 
a macro language, calling Rexx functions from other languages through the Rexx API, running Rexx in the 
shell, scripting cell phones and handheld devices, and Rexx in its role as the mainframe command language. 
Several object-oriented Rexx interpreters are available. In an extended and altered version called NetRexx, the 
language also participates in the Java environment, providing both client- and server- side scripting that fits 
synergistically with Java. 


Finally, this chapter addressed how to resolve any conflicts that might occur when installing more than one 
Rexx interpreter on the same machine. Conflicts rarely occur, but when they do, they can easily be resolved. 


With this chapter laying the groundwork, let’s discuss the organization of the remainder of the book. 
Chapters 20 through 30 describe different Rexx interpreters. Each chapter focuses on a different interpreter 
and describes its advantages, the platforms it supports, and its unique “personality.” The chapters describe 
the features each interpreter offers beyond the Rexx standards and illustrate many of these extensions 
through sample scripts. The goal of these chapters is to take you beyond classic Rexx and into the realm of 
advanced scripting. You'll improve your scripting and also become privy to the advanced and interpreter- 
and platform-specific aspects of the language. 


Several of the upcoming chapters cover specific kinds of programming. For example, three chapters address 
object-oriented Rexx scripting. They include an object-oriented tutorial that leverages your knowledge of 
classic Rexx to take you into the world of object-oriented programming. Two other chapters cover single 
board computers and Android cell phone programming. Yet another chapter focuses on NetRexx, a Rexx- 
like language that complements Java. NetRexx fits into the Java environment and runs under the Java Virtual 
Machine. And one chapter summarizes Rexx as the predominant mainframe command language. Several 
appendices also specifically discuss aspects mainframe programming in detail. 


Let’s go forward and learn about the various Rexx interpreters and how they apply to a wide range of 
platforms and programming problems. 


Test Your Understanding 


1. If you wanted a fast-running Rexx for a single board computer, which would you pick? 
Which interpreter runs on the most platforms? Which offers a complete set of Windows GUI 
functions? Which offers extensions for Linux, Unix, and BSD? 


2. What are the major Rexx standards? To which do the free Rexx interpreters adhere? What 
is SAA and what was its impact on the standardization of Rexx? 


3. | What are Open Object Rexx and roo! and what are their benefits? Could you run a 
standard Rexx script under these interpreters? Would it make sense to do so? How do 
Open Object Rexx and roo! differ? Which is(are) free under: Windows? Linux? Unix? 


4. What is NetRexx and how is it used? Does NetRexx meet the Rexx standards? Can you 
access Java classes from NetRexx? Could you write Java classes in NetRexx? 


5. Which open source Rexx not only meets all standards but includes the interpreter- 
specific extensions of the other free Rexx interpreters? 


6. Which Rexx interpreters run on Android cell phones? 


7. | Why use an emulator with Rexx? 
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Overview 


Regina is the most widely used free Rexx interpreter. Its use is truly worldwide: it was originally 
developed by Anders Christensen of Norway in the 1990s and is today enhanced, maintained, and 
ported by Mark Hessling of Australia. Regina’s popularity is well deserved. It meets all Rexx 
standards and goes well beyond them in the features and functions it offers. It runs on nearly any 
platform. Some of its many advantages were presented in the first chapter, when we described why 
it is an excellent choice of Rexx interpreter. 


This chapter explores those aspects of Regina that go beyond the ANSI standards to give you a feel 
for the extra features of this product. Since Regina meets all Rexx standards, of course, everything 
from the tutorials of the earlier chapters of this book apply to your use of Regina. In fact, all the 
sample scripts to this point were tested with Regina in its role as a standards-compliant Rexx inter- 
preter. The goal here is a bit different. This chapter specifically explores the Regina features that go 
above and beyond the Rexx standards. 


First, we'll cover the advantages of the Regina interpreter. Then we'll discuss when and why it 
may be appropriate to employ the features of Rexx interpreters that extend beyond the 
standards, and what the downsides of this decision are. Different projects have different goals, 
and you want to be appraised as to when using interpreter features beyond those of the Rexx 
standards is advisable. 


This chapter describes Regina’s extended features. These include its many operands for the 
options instruction, additional functions (for bit manipulation, string manipulation, 
environmental information, and input/output), facilities for loading external function libraries, the 
stack and its uses, and the SAA API. Let’s dive in. 


Chapter 20 


Advantages 


In deciding whether to use any particular Rexx interpreter, you'll want to know what the benefits to the 
product are. Do its strengths match your project’s needs? This section attempts to answer that question 
for the Regina Rexx interpreter. This chapter lists and discusses many of the product's stengths. The 
chapters that follow this one present the same information for other Rexx interpreters including 
Rexx/imc, Reginald, BRexx, r4, and roo!, Open Object Rexx, ooRexx for Android, mainframe Rexx, and 
NetRexx. A separate chapter covers each interpreter, and each chapter begins with a list of the product’s 
special strengths, similar to the one given here. Use these lists as your “starting point” in deciding which 
Rexx interpreter is right for any particular situation or project. 


With this said, let’s discuss the strengths of Regina. Figure 20-1 pictorially summarizes many of Regina’s 
advantages as a Rexx interpreter. 


Regina Rexx...Built on Strengths 


Runs Everywhere 


Many tools & interfaces Proven 


Open source Rexx API Free 


Proven maintenance record Detailed documentation 


International languages Largest user community | 


Compatible w/other Rexxes Meets all standards | SAA Support 


Figure 20-1 


Let’s discuss these advantages in more detail. 


CL) Regina runs anywhere — Rexx is a platform-independent language, and Regina proves the point. 
Regina runs on any operating system in all the predominant OS families: Windows, Linux, 
Unix, BSD, macOS, and BSD. It even runs on a very wide variety of less popular systems. 
Regina runs on most of the platforms listed for Rexx interpreters in the tables in Chapter 1. 


Ll Regina meets all standards — Regina fully meets the ANSI-1996 standards and conforms to the 
SAA, TRL-2, and TRL-1 standards as well. The product’s detailed documentation provides pre- 
cise explanations of the differences between these standards. 


Cl Regina has a large support community — Regina’s large worldwide user base means that this 
implementation has the largest support community. If you post a Rexx question on the 
Internet, chances are the response will come from someone using Regina. Also, Regina has a 
strong, proven track record for support. 
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C1 Regina boasts tools and interfaces — As the most popular free Rexx, most Rexx tools are written 
for and tested with Regina. Open-source interfaces that work with Regina include those for 
relational databases, the Tk and DW GUI toolkits, the gd library for graphics, the THE editor, 
ISAM access method, Curses for standard screen I/O, CURL for URL support, and many others. 


C1 Regina offers compatibility with other Rexxes — Regina includes features and functions that go 
beyond the standards to provide compatibility with other Rexx implementations. We call this 
Regina’s supercompatibility. Take issuing operating system commands, for example. Regina 
supports ANSI-standard redirected I/O via the address instruction. It also allows the 
address instruction to use the stack, as in mainframe and other Rexxes. Where Rexx 
implementations differ, Regina supports all the approaches and lets the developer choose 
which to use. 


C1 Regina includes functions from other Rexxes — As part of its supercompatibility, Regina 
includes implementation-specific functions matching those supplied by VM mainframe Rexx, 
the SAA standard, Amiga ARexx, and OS/2 Rexx. 


LI Regina offers detailed documentation — Regina’s documentation is probably the most 
comprehensive and detailed of any free Rexx interpreter. Its documentation goes far beyond 
the required and includes detailed discussions of conditions, I/O, extensions, and the stack. It 
includes a large section on the Rexx SAA API, which explains to developers how they can call 
Regina as a set of external routines. 


C1 Regina is open source. Regina is open source and is distributed under the GNU Library General 
Public License. Not all free Rexx interpreters are also open source. 


CL] Regina supports the REXX API — Regina is implemented as a library based on the standard Rexx 
application programming interface, or API. It interfaces to programs written in other programming 
languages based on this clean, well-documented interface. With this interface, for example, you 
could code C or C++ programs that employ Regina as a set of Rexx functions. 


Ll Regina is international — Regina supports several spoken languages, including English, 
German, Spanish, Portuguese, Turkish and Norwegian. 


C1 Regina uses DLLs and shared libraries. Regina includes the Generic Call Interface, or GCI, which 
allows scripts to call functions in Windows DLLs or Linux/Unix/BSD/macOS shared libraries 
as though they were Regina built-in functions. This gives Regina scripts full access to external 
code of all kinds for Windows and Linux- and Unix- derived systems (even though that code 
was not specifically written to be invoked from Rexx scripts). 


LI Regina is thread-safe — This allows it be used by applications like the Apache Web server 
which use threads for superior performance. 


Ll Regina supports “superstacks” — Regina’s stack services extend way beyond the required or 
expected. As described in Chapter 11, Regina’s external queues can be used for communications 
between different processes on the same computer, different processes on different computers, 
or even between different processes across the Internet. 


Regina’s Extras 


Chapter 1 discussed where to download Regina from and how to install the product. The chapters fol- 
lowing that one presented a progressive tutorial on how to script with standard Rexx. All this material 
applies to Regina, and all the sample programs up to this point were tested using Regina. Now it’s time 
to explore the extended features of Regina. This figure summarizes them: 
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SAA interfaces Many 
to external additional 
function libraries functions 


OPTIONS 
instruction 
operands 


SAA API Regina 


Supports 
several I/O 
models 


Stack 
facilities 


Figure 20-2 


The extended Regina features include interpreter options, additional functions, and features for compati- 
bility with other Rexx interpreters and platforms. These additions beyond the Rexx standards offer great 
power and are a strong advantage to Regina. But always carefully consider whether you wish to code 
beyond the Rexx standards. Coding within the standards ensures the highest degree of code portability. 
It ensures that others who know Rexx will be able to work with your code. Coding outside the standard 
subjects your scripts to a greater risk of desupport. Standard Rexx will enjoy use and support forever, 
whereas the extensions of any specific interpreter will always be subject to greater risk. We generally rec- 
ommend always coding with the Rexx standards. Including this extended material in this and subse- 
quent chapters on Rexx interpreter extensions is not meant to promote the use of these extensions. It is, 
rather, intended to provide introduction and reference to the extensions for those who may need them 
and understand both their benefits and their drawbacks. 


There are very good reasons for Rexx interpreter extensions. They offer platform-specific features and 
power that can be very useful for scripts that will run in specific environments. They also support cross- 
platform portability in ways not possible otherwise. As one example, porting mainframe scripts to other 
platforms may be easier when the interpreter on the target platform supports mainframe Rexx exten- 
sions. As another example, programmers familiar with the I/O model of other programming languages 
may prefer the C-like I/O offered in many Rexx extensions to the standard Rexx I/O model. 


The bottom line is this: use nonstandard Rexx extensions if you need them for some reason, and you 
have considered any potential downsides and have judged them acceptable. With this said, let’s enumer- 
ate and discuss Regina’s extended features. 


Interpreter options 


Recall that the options instruction allows you to issue commands to the Rexx interpreter. These options 
dynamically alter the interpreter’s behavior. What options are available depend strictly on the Rexx inter- 
preter. Regina’s options instruction includes about two dozen parameters that scripts set to alter or direct 
the interpreter’s behavior. These key ones dictate compatibility with various platforms and standards: 
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Option Result 

CMS Enables the set of extensions expected in the VM/CMS mainframe environment 

UNIX Enables Unix command interface functions. This increases performance over 
using the command interface to issue shell commands 

VMS A set of interface functions to the VMS operating system. This makes it possible 
to script the same kinds of actions in Regina Rexx on VMS as one writes in 
VMS’s DCL language 

BUFFERS Makes all VM-based buffer functions available to manipulate the stack 

AREXX_BIFS Makes all ARexx built-in functions available 

REGINA Language level 5.00 plus Regina extensions are available 

ANSI Conform to language level 5.00 

SAA Conform to SAA standards 

TRL2 Conform to TRL-2 standards 

TRL1 Conform to TRL-1 standards 


Regina includes other options beyond those listed. We do not mention them here because most direct the 
interpreter in very specific ways or towards implementing very specific features. Often these control the 
internal behaviors of the interpreter. The options listed in the table manipulate the more specific options 
as groups of behaviors in order to gain compatibility with specific environments or standards. If you 
need to investigate the low-level options, the Regina documentation spells them out in detail. 


Functions 


As an ANSI-1996 compliant Rexx, Regina has all standard Rexx instructions and functions. Appendices 
B and C list these language elements in reference format with a coding level of detail. In addition, 
Regina offers functions that go beyond the standards. Regina’s extra functions naturally group into sev- 
eral categories: 


SAA interface to external function libraries 


Q Bit manipulation 

Q String manipulation 
Q Environmental 

Qo Input/output 

Q 

Q 


Stack manipulation 


These functions originated from a number of platforms and other Rexx interpreters. The following table 
lists Regina’s extended functions and shows from which version of Rexx each is derived: 
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Origin Functions 


AREXX b2c, bitchg, bitclr, bitcomp, bitset, bitttst, c2b, close, compress, eof, exists, 
export, freespace, getspace, hash, import, open, randu, readch, readIn, seek, 
show, storage, trim, upper, writech, writeln 


SAA standard rxfuncadd, rxfuncdrop, rxfuncerrmsg, rxfuncquery 

Regina cd, chdir, crypt, fork, getenv, getpid, gettid, popen, uname, unixerror, userid 
VM (aka CMS) buftype, desbuf, dropbuf, find, index, justify, makebuf, sleep, state 

OS/2 Rexx beep, directory, rxqueue 


Appendix D alphabetically lists all Regina-specific functions with detail suitable for reference and cod- 
ing. It includes coding examples of the use of each function. 


In the next several sections, you'll learn about each group of functions. The goal here is simply to famil- 
iarize you with the names of the functions and what they do. For a complete alphabetical list of func- 
tions with full coding details, see Appendix D. 


Bit manipulation 


Bit manipulation refers to the ability to inspect and alter individual bits. Usually, the bits are manipu- 
lated in groups of 8 (one character or byte) or 4 (one hexadecimal character). Chapter 6 on strings briefly 
considered why bit string manipulation can be useful, while Chapter 7 offered a sample script that per- 
formed key folding based on bit strings. 


Standard Rexx offers a set of bit manipulation functions that include bitand, bitor, and bitxor. These 
are backed up by bit conversion functions like b2x and x2b. Regina extends this power by adding another 
group of bit functions, all derived from Amiga Rexx, a Rexx interpreter that was the bundled standard with 
the Amiga personal computers. These functions are very useful when intense bit-twiddling is called for. 


To access all of these functions, you must enable the options instruction string AREXX_BIFS, like this: 
options arexx_bifs 


Here are the extra functions available: 


Bit Manipulation Function Use 


b2c Returns a character string for a binary string input 

bitchg Toggles a given bit in the input string 

bitclr Sets a specified bit in the input string to 0 

bitcomp Compares two strings bit by bit, returns -1 if identical or the 


bit position of the first bit by which the strings differ 


336 


Bit Manipulation Function Use 


bitset 
bittst 


c2b 


String Manipulation 


Sets the specified bit to 1 


Regina 


Returns the state of a specified bit in the string (either it is 1 or 0) 


Converts the character string into a bit string 


String manipulation is even more vital than bit manipulation, as amply pointed out in Chapter 6. Regina 
offers a grab-bag of extra string functions. A few, like find, index, and justify, have mainframe ori- 

gins. These all have more standard equivalents, yet their inclusion is useful for mainframe compatibility 
or for rehosting mainframe scripts. 


Others of the string functions are just very useful and one wishes they were part of standard Rexx. hash 
returns the hash attribute of a character string, while crypt returns the encrypted form of a string. 


This table lists the extended Regina string manipulation functions. Where a function has a direct stan- 
dard Rexx equivalent, we have cited that equivalent. One should always code the standard Rexx func- 


tion if feasible: 


String Function 


compress 


crypt 
find 
hash 
index 
justify 


lower 


trim 


upper 


Use 


Compresses a string by removing 
any spaces, or by removing any 
characters not in a given list 


Takes a string and returns it 
encrypted 


Finds the first occurrence of a 
word in a string 


Returns the hash attribute of 
a string 


Returns the position of the needle 
string in the haystack string 


Spaces a string to both right- and 
left-justify it 


Translates the string to lowercase 


Removes trailing blanks from 
a string 


Translates string to uppercase 


Standard Alternative Function 


wordpos 


pos 


right orleft or space 


strip 


translate 
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Environmental functions 


The environmental functions offer a plethora of operating system services and also retrieve information 
about the environment. Some of these functions are inspired by the PC platform, such as beep, cd or 
chdir, import, export, rxqueue and storage. Others obviously come from Unix, such as fork, 
getenv, getpid, gettid, popen, uname, unixerror, and userid. In all cases, the goal is the same: to 
provide operating system services to Rexx scripts. 


Here are the environmental functions Regina adds to standard Rexx: 


Environmental Function Use 


beep Sounds the alarm or a “beep” 

cd and chdir Changes current process’s directory to the specified directory 
directory Returns the current directory, or sets it to the given directory 
export Copies data into a specific memory address 

fork Spawns a child process 

freespace Returns a block of memory to the interpreter; inverse of getspace 
getenv Returns the value of the input Unix environmental variable 
getpid Returns the scripts process ID, or PID 

getspace Gets or allocates a block of memory from the interpreter 
gettid Returns the thread ID, or TID of the script 

import Reads memory locations 

popen Execute a command and capture its results to an array; 


superceded by the address with instruction 


randu Returns a pseudo-random number between 0 and 1 

rxqueue Controls Regina’s queue function; creates, deletes, sets, or gets 
queues 

show Shows items in Amiga or AROS resource lists 

sleep Script sleeps for the designated number of seconds 

state Returns 0 if the steam exists, 1 otherwise 

storage With no arguments tells how much memory a system has, or it 


can return contents or even update (overwrite) system memory 


uname Returns platform information, including OS name, machine name, 
nodename, OS release, OS version, and machine’s hardware type 


unixerror Returns the textual error message that corresponds to a Unix 
operating system error number 


userid Returns name of the current user 


338 


Regina 


Input/output 


Regina Rexx supports several I/O models. First, there is standard Rexx steam I/O, embodied in such 
built-in functions as chars, charin, charout, lines, linein, and lineout. This model is simple, stan- 
dardized, compatible and portable. 


Since some Rexx interpreters are actually implemented as C-language programs, they have added C-like 
I/O. The “C-language I/O model” provides a little better control of files because they can be explicitly 
opened, closed, positioned, and buffer-flushed. The mode a file is opened in (read, write, or append) can 
be specified. Direct access and explicit control of the read and write file positions is provided through 
the seek function. 


AREXX on the Amiga and the portable, free BRexx interpreter (see chapter 22) are known for supporting 
the C-language I/O model. Regina does too. Regina offers it as a more powerful but less standard alter- 
native to regular Rexx I/O. Here are these additional built-in, C-like I/O functions: 


1/O Function Use 

close Closes a file 

eof Tests for end of file; returns 1 on eof, 0 otherwise 

exists Tests whether a file exists 

open Opens a file for appending, reading, or writing 

readch Reads the specified number of characters from the file 

readin Reads one line from the file 

seek Moves the file pointer to an offset position, and returns its new posi- 
tion relative to the start of the file 

writech Writes the string to the file 

writeln Writes the string to the file as a line 


Regina’s stream function supports all the ANSI-mandated information options, as discussed in Chapter 
5 on input/output. The ANSI-1996 standard also permits implementation-specific commands to be exe- 
cuted through the stream function. In Regina these commands include the full range of options to con- 
trol file modes, positioning, flushing, opening, closing, status, and other operations. 


In addition to standard stream I/O and C-like I/O, Regina can take advantage of several external pack- 
ages for sophisticated data storage needs. For example, the Rexx/SQL package supports connections to a 
wide variety of databases including Oracle, DB2, SOL Server, MySQL, PostreSQL, and others. Chapter 
15 illustrates Regina with the Rexx/SQL interface to relational databases. Another example is the open- 
source Rexx/ISAM package, which supports an indexed access method (ISAM). 


Access to function libraries 


Many free and open-source interface packages come in the form of external function libraries. Examples 
include the products discussed in Chapters 15 through 18, such as Rexx/Tk, Rexx/DW, Rexx/gd, 
RexxXML, and others. Many of the Rexx tools and interfaces listed in Appendix H also come in the form 
of external function libraries. 
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Let’s discuss how Rexx interpreters access these libraries of external functions. Regina makes a good 
example of how to do this because it uses the Systems Application Architecture, or SAA, standards for 
this purpose. Several other Rexx interpreters use the SAA standards as their interface mechanism, too. 


Rexx external function libraries come in the form of shared libraries for Unix, Linux, and BSD operating 
systems. For Windows systems they are Dynamic Link Libraries (DLLs). 


Let’s discuss Unix-derived operating systems such as Linux, Unix, and BSD first. For Unix-derived oper- 
ating systems, external function libraries typically have names in one of these forms: 


Library Name Pattern System 

lib _.so All Linuxes and most Unix-derived operating systems other 
than those specified below 

lib .sl HP/UP 

lib .a AIX 

lib _.dylib macOS 


The underscores are replaced by the name of the library. For example, under Linux for a library called 
funpack, it would be in the file 1ibfunpack. so. Be sure to read the documentation for any product 
you download, as library names can vary. 


You configure your system for access to the external function libraries by setting an environmental vari- 
able. This specifies the directory that contains the function library to use. Here is the name of this envi- 
ronmental variable for several popular Unix-derived operating systems: 


Environmental Variable that Points to Shared Library Files System 


LD_LIBRARY_PATH All Linuxes and 
most Unix-derived 
operating systems 
other than those 
specified below 


LIBPATH AIX 
SHLIB_PATH HP/UX 
DYLD_LIBRARY_PATH macOS 
LD_LIBRARYN32_ PATH SGI 


The “install notes” for Regina and the external library products typically list the names of this environ- 
mental variable for all Unix-derived operating systems, as needed. Be sure to consult the documentation 
that downloads with the product for any changes or product-specific information. 
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The meaning of all this is, if you get a “not found” error of some sort when first setting up Rexx under 
Unix, Linux, or BSD, or when first trying to access an external function library, make sure that the proper 
environmental variable is set correctly. 


On Windows operating systems, the DLLs are the equivalent of Linux/Unix/BSD shared libraries. 
Windows DLLs reside in folders specified in the PATH environmental variable. The system shared DLL 
folder is typically either C: \Windows\System or C: \Windows\System32, depending on the version of 
Windows. The external function library DLL can alternatively reside in any other folder, as long as you 
make the folder known to Windows through the PATH specification. 


You install the Windows DLL or Linux/Unix/BSD library file and point to it with the proper environ- 
mental variable by interacting with the operating system. Then, from within Regina scripts, you use the 
SAA-defined standard functions to give scripts access to these shared libraries or DLLs containing exter- 
nal functions. The built-in functions to use are: 


SAA Function Use 

rxfuncadd Registers an external function for use in the current script 
rxfuncdrop Removes the external function from use 

rxfuncquery Returns 0 if the external function was already registered (via 


rxfuncadd) or 1 otherwise 


rxfuncerrmsg Returns the error message that resulted from the last call to rxfuncadd 
This function is a Regina-only extension. 


Here’s an example that uses these functions to register external functions for use by a script. In this 
example, the script sets up access to the external Rexx/SQL function library. The first line below uses the 
RxFuncAdd function to load (or “register”) the external function named SQLLoadFuncs. The next state- 
ment then executes the SQLLoadFuncs function, which loads the rest of the Rexx/SQL external function 
library. 


if RxFuncAdd('SQLLoadFuncs', 'rexxsql', 'SQLLoadFuncs') <> 0 then 
Sek Vicseeiavcteyels| ieeLikecl, ines | sae! 


if SQLLoadFuncs() <> 0 then 
say 'sqlloadfuncs failed, re: ' re 


The name of the external library is encoded in the second parameter of RxFuncAdd. In this case it is 
rexxsql. rexxsql is the root of the filename of the file containing the external functions. For example, 
under Windows, the full filename is rexxsql .d11. Under Linux it would be librexxsql.so. 
SqlLoadFuncs is the name by which this script will refer to that external library file. 


The preceding code loads the Rexx/SQL external function library for use, but the same pattern of 
instructions can be used to load a wide variety of other external libraries for use by scripts. For example, 
Chapter 16 described how this code applied to Rexx/Tk, Rexx/DW, Rexx/gd, and other interfaces. Here 
is how the sample Rexx/Tk script in Chapter 16 coded access to the external Rexx/Tk function library. 
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Stylistically, the code varies a little from the preceding example, but the same pattern of two functions is 
coded in order to access and load the external function library: 


call RxFuncAdd 'TkLoadFuncs', 'rexxtk', 'TkLoadFuncs' 
if TkLoadFuncs() <> 0 then say 'ERROR- Cannot load Rexx/Tk library!' 


To summarize, we've discussed how to set up an external function library for use from within Regina 
scripts. Then, we’ve seen the SAA functions you encode from within the Regina scripts to set up their 
access to the external function library. Other SAA-conformant Rexx interpreters access external packages 
in this same manner. 


The stack 


Regina supports all ANSI-1996 keywords on the address instruction for performing input/output to 
and from commands via streams and arrays. These keywords include input, output, and error for 
specifying redirection sources and targets, and stream and stem, to define whether the I/O goes toa 
file or array. 


Regina also permits the use of the stack for command I/O. In this it follows the lead of mainframe Rexx 
and many other implementations. 


The script in the section entitled “Using the Stack for Command I/O” in Chapter 11 showed how to send 
lines to a command through the stack and retrieve lines from the stack using Regina. In addition, these 
Regina built-in functions can be used to create or destroy new stack buffers: 


Stack Function Use 

makebuf Create a new stack buffer 

dropbuf Removes buffer(s) from the stack 

desbuf Destroys all stack buffers 

buftype Displays all stack buffers (usually used for debugging) 


To use these function, a script would normally begin by creating its own stack area through the makebuf 
function. This function could be called repeatedly if there were a need for more than one stack buffer. 
The script would invoke the dropbuf function to release any buffer after it is no longer needed. Or if 
stack processing is complete, the desbuf function will destroy all extant stack buffers. The buftype 
function is used mainly for debugging if problems occur. It displays the contents of all the stack buffers 
extant at the time it is called. 


As mentioned in Chapter 11, Regina permits an innovative use of the stack, through its “external queue 
capability.” The stack can function as an interprocess communication facility between different processes 
on the same machine, or between different processes on different machines. The facility even supports 
communication between processes across the Internet. This goes well beyond the role of the stack as an 
external communications data queue as supported by many other Rexx interpreters. 


To use Regina’s extended external queue capabilities, install and start its stack service. Check out the 


rxstack and rxqueue executables. Use the rxqueue extended function to manage and control the stack 
from within Regina scripts. 
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Regina’s SAA API 


Regina fully meets the SAA application programming interface, or API definition. It is implemented as a 
library of routines that can be invoked from an external program. This library module could be either 
statically or dynamically loaded. What this means is that you could develop code in some other lan- 
guage, say C or C++, then link into Regina and use Rexx as a library of functions and subroutines. 


Regina’s documentation provides a full explanation of how to do this. It tells programmers what they 
need to know to use the Regina API. Of course, because it is written for programmers, the guide is tech- 
nical. It uses C-language syntax to explain the interface. 


Sample Scripts 


Subsequent chapters on other Rexx interpreters include sample scripts that demonstrate the specific 
features of those interpreters and were run using them. We felt it was not necessary to include Regina- 
specific scripts in this chapter for two reasons: 


Q The sample scripts in all chapters to this point were run and tested with Regina 


Q ~=Subsequent chapters that demonstrate interpreter-specific features are often coded in a similar 
manner to how those features would be coded using Regina. Regina’s supercompatibility means 
that many of the special features and functions in those scripts are included and available from 
within Regina 


Subsequent chapters give many examples of how extended functions can be used in Rexx scripts. 
Appendix D provides a complete coding-level reference to all of Regina’s extended functions. 


Summary 


This chapter summarizes the features of Regina that go beyond the Rexx language standards. Regina 
provides functions that duplicate most of the extensions found in other Rexx implementations. Specific 
features we described in this chapter include Regina’s extra operands for the options instruction, its 
additional functions, how one accesses external function packages using Regina, and the SAA API and 
its role with the Regina interpreter. Regina’s extra functions are extensive, covering bit manipulation, 
string manipulation, environmental information and control, and input/output. We also described 
Regina’s external queue facility, or stack, and how it can be used as a generalized communications vehi- 
cle between processes regardless of their location. 


When considering whether to use the extended features of Regina (or those of any other Rexx inter- 
preter), one must be fully cognizant of both the benefits and the drawbacks of this decision. Power and 
flexibility are the advantages, but the loss of standardization can be the downside. Each project or orga- 
nization has its own goals. These must be measured against the benefits and costs of using the extended 
features. 
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Regina is one of the world’s premier Rexx interpreters. It is the most popular open-source Rexx. It runs 
on almost any platform. More developers use Regina than any other free Rexx interpreter, with the 
result that more tools are tested with it and its support community is larger. 


The next several chapters take a look at other Rexx intepreters. Those chapters spell out the strengths 
and applications of the other interpreters. Some of the interpreters specialize in certain operating sys- 
tems or platforms, while others extend Rexx in entirely new directions. Examples of the latter include 
roo! and Open Object Rexx, which support object-oriented scripting, and NetRexx, which brings Rexx 
into the world of Java and the Java Virtual Machine. Stay tuned... . 


Test Your Understanding 


1. What are Regina’s major advantages? What platforms can it run on? Can it run on any version 
of Windows, Linux, Unix, BSD, and macOS? 


2. What are the uses of the stack in Regina? Can you use it to send input to and receive output 
from operating system commands? Can you send input to and receive output from OS com- 
mands using ANSI-standard keywords? 


3. What functions are available in Regina’s C-like I/O model? Which do you use to read and write 
strings with linefeeds, as opposed to those that read and write strings without line terminators? 
How do you: 


O)_ Explicitly close a file 
C1 ‘Test for end of file 


Ol Move a file pointer to a specific position 


4. What is the SAA API? Of what value to programmers is it that Regina fulfills the SAA API? 
What SAA-based functions do you use to register an external function for use? How do termi- 
nate use of an external function? 


5. What compatibility parameters can you set on the options instruction? 
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Overview 


Rexx/imc is a standard Rexx for BSD, Unix, and Linux platforms. Written by Ian Collier of 
England, some of the systems it is used on include all BSD distributions, all Linux distributions, 
Oracle Solaris, AIX, HP/UX, Digital Unix, and IRIX. 


Rexx/imc is at language level 4.00 and meets the TRL-2 standard. This chapter covers product 
installation and the extended Rexx/imc features that go beyond the Rexx standards. These fea- 
tures give you power beyond the confines of standard Rexx but are, of course, less portable across 
interpreters and platforms. 


This chapter lists and discusses the strengths of Rexx/imc. Then it details how to install the prod- 
uct using popular package managers, and also from source code. 


After this we describe the extended features of the product. These include functions for retrieving 
environmental information, higher mathematics, SAA-based access to external function libraries, 
and C-language-style file I/O. We illustrate the special features of Rexx/imc within the contexts of 
two sample scripts. The first demonstrates some of the product’s functions for retrieving 
environmental information, while the second shows how to use its C-like I/O functions. Let’s start 
by reviewing Rexx/imc features. 


Advantages 


As we’ve mentioned, each chapter that covers a particular Rexx interpreter begins by listing and 
discussing the unique aspects of that interpreter. Here are some key points about Rexx/imce: 


C1 Meets standards — Rexx/imc is at language level 4.00 and meets the TRL-2 standard. 


C1 Unix-oriented extras — Rexx/imc offers a number of Unix-oriented features beyond 
the standard. These include C-like I/O functions and Unix-specific environmental- 
information functions. 
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C) Additional functions — Rexx/imc includes a set of a dozen mathematical functions and the 
SAA- based functions to load and manage external functions. 


C1 Clear documentation — Rexx/imc includes clear, complete documentation. It comes with a nice 
Rexx tutorial for beginning programmers. It includes a useful reference summary as well as a 
complete reference manual. 


C) Reliable, well proven — The interpreter has been used for two decades and is well proven. It 
has a long track record and is well known and respected in the Rexx community. 


Installing Rexx/imc 


Rexx/imc can be freely downloaded from several sites. These include Pkgs.org at 
https://pkgs.org/download/rexx-imc, the Rexx information website at RexxInfo.org, and 
Ian Collier’s website https: //www.cs.ox.ac.uk/people/ian.collier/Rexx/rexximc.html. 
Since Web addresses sometimes change, just search for the keyword Rexx/imc or Rexx-imc on 
Google if you need to. 


Rexx/imc is distributed in several formats, including RPM Package Manager (. rpm) files, and BSD 
packages (. pkg). 


If your system has a Package Manager to install such files, merely double-click on them to install 
Rexx/imce. 


After the install, be sure to read any installation notes, such as may be contained in README or 
INSTALL files. For example, you may need to set your PATH variable to include the directory of the 
Rexx/imc executable. And you may also need to set your load library environmental variable to give 
Rexx/imce access to its shared library file. The notes will give you any commands you need to 
accomplish this. 


Installing From Source Code 


If you downloaded a .tgz or .tar.gz file, you'll be building Rexx/imc from its source code. 


First, double-click on the download file to decompress it. If it creates a . tar file, double-click again to 
decompress the . tar file. You'll know you're done decompressing when you see a long list of 
decompressed files fly by. 


Navigate to the directory into which you decompressed the source code, and look for any README or 
INSTALL files. Read those instructions, as they may contain operating system specific information 


you'll need for a successful install. 


Then, open a terminal, switch to using the root user id, and navigate to the directory into which you 
decompressed the source code download. Issue these commands as root: 
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./configure 
make 
make install 


These commands configure and install the product. Since they compile source code, they require a C 
compiler to run. Almost all Linux, Unix, and BSD machines will have a C compiler present. If your 
system does not have one installed, download a free compiler from any of several sites including 
www.gnu.org. For macOS, go to the Apple Store and download Xcode. 


As in the package install, you should read any README files or install notes. They will likely tell you 
to set two environmental variables. The PATH should be set to include the Rexx/imc executable. And the 
library path variable should be set to include a pointer to Rexx/imc's shared library file. 


This chart lists where Rexx/imc components typically reside. These vary by distribution, but most 
often the directories are as follows: 


Directory Contains 
/usr/bin Location of Rexx/imc interpreter 
/usr/lib Shared library location 
/usr/man/man1 Location of the help files and documentation 
/usr/share/doc Documentation, tools, services, libraries, and so on 
/usr/share/doc/rexx-ime.__.__ Documentation for Rexx/imc including installation info 


Based on this table, you would expect to ensure that your PATH variable contains /usr/bin, and 
that your shareable load library environmental variable includes /usr/1ib. 


A good way to verify that the package installed correctly is to run the rexxcps benchmarking 
program. Or create and run your own test script. Start your favorite editor and enter this 
three-line test program: 


#!/usr/bin/rexx 
/* a simple Rexx test program for Rexx/imc */ 
say 'hello' 
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The first line should refer to the fully qualified directory name where the Rexx/imc executable is 
installed. Save this code under the filename testme. rexx, then change the permission bits on that file 
such that it is executable: 

chmod +x testme.rexx 


Now you can execute the script: 


rexx ./testme.rexx or ./testme.rexx 


If you add the current directory to your PATH environmental variable, you can exclude the leading two 
characters ./ and just run the script by entering its name: 


testme.rexx 


Features 


Rexx/imc fully conforms to the language level 4.00 standard defined by TRL-2. Beyond this, it includes 
additional functions, instructions, and features specifically oriented towards the Unix, Linux, and BSD 
environments. 


Rexx/imc extends standard Rexx by adding a number of extra built-in functions. Figure 21-1 pictorially 
represents the categorization of these extra functions. 


Let’s enumerate and discuss the extended functions with their coding formats so that you can see what 
they offer. First, the Rexx/imc Unix-specific functions provide scripts information about their environ- 
ment. All provide features Unix- and Linux- based programmers expect: 


Environmental Function Use 
chdir(directory) Change the current directory to a new directory 
getcwd() Returns the current working directory 
getenv(name) Get the value of the specified environmental variable 
putenv(string) Set the value of an environmental variable 
system(s) Return the output of a shell command 
userid() Get the process owner's login name 
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The Rexx/imc mathematical functions support transcendental mathematics. These functions are very 
similar to those you'll find in other extended Rexx interpreters, for example, BRexx, and Reginald. Recall 
that several add-on packages also include higher math functions. These include the Internet /REXX 
HHNS Workbench, discussed in Chapter 17, and several of the packages listed in Appendix H. Here are 
the Rexx/imce higher math functions: 


Mathematical Function Use 

acos (n) Arc-cosine 

asin (n) Arc-sine 

atan(n) Arc-tangent 

cos (n) Cosine of n radians 
exp (n) The exponential of n 
1n(n) The natural log of n 
sin(n) Sine 

sqrt (n) Square root 

tan (n) Tangent 


topower (x,y) 


Raise x to power y 


Rexx/imc supports the three IBM Systems Application Architecture (SAA) functions for loading the 
using external functions. These are the same functions included in other Rexx interpreters, for example, 


Regina: 
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SAA Interface Function Use 

rxfuncadd (rexxname, module, sysname) Load (register) an external function 
xxfuncdrop (function) Drop an external function 
rxfuncquery (function) Query whether a function is loaded 


Code these functions in the same manner shown in the examples in Chapters 15 through 18 in order to 
access external functions from Rexx/imc. The standard SAA calling interface makes a wide variety of 
open-source interfaces available for use with Rexx/imc. 


Rexx/imce offers a few additional miscellaneous functions. These support mainframe Rexx-style text jus- 
tification and conversions between binary and decimal: 


Miscellaneous Function Use 


justify(s,n [,pad]) This function justifies text to a given width. (It is 
similar to the mainframe VM/CMS Rexx jus- 
tify function). 


b2d (binary) Convert binary to decimal 


d2b (decimal) Convert decimal to binary 


In addition to its extra built-in functions, Rexx/imc enhances several instructions with additional conve- 
nience features: 


sayn instruction writes a line without a carriage return (i.e., no linefeed or newline) 
select expression instruction implements the Case construct, depending on a variable’s value 
parse value instruction parses multiple strings (separated by commas) in one instruction 


procedure hide instruction explicitly hides global variables from an internal routine 


Oooo do 


Arrays may be referenced by calculations. For example, you can code stem. (i+1), whereas in 
standard REXX you must write j=i+1 followed by stem. j. 


Rexx/ime accepts any nonzero number for TRUE (not just 1). This means you can code C-style operator- 
less condition tests, where a function that returns any nonzero value evaluates to TRUE: 


if my_function() then 
say 'The function returned TRUE (any nonzero value) ' 


Recall that under standard Rexx, a condition must evaluate to either 1 (TRUE) or 0 (FALSE). In standard 
Rexx, a nonzero value other than 1 is not acceptable and causes a runtime error. 


Finally, Rexx/imce includes a stack that is used in traditional Rexx fashion. It can be used to communi- 
cate data between Rexx programs and between routines within a program. It supports all the stack 
manipulation instructions (queue, push, pull, and parse pull), and the queued function to retrieve 
the number of items on the stack. 
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The C-language I/O Model 


Like other open-source Rexx interpreters, Rexx/imc offers several functions beyond the Rexx standard to 
implement C-language style input/output. In the C I/O model, you explicitly open a file for use by the 
open function. The mode in which the file is opened determines whether it is used for reading, writing, or 
appending (adding data on to the end of a file). After use, explicitly close the file by the close function. 


Here are the additional Rexx/imc functions for C-language I/O. We have included their coding formats 
so that you can see what parameters each function requires: 


1/O Function Use 

open(file [, [mode] [stream] ]) Explicitly opens a file in the specified mode 

close (stream) Closes a stream 

fileno(stream) Returns the file descriptor (or fd) number of 
a stream 

ftell (stream) Returns the current file pointer 

fdopen(fd [, [mode] [,stream]]) Open a £4 number. Used for accessing files 
which have already been opened by another 
program. 

popen(command [, [mode] [,stream]]) Opens a pipe to a shell command 

pclose (stream) Closes a pipe (opened by the popen 
function) 

stream(stream [, [option] , [command]]) Directly control file or stream operations 


through some 15-plus commands. Among 
them are flush, advanced open modes, and 
query for information. 


The CI/O model offers greater control of file input/output, at the cost of less standardized code. 
Explicit control could be useful, for example, to close and reopen a file within a script, or when a script 
opens so many files it needs to close some to reclaim memory. Of course, Rexx/imc supports standard 
Rexx I/O as well. 


Rexx/imc allows you to open a pipe to a shell command through the popen function and to close the 
pipe by the pclose function. The pipe is an in-memory mechanism for communication between the 
Rexx script and the shell command. Along with the system function this offers another mechanism for 
communication with operating system commands. 


Interfaces and Tools 


Since Rexx/imc is a standard Rexx interpreter that uses the SAA-standard functions for access to exter- 
nal function libraries, it interfaces to many packages and tools. One of the best known is The Hessling 
Editor (or THE), a Rexx-aware text editor that uses Rexx as its macro language. Another is Rexx/Curses, 
a library for screen I/O that gives applications a portable text-based user interface. 
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Other packages include Rexx/Tk, the cross-platform GUI toolkit, and RegUtil, an external function 
library. More information on these interfaces and tools is available at the Rexx/imc download 
webpages. Appendix H lists many additional free and open-source packages, tools, and interfaces. 


A Sample Program — Environmental Information 


The sample programs in this chapter were run under Linux (Red Hat). The first program illustrates sev- 
eral of Rexx/imc’s environmental functions that extend beyond the Rexx standards. These include 
getcwd, chdir, getenv, system, and userid. The program also shows the results of the parse 
source and parse version instructions for Rexx/imc running under Linux. 


Here is the output of the script named Environment: 


root /rexximc]$ ./environment.rexx 


The initial directory is: /rexximc 

The current directory is: / 

The current directory is: /rexximc 

The value of environmental variable USERNAME is: root 
Uname is: Linux 

Wisierakelaels aGOOis 


Default command environment is: UNIX 
System: UNIX Invocation: COMMAND Filenam /vrexximc/environment.rexx 
Lang: REXX/imc-beta-1.75 Level: 4.00 Date: 25 Feb 2002 


The full code of the program is shown here: 


#!/usr/bin/rexx 


[KK KK Rk RR A A A A A A A A A A A A A A A A A A A A A A A A a / 


/* ENVIRONMENT 
ee 


“adh 
Sh 


/* This script uses some of Rexx/imc's unique environmental functions*/ 


/* It also shows results of PARSE 


SOURCE 


and PARSE VERSION. 


Bill 


[KK KK KR RR A A A A A A A A A A A A A A A A A A A A A A A A A a / 


/* change current directory to '/', display it, and change it back pp 
current dir = getcwd() /* save current dir. wy} 
say ‘The initial directory is:" current dir /* show current dir. yf 
we = ClnGaie(7/ 7) /* change directory ee 
say 'The current directory is:' getcwd() ee Chisjllay @wuezeme whit, “/ 
re = chdir(current dir) /* change directory back */ 
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say 'The current directory is:' getcwd() ie Chisjolleny (etwiereteraye elite, 1 / 


/* display the value of environmental variable USERNAME ey 


say 'The value of environmental variable USERNAME is:' getenv('USERNAME' ) 


/* Capture UNAME command result, display it, display owner's login 2c); 


uname_result = system('uname') /* capture UNAME results */ 
sayn 'Uname is:' uname_result /* display UNAME results */ 
say 'Userid is:' userid() /* display user login ff 


/* display PARSE SOURCE, VERSION, for Rexx/imc under Red Hat Linux ap 
say 'Default command environment is:' address() 


parse source system invocation filename 
say 'System:' system ' Invocation:' invocation ' Filename:' filename 


parse version language level date month year 
say 'Lang:' language ' Level:' level ' Date:' date month year 
exit 0 


The first block of code in the script retrieves and displays the current directory with the getcwd func- 
tion, changes the current directory to the root directory with the chdir function, then changes it back to 
the original directory with chdir. The script’s output shows that the current directory was changed, and 
then altered to its original setting, through these special functions: 


current_dir = getcwd() /* save current dir. ip 
say 'The initial directory is:' current_dir /* show current dir. x] 
re = chdir('/') /* change directory *7, 
say 'The current directory is:' getcwd() /* display current dir. */ 
re = chdir(current_dir) /* change dir. back */. 
say 'The current directory is:' getcwd() /* display current dir. */ 


The script uses the getenv function to retrieve and display the value of the USERNAME environmental 
variable: 


say 'The value of environmental variable USERNAME is:' getenv('USERNAME' ) 
Rexx/imce also has a corresponding putenv function to set an environmental variable. 
The script issues the Linux uname operating system command through the Rexx/imc system function, 


and captures and displays its output. This shows how to capture command output into the script via the 
system function. The special sayn instruction writes a string without a newline or linefeed character. 
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This avoids an extra blank line in the program output, because the Linux uname command output con- 
tained a newline character: 


uname_result = system('uname') /* capture UNAME results */ 
sayn 'Uname is:' uname_result /* display UNAME results */ 


Rexx/imce alternatively allows you to code the system command and capture its feedback in this manner: 
uname_result = 'uname'() /* capture the result of the UNAME command */ 
The script retrieves and displays the user’s login id through the userid function: 
say 'Userid is:' userid() /* display user login */ 
Finally, the script displays the default command environment by the address function, and issues the 
parse source and parse version instructions to display their results. The last three lines of the out- 


put disclose how Rexx/imc, and indeed, all standard Rexx interpreters, report on their environment and 
the language version. 


A Sample Program —1/O 


This sample program demonstrates the C-language-like input/output functions of Rexx/ime. The pro- 
gram accepts input and output filenames as command-line arguments, then simply copies the input file 
to the new file specified by the output filename. While copying, the script displays the read and write 
file pointer positions after each I/O operation. 


Here is the input file of test data: 
felawbfet SLG} ALstiaye) IL 
this is line 2 
this is the last line 


The program copies this file as is to the output and displays these lines on the screen while doing so: 


[root /rexximc]$ ./fcopy.rexx fcopy_in.txt fcopy_out.txt 
Input file position after read # 1: 16 


Output file position after write # 1: 16 
Input file position after read # 2: 31 
Output file position after write # 2: 31 
Input file position after read # 3: 54 
Output file position after write # 3: 54 


The output shows both the read and write file pointer positions after each I/O operation. Pointer posi- 
tions include the line termination characters that occur at the end of lines. (Sometimes these are referred 
to as the newline character or as linefeeds or LF.) Remember that file positions always point to the next 
character position to read or write. Here is the script: 


#!/usr/bin/rexx 


[RRRRRRKREREKKEREKKEEKEKRREEKEKEKERKEKEKEKEKA KKK KAERKKEEKKKEEKKKKERKEKEKE K / 


je TCORN: */ 


354 


Rexx/imc 


if a 
/* Uses Rexx/imc I/O functions to copy a file. wy 
/* Reports file positions by the FTELL function. we 
[RRR RRKEREEREREKEREE EERE ERKKREREKERERE KEK EREEAEERE KERR EKKKAEREKKKEEK KEKE KE / 
parse arg source target /* get filenames, retain lower-case Hi 
/* open input & output files, establish STREAM names */. 
iG itial «== Oyoreial (Showers, Vie" , Talia" )) /* open input file ae 
rce_out = open(target,'w','out') /* open output file ee 
Sif ea eae ay | rce_out <> 0 then /* check for errors on open a 


say 'File OPEN Error!' 
/* perform the file copy, display file pointers as copying occurs eis 


do j=1 while lines('in') > 0 
line = linein('in') 


say ‘Input file position after read #' j || ': ' ftell('in') 

call lineout 'out',line 

say ‘Output file position after write #' j || ': ' ftell('out') 
end 
/* close the files and exit oe/: 
FOliie Sueloset tii) /* close input file pe 
ie _ CME S Close (“emis" )) /* close output file b/ 
if rc_in <> 0 | rc_out <> 0 then /* check for errors on close */ 


say 'File CLOSE Error!' 


exit 0 


The script accepts two command-line input parameters. They specify the names of the input and output 
files. These lines open the two files for use. 


rc_in = open(source,'r','in') /* open input file wf 
rc_out = open(target,'w','out') /* open output file ad 


The second parameter on the open function is the mode in which the file will be processed. The options are: 


OPEN Parameter Processing Mode 
x Read. 
w Write. If the file already exists, its contents are overwritten. If the file 


does not exist, it is created. 


a Append. If the file already exists, add new lines to the end of the file. 
If the file does not exist, create it. 


The third parameter on open is optional. If specified, it supplies the name by which the stream can be 
referred to in subsequent file-oriented functions (such as linein, lineout, and close). This parameter 
works whether quoted as in the example, or just supplied as an unquoted symbol. Either 'in' or in will 
work. Consider this a file handle, or reference name, for the file. 
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The do-while loop copies the lines from the input file to the output file. These lines in the loop show 
the use of the fte11 function to retrieve and print the current read and write file pointers: 


say 'Input file position after read #' j || ': ' ftell('in') 
say ‘Output file position after write #' j || ': ' ftell('out') 


ftell is useful to programs that explicitly manipulate the file pointers. It gives them a way to verify the 
current file positions. This could be useful, for example, for scripts that perform direct or random file I/O. 
It’s also useful in scripts that read data from the same file more than once or in programs that update 
data within a file. The standard charout and lineout functions can also explicitly position a file 
pointer. The stream function allows you to open a file in advanced modes for special processing. 


Finally, these lines close the two input files: 


rec_in = close('in"') /* close input file A 
rc_out = close('out') /* close output file */ 
if rc_in <> 0 | rc_out <> 0 then /* check for errors on close */ 


say 'File CLOSE Error!' 


The script checks the return codes from the close operations just as it did from the open functions. 
This small step goes a great way to increasing program reliability. We have not included such error 
checking in the examples of this book out of concern for program length and clarity. But in industrial 
programming, the small effort required to check I/O return codes yields big dividends in program 
reliability. 


We recommend checking return codes from all input/output operations, whether using C-like I/O or 
standard Rexx I/O functions. 


Summary 


This chapter summarizes some of the additional features offered by Rexx/imc beyond the TRL-2 stan- 

dard. Several of these features are especially useful to Unix and Linux programmers, fitting the tradi- 

tions and expectations of this programming community. Rexx/imc is a proven interpreter that runs on 
any Unix, Linux, or BSD operating system. 


The specific areas we discussed were the strengths of Rexx/imc and why you might use this interpreter. 
Then, we described the typical installation process using common package managers, and also how to 
build the product from source code. 


We described Rexx/imc functions for retrieving environmental information, higher mathematics, SAA- 
based access to external function libraries, and C-language style file I/O. Finally, we illustrated some of 
the extended features of Rexx/imc in two sample scripts. The first demonstrated how to retrieve 
environmental information, while the second showed how to perform C-like input/output. 
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Test Your Understanding 


1. 


Under what operating system families does Rexx/imc run? What are Rexx/imc’s strengths? 
What Rexx language standards does it meet? 


What extra I/O functions does Rexx/imc add beyond standard Rexx? What is this new I/O 
model and how do you use its functions? When would you use the extra C-like Rexx/ime I/O 
functions versus standard Rexx I/O? 


How does Rexx/imc enhance the select instruction beyond its usual definition? How can this 
be useful? 


How do you register or load an external function for use in a Rexx/imc script? How do you 
drop that function? How can you check to see if an external function is available from the 
script? 


What values does Rexx/imc accept as TRUE in condition comparisons? How does this differ 
from traditional Rexx? Would a script that uses the standard truth value still run under 
Rexx/imc? 
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Overview 


BRexx is a free version of classic Rexx developed by Vasilis Vlachoudis, a nuclear scientist at 
CERN laboratory in Switzerland. Written as an ANSI C-language program, BRexx is notable for 
its high performance and small size. It also provides special built-in functions and external 
function libraries that offer many extra features. 


BRexx was originally developed for DOS decades ago. Evolving ever since, it has been used on 
a very wide variety of operating systems including varieties of Linux, Unix, BSD, macOS, 
Windows, and DOS. The BRexx/370 project offers an open source alternative to IBM’s Rexx for 
mainframe operating systems. And, BRexx runs on Android as well, providing a good 
example of how Rexx spans the gamut from cell phones to mainframes. (Chapter 25 provides 
extensive coverage and programming examples of BRexx on Android.) 


BRexx's outstanding feature is its tiny footprint. The entire product, including full documentation 
and examples, totals only a few megabytes. That’s small enough to install almost anywhere. 


And BRexx runs fast, too. In tests versus other Rexx interpreters, it's always one of the fastest. 


This chapter describes the strengths of BRexx and how to download and install it. Then we'll 
discuss some of its special features that extend beyond the Rexx standards. These include extra 
built-in functions, such as those for manipulating the stack, system information and control, 
higher mathematics, C-language style input/output, and MySQL and SQLite database access. 


BRexx shines in ee several I/O paradigms, including standard Rexx I/O, C-like I/O, and 
database I/O. We'll discuss when each is best used and the BRexx functions that support each I/O 
model. 


We'll also discuss BRexx functions designed specifically for Windows CE. Windows CE is a 
legacy system: Microsoft has announced that license sales will end in 2028. So you may choose 
to skip this section unless you have a specific interest in Windows CE or Microsoft's related 
"Windows embedded" operating systems for handhelds and cell phones. 


We'll walk through several example BRexx programs that highlight its unique features. These 
programs illustrate C-like I/O, SQLite database access, array I/O, and direct data access. 
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We conclude with an example program that demonstrates BRexx's special DOS functions. While long 
obsolete as a general purpose operating system, DOS lives on in embedded programming, device control 
programming, and as a gaming platform for some 7,000 free DOS games. 


Advantages 


As in previous chapters that examine specific Rexx interpreters, we need to know what BRexx features 
distinguish it from the alternatives. In this section, we briefly list and discuss some of the advantages to 
the BRexx interpreter. These are some of the key strengths of the product: 


CL] Performance — Since it is written as a C Picea this interpreter is fast. It consistently 
beats many other Rexx interpreters in direct comparisons. 


C1 Runs Almost Anywhere -- Anywhere you can compile a standard C program, you 
can compile and run BRexx. 


C1 Small footprint — Distributed as a single compressed file, the entire installed product 
requires only a few megabytes of disk space. 


C1 Proven support — This product exhibits a consistent, dedicated history of product 
improvements, bug fixes and upgrades over many years. 


C1 Extra functions for common tasks — Bundled with the interpreter are about a dozen 
external function libraries for purposes like screen I/O, C-style file I/O, Unix and DOS 
functions and the like. 


CL) Special Windows CE features — BRexx is specially customized for Windows CE by 
the addition of some 20 extra functions and appropriate documentation. It runs 
natively under Windows CE and similar Microsoft operating systems for 
handhelds. 


C1 Commands and programs treated as functions — Scripts can run commands or programs 
coded as if they were functions as long as those routines use standard I/O. 


C1 Documentation with program examples — The product comes with HTML- based textual 
documentation and several dozen programs that illustrate its unique features. 


BRexx is especially suitable where machine resources are limited. For example, the author worked with a 
charity that collected donated personal computers, configured them, and supplied them to needy 
individuals. We needed to be able to write simple scripts that would run on almost any PC, without having 
the luxury of assuming that the PC had a working Internet or LAN connection, bootable USB ports, or any 
minimum amount of internal memory. We quickly learned that BRexx is particularly well suited to such 
situations. No worries about available disk space or memory constraints. No configuration or compatibility 
issues. BRexx is very fast so the scripts ran quickly even on older machines. 


BRexx fully meets the TRL-2 standard and is at language level 4.00. It also SS well beyond the Rexx 
standards in offering many additional built-in functions, over a half-dozen external function 
libraries, and other extended features described in the following sections. 
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Downloading and Installation 


BRexx can be downloaded from several web sites. Probably best is its home page at GitHub web address 
https: //github.com/vlachoudis/brexx. Or visit the BRexx project at SourceForge at 
https://sourceforge.net/projects/brexx/. 


BRexx packaging has varied over the years for different platforms. Sometimes there are platform-specific 
downloads for Linux package installers, such as . rpm files for the RPM Package Manager, and . deb files 
for Debian-based package managers. There have also been the equivalent setup.exe install files for 32-bit 
Windows and Windows CE. 


If any of these are available to you, just download the file, then double-click to run the package installer, 
and you're done. 


Installing from Compiled Binaries 


At other times, BRexx has offered compiled binaries for specific operating systems. These usually 
download in the form of compressed file downloads, files with extensions such as . zip, .tar.gz, or 
-tgz. 

After downloading the file, you double-click on it to extract all the files from the archive. (It's possible 


that this only produces a .tar file, in which case, you need to double-click that . tar file to finally 
extract all the files.) 


Once you've got the binaries and other BRexx files in place, you may need to set two environmental 
variables. As you would expect, one of them is your PATH variable. Make sure that the PATH on your 


system includes the location of the BRexx executable. 


For example, if you install the BRexx executable rexx into the directory /usr/local/bin, you would 
want to see if that directory is in your PATH with this line command in Linux/Unix/BSD: 


echo SPATH 
If not, add it to the PATH with a command like this: 

export PATH=SPATH:/usr/local/bin 
The other environmental variable you may need to set is RXLIB. This tells BRexx the location of its 
library file (also called a shared library or load library). It may be easiest to locate the library file in the same 
directory as the BRexx executable, rexx: 

export RXLIB=/usr/local/bin 
For Linux, Unix, and BSD systems, remember that you can code the first line of any script to 
indicate the location of the BRexx executable. For example, if the BRexx rexx executable resides in 


/usr/local/bin, the first line of your Rexx program would be: 


#!/usr/local/bin/rexx 
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By default, the file name extension for BRexx scripts is . r. So the name of the well-known Rexx 
benchmarking script would be: rexxcps.r 


Installing from Source Code 


Installing BRexx from source code is the third install option you might encounter. In this case, download 
the compressed file that will likely have the file name extension of .zip, .tar.gz,or .tgz. 


Double-click to decompress that file and extract all its files from the archive. (If double-clicking produces a 
. tar file, double-click that file to finish the process.) 


Now, you need to compile the C-language source code. Nearly every Linux, Unix, or BSD system includes 
a C compiler. If not, download one for free from the GNU project at https: //gcc.gnu.org/. If you're 
on an Apple computer running macOS, you will probably need to download Xcode from Apple's App 
Store. 


To compile and link BRexx, open a terminal, change the directory to where you extracted BRexx, and issue 
these three commands. You can issue all three using the root user id, or just the last command as root: 


./configure 
make 


sudo make install 
Now, just set the PATH and RXLIB variables as described previously. 


If you receive the following error, you have downloaded a version of BRexx that requires that the MySQL 
database be installed as a prerequisite. In this case, download and install MySQL from your favorite software 
repository or the MySQL website at www.mysql.org. Then, rerun the above three commands. 


configure: error: Couldn't find mysql config. Please verify that it is installed. 


Installing BRexx/370 


BRexx/370 is a port of BRexx to mainframe operating systems running on the Hercules emulator, an 
open source tool that enables you to run IBM mainframe OS's on other computers, such as personal 
computers. 


You can download BRexx/370 from at least three different GitHub projects. One implements BRexx for 
CMS (VM/370). Rexx runs in CMS as memory-resident. Another project targets MVS (OS/VS 3.8). This 
has been enhanced with support for VSAM/KSDS, 3270 formatted screens, TCP/IP, NJE38, and other 
OS facilities. A third project called MVS 3.8 TK (for TurnKey) downloads both MVS and bundled 
BRexx/370. This last project is easily installed via a Docker container. 


Please see Appendix Z for more on BRexx/370, including product description, the websites for 
downloading it, and install information. 
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At various times, BRexx has offered automated installation for 32-bit Windows and Windows CE via 
setup.exe files. The “Windows CE” section later in this chapter goes into more detail about installing 
BRexx under Windows CE. At the time of writing, if you want to run BRexx on 64-bit Windows, you 


would have to compile it from source code. 


Extra Built-in Functions 


BRexx includes many built-in functions beyond those included in standard Rexx. These supply a lot of 
the power behind the BRexx interpreter and take it well beyond the features and capabilities of standard 
Rexx. This section describes these extended functions and their uses. 


Three stack functions control the creation and destruction of stacks for the external data queue. All oper- 
ate in the manner expected, as per the discussion of how stacks work in Chapter 11: 


Stack Function 


makebuf () 


desbuf () 


dropbuf (n) 


Use 


Creates a new system stack 


Destroys all system stacks 


Destroys the top n stacks 


BRexx was originally written for DOS-based personal computers. Given this heritage, it offers several 
low-level PC-oriented functions that no other Rexx interpreter includes. These can be very useful for 
PC control and diagnostic programs on older computers. Here is a brief list of these functions: 


System Function 


load(file) 


import (file | dynamic library) 


intr (number, reg-string) 


storage (address, length, data) 


vardump (symbol, option) 


Use 


Loads a file of Rexx scripts to use as a library. This is 
the basic function by which scripts access external 
BRexx function libraries. 


New in version 2.1, this function imports a shared 
library using dynamic linking with Rexx routines. For 
example, to access the MySQL API library under 
Linux, code: call import “librxmysgql.so” This 
function effectively supercedes the load function. 


Executes an x86 soft interrupt (works under DOS only). 


Returns contents of the specified memory location, or 
returns the size of memory if no parms are encoded. 
Can also overwrite the contents of a storage location. 


Returns the tree of internal interpreter variables. 
Mainly useful for debugging purposes. 
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BRexx includes a full set of advanced mathematical functions. These are similar to those included in 
other Rexx interpreters and operate in the manner one would expect: 


Math Function Use 

acos (number) Arc-cosine 

asin (number) Arc-sine 

atan (number) Arc-tangent 

cos (number) Cosine 

cosh (number) Hyperbolic cosine 
exp (number) Exponentiation 

log (number) Natural log 

1og10 (number) Logarithm of base 10 
pow10 (number) Power using base 10 
sin (number) Sine 

sinh (number) Hyperbolic sine 
sqrt (number) Square root 

tan (number) Tangent 

tanh (number) Hyperbolic tangent 
pow(a,b) Raise a to power b 


Input/Output 


BRexx supports the full set of ANSI-1996 input and output functions: charin, charout, chars, linein, 
lineout, lines, and stream. Standard Rexx scripts that run with any other Rexx interpreter will run 
under BRexx. 


BRexx goes beyond standard Rexx I/O to give the developer alternatives. It offers a full set of C-lan- 
guage built-in functions for I/O. These allow programmers to explicitly open or close files, open files 
in specific modes by open and stream, flush file buffers, test for end of file through eof, read and 
write either characters or lines, and position the file pointers by seek. 


This C-oriented I/O model offers a more full-featured alternative to traditional Rexx stream I/O. Some 


other Rexx interpreters offer such functions through stream function commands, and BRexx as well 
includes an extensive set of over a dozen stream function commands. 
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Here are the C-like I/O built-in functions: 


Input/Output Function 


open (file,mode) 


close(file) 

read(file, amount) 
write(file,data, [newline] ) 
eof (file) 


flush (file) 


seek (file,offset, [option] ) 


stream(stream, [option], [command] ) 


BRexx 


Use 

Opens a file for reading, writing, or appending in 
either binary or text modes; returns a file handle 
Explicitly closes a file 

Reads data as characters, bytes, or lines 

Writes characters, bytes or lines of data 

Tests for end of file 

Explicitly flushes the file buffer 

Explicitly positions the file pointer 


Supports ANSI stream options, plus permits 
issuing some 15 different file I/O commands 


The C I/O model will be appreciated by those who require its powerful features or are familiar with the 


C++ or C languages. 


BRexx also provides a set of functions that interface to the free database, MySQL. These are built-in func- 
tions, not an external library. The MySQL functions provide a third alternative for I/O, one based on the 
most popular open-sorce database. Here are these functions: 


MySQL Function 


dbclose() 


dbconnect (host, [user], 
[password] , database) 


dberror(["Alphanumeric"]) 
dbescstr(string) 


dbfield[num|name 
Ne ee oe Me, 
TA "R")]) 


dbget (row, col |name) 


dbisnull (row, col |name) 


dbinfo("Rows"|"Fields"|"Insertid") 


dbsql (sqicmd) 


Use 


Terminates a database connection 


Establishes a database connection 


Returns the error number of the last error 
Escapes special characters for use in a string 


Returns info on fields from the previous query 


Returns the value of the specified data element 
Tells if a data element is null 
Returns info about the previous database operation 


Executes the string as a SQL statement 
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Some recent BRexx releases include built-in support for the SQLite database. This is not an external 
function library, but rather built-in support. These releases require installing SQLite in addition to BRexx. 


To summarize, BRexx supports up to four alternative I/O methods. It always includes standard Rexx I/O 
and built-in support for C-like I/O. In addition, various releases support MySQL database I/O and/or 
SQLite database I/O. Each approach has its advantages. This chart contrasts them: 


I/O Model Advantages 
Rexx I/O model Simple, portable, standard, universal 
C I/O model More explicit control over I/O 


MySQL & SQLite databases Accesses the popular open source databases. Yields the 
benefits of full database I/O through two different products. 


The External Function Libraries 


BRexx comes complete with about a dozen external function libraries. To use the library functions, first 
load the library with the load function: 


call load "ansi.r" /* loads the ANSI.R library functions for use */ 
Here is another example demonstrating how to encode the load function: 

call load "files.r" /* loads File function library for use */ 
Once loaded, all the functions in the library are accessible in the normal manner. The load function is 
the rough equivalent of the rxfuncadd function used in other Rexx implementations, except that load 
makes accessible the full set of functions residing in the library by a single statement. 
In current releases of BRexx, the import function provides an alternative to load. This function 
imports a shared library using dynamic linking with Rexx routines. For example, to access the MySQL 
API library, code: 

call import "librxmysql.so" /* access functions in the MySQL library a 
Here are some of the external function libraries and what they offer. 
CL] ANSI screen I/O (for Unix and DOS) — A set of about a dozen functions that manipulate the 


cursor and control the attributes of text displayed on the screen. This provides a standard, 
terminal-independent set of ANSI screen control routines. 


CL] ANSI screen I/O (for Windows and DOS) — The ANSI terminal emulation controls supplied as 
built-in functions for higher performance. 
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Console I/O (for DOS) — A dozen functions that control the I/O mode, manipulate the cursor 
and read keyboard input. These offer an alternative to ANSI Screen I/O modeled on the popular 
C language “console I/O’ (or “conio”) library. 


Date functions (for Unix and DOS) — A dozen functions that return and manipulate dates. 


DOS functions (for DOS) — Twenty functions that retrieve low-level information including 
segment, offset, and interrupt addresses, disk and directory information, machine name and 
more. These work with any form of DOS but may not be available under Windows (depending 
on your Windows version). 


EBCDIC functions (for Unix and DOS) — Functions that convert ASCII to EBCDIC and vice 
versa. This is useful because IBM and compatible mainframes use EBCDIC character encoding, 
while all midrange and personal computers rely on ASCII. These functions prove very useful in 
data transfer between machines using the two different data encoding schemes. 


File functions (for Unix and DOS) — A dozen file functions that read or write an entire 
file to/from a Rexx array, return file size and attributes, and so on. 


HTML CGFE-scripting functions — These support CGI scripting and manage cookies. 


Windows CE 


Brexx has been specially customized to support the Windows CE family of operating systems for hand- 
held computers. It includes built-in functions for Windows CE handhelds and an automatic installation 
program. It runs natively under Windows CE (it does not require a DOS emulator). 


BRexx for Windows CE is downloadable in compressed binary form for a variety of popular handheld 
processors, including MIPS, StrongARM, and the Hitachi SH* series of 32-bit processors. The product 
includes an automatic installation program. To install BRexx on the handheld device: 


1. 


5. 


6. 


Download the *.zip file containing the binaries for your particular handheld and its 
operating system to your desktop or laptop PC running Windows. 


Decompress or unzip the downloaded file into an appropriate folder on your Windows PC. 


Ensure that the Windows PC and the handheld are connected and that Microsoft ActiveSync 
or a similar product is active and can transfer files between the two machines. 


Double-click on the file setup.exe. 


BRexx is automatically installed from the Windows PC to the handheld. When the installation is 
completed, the handheld will display a new desktop icon for BRexxCE. 


Select the BRexxCE icon on the handheld, and you are interacting with BRexx. 


Let's briefly take a look at the BRexx Windows CE functions. While more functions may be added and 
the workings of some of the existing ones altered, this list gives an idea of what is offered. 


O 


Console functions — These functions manage the console or display. They help you manage 
cursor operations for character-oriented input and output: 


Ol clrsecr() — Clears main window 
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Q  =clreol() —Clears from the cursor position to the end of the line 
Ol wherex(),wherey () — Returns cursor position 

QO =gotoxy (x,y) —Moves cursor to indicated screen coordinates 

OQ getch() —Gets a character from the keyboard buffer 

Q = kbhit () —Tells if a character is waiting in the keyboard buffer 


Q) = File system functions — These functions aid in using the file system. They support common file 
operations and directory navigation: 


QO copyfile(sourcefile,destfile) — Copies a file 
movefile(sourcefile,destfile) — Moves a file 
delfile(file) — Deletes a file 


mkdir (directory) — Makes a directory 


CO ovo oO 


rmdir (directory) — Eliminates a directory 


dir (£ilemask) — Returns the complete directory list 


Q) Windowing functions — The windowing functions set the window title, display message boxes, 
and manage the clipboard: 


Q windowtitle (title) —Sets the title of the window 


QO msgbox(test, title, [option] ) — Displays a message in a message box 


QO clipboard([type|cmd [,data] ]) —Gets, sets, lists or clears data in the clipboard 


Q Unicode functions —The two unicode functions support two-way conversion between ASCII 
codes and unicodes: 


QO a2u(ascii_string) —Returns the ASCII string as Unicode 


QO u2a(unicode_string) — Returns the Unicode string as ASCII 


Issuing Operating System Commands 


BRexx issues commands to the operating system using the stack for command input and/or output. This 
example captures the output of the dir (directory) command into the stack: 


‘dir (STACK! 
Access the command’s output by issuing pu11 instructions to read the stack’s contents. Chapter 4 pro- 
vided examples of how to write a do loop using the pu11 instruction to read lines from the stack. Use 
that code to read lines output to the stack from commands like the preceding one when writing BRexx 


scripts. 


BRexx recognizes the keyword strings (STACK , (FIFO and (LIFO , coded in the manner shown above. 
These permit scripts to specify stack input/output and the ordering involved. Remember that FIFO 
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stands for “first-in, first-out,” while LIFO specifies “last-in, first-out.” These terms were defined and 
illustrated in the chapter on stack processing, Chapter 11. Please review that chapter if you need a 
refresher on how the stack works. 


Here’s a BRexx example of how to send data input into an operating system command by using the 
stack. This sample command sends input to the operating system’s time command through the stack: 


'STACK> time' 


A BRexx feature that extends beyond the Rexx standards is that commands and programs can be 
invoked by coding them as if they were functions, so long as they use standard I/O. Here are examples: 


say ‘dir'() /* displays a file list via the operating system DIR command */ 
say '‘cd'() /* displays the current working directory via the CD command */ 
directory = 'cd'() /* capture results of the operating system's CD command wf. 


Be sure to encode the parentheses so that BRexx recognizes the “function call.” This technique can be 
used with any command-line program (not just operating system commands), as long as they use stan- 
dard I/O. It is a convenient and powerful way to access outside services. 


Windows users may see varied results when using the redirection techniques, depending on their ver- 
sion of Windows. This is because operating systems in the Windows family do not treat standard I/O 

and redirection consistently. This is not a shortcoming of BRexx, but rather an aspect of how Windows 
operating systems redirect I/O. Different Windows versions redirect I/O inconsistently. 


BRexx recognizes several environments as the target for operating system commands: COMMAND, SYSTEM, 
DOS, and INT2E. INT2E is the fast (but undocumented) way to issue command. com commands via 
Interrupt 2E. This is a DOS-only feature. 


Example — C-like I/O 


Let’s take a look at a few sample scripts that demonstrate the extended features of Brexx. BRexx sup- 
ports both standard Rexx I/O functions and a C-language-inspired I/O model. This program is similar 
to the I/O sample program of Chapter 21 on Rexx/imce. It illustrates the C I/O model and its functions. 
The script simply copies one file to another. The source and target files are specified on the command 
line when running the program. Here is the script: 


[RRRRRKRAREKEREREKREEEKRREREKRKEE RK EKER EKEKEKKEKERKKREREKERAREKKKEER KKK EE / 


/* FCOPY BREXX af 
fe if: 
/* Uses BRexx I/O functions to copy a file. ii 
[RRRRRKEREEREREKKEREKEREERK AREER KEREREKEKREK EKER EKER EKKKAREKKKEEK KEKE KE / 
parse arg source target /* get filenames, retain lowercase SH, 
/* open input & output files, establish file Handles ef 
in_hnd = open(source, 'r') /* open input file any 
out_hnd = open(target, 'w') /* open output file ey 
G16 slial_loiayel = il | out_hnd = -1 then /* check for errors on open a 
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say 'File OPEN Error!' 


/* perform the file copy eit 
line = read(in_hnd) 
do while eof(in_hnd) = 

bytes_written = write(out_hnd, line, newline) 

line = read(in_hnd) 
end 
/* close the files and exit yf 
ren = eloselan hind) /* close input file care 
ie Oie S CILOSS (ule _Iaiayel)) fe ChilOSe. Ciblicjic: seaLALe way} 


if rc_in <> 0 | rc_out <> 0 then 
say 'File CLOSE Error!' 


exit 0 


/* check for errors on close */ 


In the script, these lines open the input and output files and check for errors: 


in_hnd = open(source, ' 
out_hnd = open(target, ' 
if in_hnd = -1 | out_hnd 

say 'File OPEN Error!' 


/* open input file */ 
/* open output file ays 
/* check for errors on open sf. 


The open function follows C-language protocol for the mode, or the manner in which the file will be 
used. These are the valid file mode flags that can be encoded: 


open Function Mode 


xr 

Ww 
a 

+ 
t 


b 


Use 


Read 

Write (overwrites any existing file) 

Append (adds to the end of any existing file) 
Read and write 

Text mode 


Binary mode 


The Text and Binary modes are mutually exclusive. Use either one or the other on any open statement. 
The Text and Binary indicators are usually combined with one of the other flags. For example, you might 
open a file for Read in Text Mode, or for Write in Binary Mode. Later in this discussion sample scripts 


illustrate how this works. 


The function returns a file handle that can be referred to in subsequent file operations. If the function 
returns -1, an error occurred during the open function. 
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The do-while group uses the read function to read the input file: 

line = read(in_hnd) 
read returns either a specific number of characters or line(s). It can also operate on an entire file by using 
the F parameter. In fact, we could have copied the entire file with one line of code instead of the do- 
while loop: 

call write "new file" , read("old file","F") /* copy entire file ! */ 
The eof function returns 1 at the end of file, or 0 if the file is open and there are still lines to read. As 
with the read and write functions, it takes the file handle returned from the open function asa 
parameter: 


do while eof(in_hnd) = 0 


The write function writes a line to the given file handle, optionally followed by a newline or line feed 
character(s). It returns the number of bytes written: 


bytes written = write (out_hnd, line, newline) 


The read function does not provide the line-end character(s) to the script, so the script must add the 
new line to the output string through the write function newline parameter. 


This code concludes the program. It closes both files based on their file handles, and checks for an error 
during closing. The return code of 0 means the files closed correctly: 


rc_in = close (in_hnd) /* close input file ef 
rc_out = close (out_hnd) /* close output file */ 
if rc_in <> 0 | rc_out <> 0 then /* check for errors on close * 


say 'File CLOSE Error!' 


The C-like I/O model is powerful. The ability to work with files in binary mode simply by coding the b 
option on the open function is especially useful. This allows byte-by-byte file processing regardless 
of the manner in which the operating system separates lines or marks the end of file. 


These file functions are all built-in. BRexx also provides an external function library for Unix and DOS 
that can, among other features, read or write an entire file to/from an array. Finally, BRexx offers an 
interface to the MySQL and/or SQLite open source databases as a set of built-in functions. 


Example — SQLite Database 


SQLite is a lightweight database interface that programmers use as a simple database for data storage. 
It's an open source product that's been available since the turn of the century. It's often used where 
programmers need an embedded database engine and don't want to cause their users to install an 
entire database management system. The website www.sqlite.org provides more information on the 
product as well as free downloads. 


371 


Chapter 22 


BRexx supplies a core set of SQLite functions. Though few in number, they are all you need: 


Function: Use: 
SQL(sqlcmd) Executes a SQL query specified as a sqlcmd string. Returns the number 
of rows 


SQLBIND (col, "variable", value) Binds a parameter indexed by a ? at column position col by a value 


SQLCLOSE() Closes the SQLite file connection 

SQLGET({col[,V 1 T]]) Either returns the number of columns, a column's value, or its datatype 
SQLERROR() Returns most recent error message 

SQLITE() Initializes 

SQLOPEN (database) Opens a database file 

SQLRESET() Resets the current statement 

SQLSTEP() Moves to the next row, returns "DONE" when at end 


Here is an example SQLite program distributed with BRexx: 


@eulLik auiyjeyorete Wexebatitys) aie 
call sqlite ye AiaicnelitwS Malorceieyy / 
call sqlopen "test.db" 
call sql "create table square (id integer primary key, id2 integer, b blob)" 
call sql "insert into square values (?,?,?)" /* prepare insert statement */ 
/* insert records */ 
do i=l to 10 
call sqlreset 
GLI syeplicakiovel th 2 WSL aL 
Galil sCllostine 2p", alee 
Calli seqlosme 3, io" coo1es (seul , at) 
call sqlstep /* perform the insertion */ 


end 


/* read records */ 
say "Record=" sql("select * from square") 
do until sqlstep()=="DONE" 
do i=l to sqlget() 
Geulil woes p Selleeie (a1) "|| © 
end 


say 
end 
call sqlclose 
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To discuss this coding sample, you can see that the first three lines will be common to most 
programs you write. They import (or load) the SQLite external function library, initialize SQLite for use, 
and open the database file you want to work with: 


call import "sqlite.r" 
call sqlite /* initialize library */ 
call sqlopen "test.db" 


The next SQL statement creates a new table: 


call sql "create table square (id integer primary key, id2 integer, b blob)" 


The next statement sets up -- or prepares -- a SQL insert statement. Notice how the three values 
that will subsequently be placed into the insert statement are represented by question marks ( ? 


). These are bind variables, variables that will be assigned values by a subsequent sqlbind 
statement: 


call sgl "insert into square values (?,?,?)" /* prepare insert stmt */ 


Then, in the DO loop, you can see how the bind variables are substituted in by the sqlbind 
statements: 


call sgqlbind 1,"i",i 
call sgqlbind 2,"i",i**2 
call sqlbind 3,"b",copies("sql",i) 


The sqlstep function performs the actual insertion of the row into the database. Notice that a 
sqlreset statement starts every iteration through the DO loop to ensure that all SQL statements 
are reset prior to their reuse. 


After the table has been populated, the DO loop terminates. Now the program initiates another DO 
loop, this time to read back all the information it has just inserted into the table. 


This time the sql statement is used to read individual rows from the table. This demonstrates 
how you can use the sql function to issue just about any SQL statement you want. In this 
program, for example, it was used to execute CREATE TABLE, INSERT INTO, and SELECT sql 
statements. The flexibility of the sql function is what makes it possible to use BRexx for any 
kind of SQLite processing you may want. 


As before, the sqlstep command actually executes the sql SELECT * FROM statement built 
previously. 


And finally, sqlclose closes the database and terminates the program connection to it. 


To summarize, the BRexx SQLite external function library provides a minimal subset of SQL 
commands. But using them, you can perform any database function you need to. The sql 
function is generalized to issue various database instructions. 


In like manner, sqlstep is generalized for multiple uses. This program showed how it could be 
used to issue both SQL INSERTs and SELECTs. 
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Example — Array I/O 


Another of the external function libraries included with BRexx offers an alternative set of functions to 
manage file I/O for Linux, Unix, BSD, and DOS systems. (This library is not for Windows.) 


This little collection of routines resides in the library filenamed files.r . It's only a set of seven 
functions, yet it can manage most of your file I/O needs. Its distinguishing feature is that it enables you 
to read an entire file into a Rexx array in a single statement. Conversely, you can write an entire table out 
to a file with a single statement. 


This single-statement "file read/write" feature is analogous to the mainframe Rexx EXECIO statement 
(covered in Appendix N). 


Here are the functions in this library: 


Function: Use: 

BASENAME (file) Returns the filename without its the directory path 

DIRNAME (file) Strips the the non directory suffix from file name 

FILESIZE(file) Returns the file size in bytes 

READWORD (file) Reads one word from a file 

READSTEM file,stem[,pool] Read the entire file into stem using as default pool 0. The stem.0 
[Upper]) contains the number of lines read. 

WRITESTEM(file,stem[,pool] Writes to the file from stem, stem.0 contains number of lines to write 
EXIST(file), STATE(file) Returns '1' if file exists, else '0' 


Recall from Chapter 4 how arrays (or tables) work in Rexx. They often referred to as compound variables 
or stem variables because the symbols that represent them consist of two parts: a stem and a tail (or suffix). 
For an array written in code as my_table.i.j 

C} The name of the array or table ismy table 

Cl] Thestemismy table. (it includes the period) 

() Thetailis i.j 
| 


The two subscripts are i and j 


With this background, let's take a look at a simple program that demonstrates the use of this function 
library and how to read and write an entire file in one statement: 
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/* This script demonstrates some BRexx file functions for Linux etc wif 
@eLil stinjorouete, Waesiiheyss,, rol /* get external functions if 
parse arg filename /* read in a file name ey 
if \(exist(filename)) then 

say 'Filename' filename 'does not exist!' 
else do 


say 'Filename without directory path is:' basename (filename) 
say 'File size is:' filesize (filename) 


call readstem filename, "my array." /* read entire file to array */ 
say 'Number of array elements is:' my array.0 


do i = 1 to my array.0 /* display array contents wif 
Sey Veucieeiy Gllemcmes Y at my eleieeny, aL 
end 


call writestem 'filecopy.dat', "my array." /* copy file to new file */ 
"cat' 'filecopy.dat' /* display copied file cA 
end 
exit 


The import function loads the external function library. parse reads a command line argument 
containing the name of the file to work with. 


The program verifies that the file name it's given exists with the exist function, nested inside the IF 
statement test. Then, it uses the basename function to display the simple file name without its directory path, 
and the filesize function to report the size of the file in bytes. 


With housekeeping done, the program reads the entire file into the Rexx array named my_array. 
Each input line from the file will occupy one slot in the target array. It's very important to code the 
readstem function using the stem name of the table (which includes the period). 


The readstem function always places the number of elements read into the 0 o array variable. In 
other words, my _array.0 will contain the number of lines read. 


The program then uses this information to process the array and displays its contents to the user. 


Then the program invokes writestem to write the entire array to the specified file name. So it 
creates a duplicate file to the one the user supplied as a command line argument to the program. Be 
sure the 0" element of the array indicates the number of elements it contains before the write. 


A Linux cat command displays this duplicate file to the user to confirm its validity, and the 
program ends. 
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Example — Direct Data Access 


The next sample script delves further into how to use the C-like I/O functions. This script shows their 
power in performing direct file access. The program goes to specific file locations to retrieve data ele- 
ments, showing how the C I/O model can be used for direct or random file access. 


It's important to distinguish between in file access methods between direct access to a specific record 
within a file, versus positioning a file pointer forward in a sequential-access file. In the latter case, you 
move a record pointer to a particular position within a file, then read that record. In many systems, that 
means you have effectively read through all intervening records in the sequential file (even if they are 
not passed to your program). And, you can't go backwards to a previous record. 


A true direct or random access routine allows you to position the file's record pointer arbitrarily, 
forwards or backwards. It doesn't read intervening records while seeking the one you specify. 


Another distinction is that with some direct access routines, you must supply the byte position where 
you want to read a record. Other systems perform that calculation for you. Instead you just supply the 
relative record number within the file. 


This example script prompts the user to enter a Pool Pass Number, then displays that patron’s record on 
the screen. This sample interaction with the Pool Read program shows that the second record (Pool Pass 
Number 2) is assigned to Ross Geller, and Pool Pass Number 4 is assigned to Joey Tribiani. Pool Pass 
Number 17 is not yet assigned, because that relative record does not exist in the file. Pool Pass Numbers 
correspond to direct access positions or slots within the random-access file: 


c:\brexx32\pgms> rexx32 poolread.r 


Enter Pool Pass Number: 2 


Pass Number: 2 
Person : Ross Geller 
Phone : 476-1749 


Enter Pool Pass Number: 4 


Pass Number: 4 
Person : Joey Tribiani 
Phone g AGN} 76) 


Enter Pool Pass Number: 17 
That Pool Pass number is not assigned. 


Enter Pool Pass Number: exit 
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This script illustrates direct or random access to the pool pass records: 


[BRR RERREKEREREKRERERKEKEREKKEREKEKEREKEERE KEKE RKKREKEKEKEKEKKEREKKKE KKK | 


/* POOLREAD */ 
ee wy 
/* Reads random-access pool file records to display to the user. ay 


[RRRRRRERKEREREKREREKEREREKKEREKRKEREKEKEKKKEEREKKEEREKEKRAKEKKEREKKKEEKE | 


in_hnd = open('poolfile','rb') /* open binary input file */ 
recsize = 30 (= Sigs oe A wie meee! +,/ 
filesize = seek(in_hnd,0,"EOF") /* returns file size * 
input_limit = filesize - recsize /* calculate last record */ 
say '' 

call charout ,"Enter Pool Pass Number: " /* get the user's request */ 


pull pass_number 
do while pass_number <> 'EXIT' 
position = ((pass_number-1) * recsize) /* read record at POSITION */ 


if position > input_limit /* POSITION > last record */ 
then say 'That Pool Pass number is not assigned.' 


else do 
call seek in_hnd,position /* position to the record */ 
in_record = read(in_hnd, recsize) /* read user's pool record */ 
sep = ',' /* parse & display record */ 


parse value in_record with first_name (sep) , 
last_name (sep) phone_number 


Sely 7 
say 'Pass Number:' pass_number 
say 'Person :' first_name last_name /* display the record */ 
say 'Phone :' phone_number 
end 
Gene 4 
call charout ,"Enter Pool Pass Number: " /* get user's request */ 
pull pass_number 


end 


call close in_hnd 
exit 0 


The script opens the file for read access (r) and in binary mode (b). Binary mode is appropriate because 
there are no line-termination characters within the file: 


in_hnd = open('poolfile','rb') /* open binary input file * i} 
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This code uses the seek function to return the size of the file. The EOF parameter forces the file 
pointer to the end of file. The calculation for input_limit is used to tell if the user has entered a Pool 
Pass Number that does not yet exist (that is larger than the file size indicates has been stored): 


resize = 30 /* size of 1 file record */ 
filesize = seek(in_hnd,0,"EOF") /* returns file size */ 
input_limit = filesize - resize /* calculate last record */ 


The script prompts the user to enter a Pool Pass Number. This code takes that pass_number and calculates 
the relative byte position where the record is located within the direct access file: 


position = ((pass_number-1) * resize) /* read record at POSITION */ 


If the position is too big, the script knows that there is no such record and tells the user so: 


if position > input_limit /* POSITION > last record */ 
then say 'That Pool Pass number is not assigned.' 


If the Pool Pass Number is valid, the script uses the seek function to position the file position pointer to 
read the proper record. Then the script reads that 30-byte record: 


call seek in_hnd,position /* position to the record */ 
in_record = read(in_hnd, resize) /* read user’s pool record */ 


The parse instruction parses the record into its components, separated by commas: 


esp = ',' /* parse & display record */ 
parse value in_record with first _name (esp) , 
last_name (esp) phone number 


Now the script displays the Pool Pass information on the screen. Then it prompts the user to input 
another Pool Pass Number. When the user enters the string exit, the script terminates. 


This script demonstrates how to use BRexx’s C-like I/O functions to open a direct-access file and 
randomly retrieve records. It shows that advanced I/O functions can be used to implement different 
approaches to data storage and retrieval. In this case, we stored fixed-length records within a standard 
operating system file and retrieved specific records based on their relative record positions within the 
file. 


Example — DOS Functions 


A DOS program? Who cares about DOS? Well, while desktop computer users long ago moved from DOS 
to Windows, DOS continues to be a very widely used operating system. Many applications require a 
completely stable, well-known operating system with a very small footprint. 


Examples include embedded systems and device control programming. The software on these systems must run 
error-free and without maintenance. If the software fails, the device is broken. DOS fits this need. It is so 
well known that even its quirks and bugs are documented. With many free versions available, DOS keeps 
prices down, important when programming consumer devices that sell in such large numbers that even a 
small fee becomes an important cost factor. 
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The biggest competition to free DOS versions for embedded systems and device control programming 
comes from "tiny" -- stripped down -- versions of Linux. Linux, too, is free, open source, and a rock solid 
embedded platform. Linux offers many more capabilities than DOS. Yet DOS fulfills a need standard 
Linux can not. DOS is a single-tasking, real-time operating system. Some use cases require that. And, of 
course, DOS and DOS emulation are still used for gaming, supporting the estimated 7,000 DOS games 
available for free download. 


With its long-time support for DOS and its many special DOS functions, BRexx offers a Rexx 
implementation specifically extended and customized for this world. This simple script demon- 
strates a few of BRexx’s DOS-specific functions. Here’s what the script does: 
1. Retrieve system information about the PC on which the script runs. 
2. Read in a filename from the user and: 
a. Display the file’s size and attributes. 
b. Read the entire file into an array in one statement. 
c. Display the file’s contents by writing out the array. 


3. Issue an operating system command by five different methods. 


Here’s the script output. (We have removed extraneous blank lines from the output for readability.) 


Sess========= PC Information 
The machine name is : Not defined 


The DOS version is : 6.20 
System memory is : 201504 
The current disk is : C 


Freespace on drives : 112246784 211787776 
Enter a filename: dos _info.txt 

BSSsSesssssss File Information ============= 
MoS: SEW! Cue ila ieee ese aise Ale) 

The file attributes of test file: RHSVDA 

Here is the contents of file: DOS INFO.TXT 
iclasiisy als Jkatieye. il = 
ia abs llaime 2 

iclagis: als laine 3 

S========== DOS Command Tests 
ethod 1- DOS version is: 
S-DOS Version 6.20 

ethod 2- DOS version is: 
SDS Wereiw@in 6. 210) 

ethod 3- DOS version is: 
S=DOSwViersalonm 620) 

ethods 4 and 5- DOS version is: 
S-DOS Version 6.20 

S-DOS Version 6.20 
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Here is the program: 
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[RRRRRERERREREREERERE KER KK KKE EKER ERK KKK ERK KEE KK REEREKEKERKEKEREKEKAKRK KK / 


/* DOS INFO oy) 
dee suf: 
/* Illustrates some DOS-specific functions of BRexx. of 
[RRRRRRRAEREKKERERKREEEKRKEREKRERE KEKE RE KEE KKEKEKEKKRERKEKKEEKKKEREKKKE KS / 
cal Toad. "dos.r* /* load the DOS function library ay 
Geulil ikeyysl Mediles ie" /* load the FILES function library r/, 
/* Display some PC system information yf 
Sehy (S==SS2S==S5== EC Ibmiiommeliriem SSS=S===== = >==5 | 

say 'The machine name is :' machinename() 

say 'The DOS version is :' dosversion() 

say 'System memory is :' storage () 

say 'The current disk is :' getcurdisk() 

say 'Freespace on drives :' drivespace() 

call charout ,'Enter a filename: ' /* get a filename from user A) 


pull testfile 


if exist(testfile) then do fe? SE telavey, aligyowwne, seal key Mees), og 3 7/ 
/* display file size and its attributes as a string aay 
Seiy YSS=sSsSSSSSS== Pile imcorneiciLem ==a=s=—=====5" 
say 'The filesize of the test file is:' filesize(testfile) 


file_attr = fileattr(testfile) 
say 'The file attributes of test file:' attr2str(file_attr) 


/* read the entire file in 1 statement into an array, display it | 


call readstem testfile,"filein." /* read entire file into array */ 

say 'Here is the contents of file:' testfile 

clo 3) = 1 c@ ieillenin, 0 /* item 0 tells # in the array */ 
say filein.j 

end 


Gioiel ff? SE, 4 4 elaletal ele) “2/ 


else 
say 'File does not exist:' testfile 


/* issue the DOS version (VER) command by many different techniques s/s 


Say S=sSaS====— POs Command: Tests (=========—=-=—* 

call charout ,'Method 1- DOS version is:' /* the traditional method */ 
Usvaeug | 

version = 'ver'() /* capture "function" output 2] 
call charout ,('Method 2- DOS version is:' || version) 


say 'Method 3- DOS version is:' 
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‘ver (STACK' /* capture output via the Stack */ 
do while ( queued() > 0 ) 

parse pull version 

say version 
end 


/* use ADDRESS to issue command */ 
call charout ,'Methods 4 and 5- DOS version is:' 
address SYSTEM ver 
address COMMAND ver 


exit 0 


The first statements in this program give the program access to all the functions in the two external func- 
tion libraries in the files named dos.r and files.r: 


call load "dos.r" /* load the DOS function library ‘ad 
call load "files.r" /* load the FILES function library */ 
Loading the entire function library in one command is as convenient as one can possibly imagine. 


Now the script issues a series of functions to retrieve and display information about the machine on 
which it runs: 


say 'The machine name is :' machinename () 
say 'The DOS version is :' dosversion() 
say 'System memory is :? storage () 

say 'The current disk is :' getcurdisk() 
say 'Freespace on drives :' drivespace() 


The storage function is particularly interesting. Without any operand, as in the preceding example, it 
displays the total amount of machine memory. It can also be coded to display the memory contents at a 
specific location. For example, this function displays 100 bytes of memory at machine location 500: 


say storage(500,100) 


The function can also be used to change that memory. This changes 5 bytes of memory starting at deci- 
mal location 500: 


say storage(500,5,'aaaaa') 
Next the script prompts for the user to enter a filename. This code tests whether the file exists: 

if exist(testfile) then do /* if the input file exists... */ 
Assuming that it does, the script uses BRexx functions to display its size and attributes. The fileattr 
function retrieves the file’s attributes, and the attr2str function converts them to a displayable charac- 
ter string: 

say 'The filesize of the test file is:' filesize(testfile) 


file_attr = fileattr(testfile) 
say 'The file attributes of test file:' attr2str(file_attr) 
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After displaying information about the file, the script reads the entire file into an array by this one 
statement: 


call readstem testfile,"filein." /* read entire file into array */ 
The script displays the contents of the file by reading through the array: 

do j = 1 to filein.0 /* item 0 tells # in the array */ 

say filein.j 

end 
The zeroth item in the array ( filein.0 ) tells how many elements the readstem function placed into 
the array. There is also a writestem function that corresponds to the readstem function. It writes an 
entire array in a single statement. The element stem. 0 tells writestem how many lines to write. Here 
we've used a traditional do loop to display the contents of the array the script read in to the screen, but 
we could also have encoded writestem to store the entire array to disk in a single statement. 
Finally, the program demonstrates several different ways to issue operating system commands from 
within BRexx scripts. In this case, the program issues the DOS ver ( version ) command. First the script 
issues this operating system command in the traditional fashion: 


'ver' 


The interpreter does not recognize this command, and so it sends it to the external environment for exe- 
cution. Of course, the default environment for command execution is the operating system. 


Next, the script treats the OS command as if it were a function and captures and displays its output. This 
technique works only if the command uses standard I/O: 


version = 'ver'() /* capture "function" output ef 
call charout ,('Method 2- DOS version is:' || version) 


Now the script issues the command again and captures its output into the stack: 
‘yer (STACK' /* capture output via the Stack */ 


To retrieve the results, just pull or parse pull the stack items. The queued function tells how many 
lines are on the stack. 


Finally, the script issues the ver command by the address instruction. First, it targets the SYSTEM envi- 
ronment for command execution, then the COMMAND environment: 


address SYSTEM ver 
address COMMAND ver 


While this script demonstrates a small number of the BRexx external functions, it suggests how useful 


they can be for OS-specific programming. The functions are easy to use, and the product documentation 
clearly and succinctly describes how to code them. 
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Summary 


This chapter summarizes some of the extended features of BRexx. This goal is to give you a feel for the 
features BRexx offers for Linux, Unix, BSD, macOS, Android, mainframes, Windows, DOS, and other 
platforms. This is only a brief summary of what is available. Interested readers should download the 
product and review its documentation for further information and product updates. 


We demonstrated some of the extended features of BRexx in this chapter. These include additional built- 
in functions, such as those for manipulating the stack, retrieving system information, higher 
mathematics, C-language-style input/output, and MySQL and SQLite database access. We looked at how 
BRexx runs in native mode under Windows CE and offers Rexx as an alternative scripting language for 
handhelds that run that operating system. (Windows CE is a legacy system with license sales projected 
to end in 2028.) Of course, the Android operating system dominates on cell phones and other handheld 
devices, so chapter 25 covers BRexx on Android in some detail and provides programming examples. 


We also discussed a few of the many function libraries that come with BRexx. These include libraries for 
C-like console I/O, ANSI screen I/O, date functions, ASCII-to-EBCDIC conversion, file management, and 
the like. While BRexx meets the TRL-2 standards, these additional functions give it the extra features 
beyond the standard that developers often find useful. 


Finally, the sample scripts in this chapter demonstrated several BRexx features. These included C-like 
input/output, SQLite database access, array I/O, and direct data access. Direct or random file processing 
is a useful tool that forms the basis for many kinds of applications. The final script illustrated a few of 
BRexx’s extensions for DOS programming. While the average desktop user considers DOS a “dead 
product,” DOS continues a subterranean existence in embedded programming and legacy gaming. 


Test Your Understanding 


1. Name three key advantages to BRexx. Why might you use it as opposed to other free 
Rexx interpreters? 


2. How do you position a file pointer within a BRexx script? How do you determine what the 
position of the current file pointer is? How do you position the file pointer to the 
beginning of a file? To the end of the file? How can you determine the size of a file? 


3. What is the purpose of the EBCDIC functions? Which function library would you use to 
perform “date arithmetic”? 


Name the functions for managing stack buffers. What does each do? 
5. | What are three I/O models BRexx supports? When would you use each? 


6. What are the ways in which you can execute operating system commands from BRexx 
scripts? How do you send the command input and capture its output in each approach? 


383 


Reginald 


Overview 


Reginald Rexx was developed by Jeff Glatt of the United States. He took the Regina interpreter 
and heavily modified it to customize it, and added features especially oriented to the Windows 
operating system. The result is a well-documented product with features and tools that leverage 
Windows. Reginald supplies all the Windows-oriented “power tools” and functions Windows 
programmers expect. It’s a free product that provides an alternative to proprietary Microsoft 
languages like Visual Basic and VBScript. As a Rexx interpreter, Reginald is standards-based and 
free of charge. 


While Reginald has its users, its website recently disappeared. So the product appears to lack 
support at the time of writing. You might still want to take advantage of Reginald's large toolset, 
which can easily integrate with other Rexx interpreters. 


But be aware: the product documentation refers to some now-deprecated Windows technologies 
(for example, ActiveX). We've retained such discussions in this chapter, in order to follow the 
Reginald documentation -- without update or correction. Such material may be outdated for 
current Windows programming. 


This chapter provides an overview of the extended features and strengths of Reginald. The latter 
half of the chapter offers several sample scripts that illustrate some of these features. We'll start by 
listing and discussing some of the advantages of Reginald as a Rexx interpreter. After describing 
how to install the product, we discuss the extended functions of Reginald, how it supports 
Windows GUI programming, its advanced I/O features, and its other extended features and 
functions. 


Advantages 


As in previous chapters covering specific Rexx interpreters, we initiate the chapter by 
discussing a few of the reasons you might choose Reginald. Here are some of the benefits to 
Reginald: 


C1 Windows integration — Reginald completely integrates Rexx into Windows. This 
extends from the high level (a Windows Installer and GUI script launcher) to the 
low level (good Windows error handling and internal memory management). 
Reginald fully leverages Windows. 
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C1 Windows functions and features — Reginald was written by a Windows developer because he saw 
a gap between portable Rexx interpreters and the Windows-specific features Windows 
developers require. Reginald eliminates this gap. For example, Reginald supports Windows 
GUI programming, interfaces to spreadsheets and Microsoft Access databases, runs Windows 
Dynamic Link Library files (DLLs), has built-in functions to support the Windows file system 
beyond the standard REXX functions, and fully accesses the Windows Registry. Reginald tools 
make typical Windows tasks easy, such as integrating sound into applications or developing 
sophisticated GUI interfaces. 


C1 Tools — Reginald provides a full set of developer tools. We discuss them in the 
material that follows. 


C1 Documentation — Reginald comes with comprehensive documentation. Whether seeking 
informa- tion about the interpreter, how-to’s, or scripting examples, Reginald’s “doc” provides 
the answer. Everything you need to learn about Reginald’s many tools and Windows-specific 
functions comes right with the product. 


C1 Supports SAA API — Reginald supports the SAA API interface into Rexx from 
any compiled Windows language (not just from C language). 


Cl Meets standards — Reginald meets the Rexx TRL-2 standards and is at language level 4.00. 
It includes the new ANSI-1996 functions changestr and countstr functions, but not 
the ANSI-1996 LOSTDIGITS condition. 


Download and Installation 


Reginald, and its related tools, can be downloaded from www.RexxInfo.org ormanmrk.net. They 
download as binary compressed files in either Zip (* . zip) or self-extracting (* .exe) formats for Windows. 
Simply download the files and double-click on them to initiate a typical Windows Installer interaction. 
Installation is similar to installing any other Windows products. The software can also be uninstalled via 
Control Panel’s Add/Remove Programs option. 


Reginald automatically creates a Windows file association between files with the extension *.rex and 
its Script Launcher. Double-clicking on a *.rex file runs Reginald through its Script Launcher. It is rec- 
ommended that, at a minimum, you install the Reginald interpreter, the REXX Text Editor, REXX 
Dialog, and the online book Learn REXX Programming in 56,479 Easy Steps. Other tools and add-ons may 
be installed if you find a need for them. 


Tools 


Reginald offers a comprehensive set of tools for the Rexx programmer running Windows. Here are the 
major ones: 


Cl Installer — A Windows installer for the Reginald package. Among other features it 


automatically associates Rexx files with the interpreter so that you can simply double-click on 
any Rexx script to run it. 
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Script Launcher — A GUI panel that helps you easily run Reginald scripts. It also allows 
you to assign input arguments to scripts and to create autorun CDROMs with Rexx scripts. 


Administration Tool — A single-panel Programmer’s GUI that aids in the development and 
debugging of Rexx scripts. It allows you to autoload external function libraries and exit 
handlers for your scripts, and to easily set Rexx options, trace levels, and script paths. This 
tool centralizes administrative tasks and is a snap to learn. 


Documentation — Explanatory documentation is a theme throughout Reginald. For example, 
there are Windows-style help systems for the Script Launcher, the Administrative Tool, and all 
the other components. There are extensive explanations of Reginald scripting and a full set of 
well-documented sample scripts. There are several online books containing tutorials on 
particular language features, and even a complete online book tutorial on Reginald. Everything 
you need to use Reginald comes with the product. 


Rexx Text Editor (aka RexxED) — An editor specifically designed for writing and testing Rexx 
scripts. The GUI tool features color-coded syntax, a full help system, and other aids 
specifically for Rexx programmers. It also features a built-in graphical debugger to debug your 
script by setting breakpoints and running or stepping through the actual source lines in the 
text editor window. It allows you to add your own macros written in REXX (which may use 
add-ons such REXX Dialog). You can therefore add new features and interfaces to the editor. 


REXX Dialog — Supports Windows GUI interfaces for Rexx scripts. Helps Rexx programmers 
develop complete, typical-looking Windows GUIs. The included online book fully 
documents the process and makes it easy to learn how to script Windows GUIs. 


ODBC drivers — Open Database Connectivity (ODBC) drivers for Reginald access Microsoft 
Access Databases, dBASE files, or Excel files. These are files of type *.mdb, *.dbf, and *.x1s, 
respectively. The ODBC drivers also enable local or remote access to a variety of database 
management systems. These include both open source databases such as MySQL and 
PostgreSQL, and commercial systems such as SQL Server, Oracle, and Db2. 


SQLite driver — SQLite is a self-contained, embeddable, zero-configuration SQL database 
engine. It is useful as a local SQL-compliant database. Reginald interfaces to this open source 
product to provide a fast, embedded database engine. 


Speech function library — An external function library that allows scripts to use a 
synthesized voice to pronounce or speak text. Uses the sound card or speaker to “play” 
the text. Audio output complements the usual screen output. 


MIDI Rexx function library — An external library that allows scripts to read, write, play, and 
record MIDI files. MIDI files provide computerized control of musical equipment and are 
also used to play music on the PC. The included online book includes a full tutorial with 
sample scripts. 


MIDI I/O function library — An external library that enables input/output to MIDI ports. This 
connects the PC to electronically accessible musical instruments and related devices. 


Rexx 2 Exe — This utility converts a finished Reginald script into a self-running *.exe file. 
This allows distribution of Reginald programs without requiring distribution of the source 
script. 


Math functions — This library contains transcendental mathematical functions (e.g., cosine, 
sine, and so on). 


RexxUtil — Originally devised by IBM, these utilities manipulate stem variables and provide 
many other service functions. This is the Windows-based version of the IBM utility library 
that is widely distributed on many other platforms. 


387 


Chapter 23 


C1 Regular expressions — This library contains functions that parse regular expressions. 
Regular expressions are a precise way to describe string patterns. They can be very powerful 
when applied to pattern and string logic. 


C) RxComm serial add-on — An external function library that lets scripts access and 
control serial ports (the PC’s COM ports). 


C1 RxSock — TCP/IP sockets for communication between programs across the Internal or a 
local area network (LAN). 


C) The FUNCDEF feature — Allows scripts to register and then directly call any function in any 
DLL, regardless of whether that DLL was written to be used from a Rexx script. 


C1 Windows Internet API — A function library for Internet communications that supports 
HTTP, FTP, and Gopher operations. Scripts can download and upload Web pages and files 
and use the remote file control functions of the FTP protocol. 
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CGI interface — A function library for scripting the Common Gateway Interface, or CGI. 


C1 C Developer's Kit for Reginald — Includes library files for C programmers who use Rexx as a 
scripting language for their programs, or for those writing Rexx function libraries or 
SubCom or exit handlers in C. Includes C source examples and “makefiles” for Microsoft 
Visual C++ tailored for Visual Studio. 


Many of the above add-ons and tools support the Regina interpreter as well as Reginald. These include 
the REXX Dialog, Speech Function library, RexxUtil, Math Functions, Regular Expressions, RxComm 
Serial Add-on, RxSock, MIDI Rexx, MIDI I/O, and Rexx 2 Exe. 


Windows GUI 


One of the most important Windows-specific features of Reginald is the ability to create GUI dialogs for 
user interaction. Reginald calls this the REXX Dialog, or RXDLG, feature. REXX Dialog enables Reginald 
scripts to create and control the Windows graphical user interface. 


The Reginald GUI functions are implemented as an external function library in a DLL file called 
rxdlg.d1l1l. Once REXX Dialog is installed, Reginald can autoload these functions so that they are trans- 
parently available to any Reginald script you write. Reginald’s Administration Tool makes this easy. 


The REXX Dialog add-on will also work with the Regina interpreter, but it offers additional error-handling 
features under Reginald, as well as the ability to be autoloaded. 


Alternatively, you can manually initialize (or “register”) Rexx external functions for use from within any 
script that employs them. Do this by coding the function RxFuncAdd to register one external function 
for use. Better yet, code the special Reginald function RxdlgLoadFuncs to register all the REXX Dialog 
functions in the DLL with a single line of code. Call function RxdlgDropFuncs to drop all the functions 
once the script is done using them. 


After making the dialog management functions available to the script, invoke function RxErr to estab- 
lish how REXX Dialog will report any errors. 
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Next, set values for various controls, graphical objects that appear inside a window displayed to the user. 
Then invoke the RxCreate function to create and display the window that has those controls. Now the 
script issues RxMsg call(s) that allow the user to interact with the window’s controls. With a RxMsg call, 
the script waits while the user manipulates the controls. RxMsg awakens the script when the user takes 
an action that needs to be handled by the script. The script then accesses information describing the user 
interaction and responds to it. 


A script may repeatedly call RxMsg to interact with the user until the user takes an action to end the 
interaction. Or a script may invoke RxMsg only once, if the user interaction is a one-time event rather 
than an extended interaction through the window. 


With these capabilities, scripts interact with users through one or more windows and through simple or 
extended interactions. Later in this chapter we present several scripts that show how to program basic 
GUI interfaces with REXX Dialog. 


This table lists the major functions of REXX Dialog: 


REXX Dialog Function Use 

RxCreate Creates a new window with relevant controls 

RxErr Establishes the error-reporting protocol for REXX Dialog 

RxMsg Controls user interaction for a window 

RxSay Displays a pop-up message (a message box) 

RxFile Presents a file Dialog for the user to choose a filename 

RxQuery Returns the value or property attribute of an open 
window, group, or control 

RxSet Sets the value or property attribute of an open window, 
group, or control 

RxInfo Returns information about the REXX Dialog environment 
to a script 

RxRunRamScript Runs a series of Rexx instructions in memory (RAM) 

RxRunScript Runs a child REXX Dialog (RXDLG) script 

RxD1gLoadFuncs Makes all REXX Dialog functions available for a script 

RxDlgDropFuncs Terminates use of the REXX Dialog functions by a script 

RxFuncAdd Makes one specific external function available for use by 
a script 

RxMakeShortcut Creates a shortcut, an icon that links to a file 


All dialog functions provide a return code. Check it for failure and to respond to any errors. Rexx condi- 
tions such as SYNTAX and HALT can also trap errors. The RxErr function customizes how Reginald han- 

dles errors via automatic message boxes and other techniques. Sample scripts later in this chapter show 

how RxErr displays a comprehensive set of error messages. 
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REXX Dialog supports the windowing concepts needed to create a typical GUI. Among them are con- 
trols, window moving and resizing, menus, accelerator keys, online help, timeouts, child dialog scripts, 
and window modal states. 


REXX Dialog also supports a basic set of Windows controls. These include push, radio, and checkmark 
buttons; entry, list, and drop boxes; tree, spin, slider and text controls; a group box; and a menubar. 
REXX Dialog hosts Internet Explorer’s rendering engine to allow your script to easily display any 
content that would appear upon a Web page, such as clickable Internet links, graphics, tables, scrolling 
banners, and so on. 


In summary, Reginald’s REXX Dialog package provides everything required to create professional 
Windows user interfaces. 


GUI Development Aids 


An independently developed Dialog Editor called RxDIgIDE works in conjunction with REXX Dialog. It 
allows you to use the mouse to graphically lay out a dialog with its controls, and then the tool generates 
a skeleton REXX script to create that dialog. 


This Dialog Editor is itself written in Rexx and uses REXX Dialog. It can run as a RexxEd macro, so it 
appears under RexxEd’s macro menu and can output its skeleton script directly to a RexxEd editor 
window for manual editing. 


The full name of RxDIgIDE is the REXX Dialog IDE (or interactive development environment). It comes 
with a dialog resource editor that manages graphical components and integrates with RexxEd. 


Input/output 


Reginald supports the standard Rexx streaming I/O model and all the standard functions (charin, 
charout, chars, linein, lineout, lines, and stream). Reginald also offers many additional built-in 
functions and features pertaining to the Windows file system. These include opening a file in shared mode 
(i.e., allowing more than one program to access the one file simultaneously), creating and deleting directo- 
ries: deleting, renaming, moving files; obtaining a directory listing, resolving paths, reading and writing 
numeric quantities from binary files; listing the drives and media on a system; and so on. Wildcard patterns 
can be used as arguments to many of these functions so that entire groups of files are affected in one func- 
tion call (for example, to manipulate an entire directory of files with a single function call). 


Here are some of the extra I/O functions in Reginald: 
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Dir 

Directory 

ChDir 


DeleteFile 


MoveFile 
CopyFile 
State 


MatchName 


SearchPath 


DriveMap 


DrivelInfo 


Path 


Qualify 


FileSpec 


EditName 


ValueIn 
ValueOut 


LoadText 


Reginald 


Use 


Creates or deletes a directory or directory tree 
Returns the current directory or changes it 
Changes the current directory 

Deletes one or more files 

Moves (or renames) one or more files 

Copies one or more files 

Existence-tests a file or stream 


Finds the first or next file in a directory that matches 
the given pattern; also returns file information such as 
size, attribute bits, last write date and time, and so on 


Finds a file or directory or gets the value of an environ- 
mental variable or returns the location of special folders 
such as the Windows directory 


Lists all drives having specified attributes, such as all 
CD-ROM drives 


Retrieves drive information such as free space 


Gets a full path name from a filename, queries the cur- 
rent directory, and/or splits a path name into separate 
elements 


Returns a full path name from a filename 
Returns part of a path name 


Transforms a filename into a new name according to a 
template possibly containing wildcards 


Reads binary values in as numeric values 
Writes one or more numeric values as binary values 


Reads the lines of a text file into a stem variable, or 
saves a stem variable’s lines to a text file 


For those accustomed to Windows programming, the power of the Reginald’s I/O functions should 
readily be apparent. They provide the functionality necessary to create Windows applications. They put 
Rexx scripting on competitive footing with any other approach to Windows programming. 


Another alternative is to use Reginald’s Open Database Connectivity, or ODBC, drivers to write scripts that 
connect to data sources such as Microsoft Access, Microsoft Excel, and Borland’s dBASE database. 
ODBC also connects to commercial databases such as Oracle, DB2, and SQLServer, and to open-source 
databases like MySQL and PostgreSQL. 
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A third option is to use the SQLite interface. SQLite is an embedded, open-source, SQL desktop database. 
SQLite is a good tool for scripts that require data management but do not need a large, multiuser 
database. See www. sqlite.org for further information and downloads of SQLite. 


Documentation and Tutorials 


Reginald features comprehensive documentation. Each tool has a help system that you can use to learn 
how to code using the tool. Reginald offers a number of complete tutorials that are all freely download- 
able from the Web site: 

Learn REXX Programming in 56,479 Easy Steps 

Programming with REXX Dialog 

Using Reginald with a Common Gateway Interface (CGI) 


Using Reginald to Access the Internet 


CoOoovo do 


Using Mailslots with Reginald 


The package includes Learn REXX Programming in 56,479 Easy Steps, an easy-to-read tutorial. This online 
book downloads with Reginald, self-installs, and places an icon on the Windows desktop for quick 
access. Through it, Reginald’s developer shares his comprehensive knowledge of Rexx programming in 
the Windows environment. 


Reginald includes well-commented sample scripts for every one of its additional features. The kinds of 
coding techniques you can learn from them include how to: 


Create GUI windows and user dialogs with REXX Dialog 
Download a Web page or file from the Internet 

Send email, optionally with attachments 

Put text onto the Windows clipboard 

Create a Zip archive from several files 

Use the SQLite DLL to read rom and write to local SQL databases 
Manipulate the mouse pointer on the screen 

Play video and audio clips 

Place an icon in the Windows System Tray 

Play a MIDI file 

Recursively search a directory 

Read file attributes and information 


Read Windows Registry values 


Cocvocvocvovovooceovocodeo oo 


Launch and run an independent “child” script 
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Reginald provides the hooks into the Windows operating system that other Rexx interpreters lack. If you 
need Windows-specific programming capabilities, Reginald provides them. 


Other Features and Functions 


This section describes other features or functions that represent Reginald extensions to standard Rexx. 
First, we'll take a look at how scripts issue Windows operating system commands. This is achieved in 
the same manner as with any other Rexx interpreter, but the topic is worthy of discussion from the 
standpoint of the Windows-specific programs one can launch. We'll also discuss operands on the 
options instruction, the Windows Registry, exception conditions, how to invoke Windows DLLs, and 
extended functions and instructions. Following this quick tour, subsequent sections introduce sample 
Reginald scripts that illustrate device, file, and drive management; GUI programming; speech synthesis; 
and how to update the Windows Registry. 


Operating system commands 


With Reginald, scripts can issue operating system commands to the CMD environment. This includes all 
Windows shell and command-line commands. Unless you frequently program under Windows, the 
range and power of Windows commands may not at first be evident. Keep in mind that you can invoke 
any Windows application. These bring broad power to your scripts. The examples that follow hint at the 
Windows-specific applications Rexx scripts can invoke by a single statement. 

For example, this code sends a command to the CMD environment that invokes Microsoft Word: 


address 'CMD' /* send OS commands to CMD environment */ 
'winword.exe file_to_edit.doc' /* invoke Microsoft Word editor a / 


Windows file associations are active. This makes it easy to start various Windows applications. For 
example, to run a Windows Media Player on a * .mpg file, you could code: 


'c:\videoplayer\my_clip.mpg' 

Similarly, you can run an audio clip by issuing a command string like this from the Rexx script: 
'c:\audioclips\my_audio_clip.wav' 

A single statement brings up and displays a Web page: 
'webpage.htm1' 


You can also start up Notepad by issuing a single statement. Start Notepad with an empty panel, or 
place the user into editing a specific file by naming it on the statement, like this: 


'c:\windows\notepad.exe file_to_edit.txt' 


Scripts gain complete power over Windows features when a knowledgeable Windows programmer 
integrates commands into his or her scripts. Here we’ve shown how to access Windows applications 
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such as Microsoft Word, the Windows Media Player, the Edge browser, and Notepad. The same 
principles (and easy access) apply to any other Windows applications you want your Rexx scripts to 
start, manage, and control. 


It is important to note that some obsolete Windows operating systems always give return codes of 0, regardless 
of whether the OS command succeeds or not. Error conditions FAILURE and ERROR are never raised. 

This is not a flaw in Reginald but rather an aspect of the Windows operating system that the interpreter 

does not control. This behavior has long since been corrected in current Windows versions but we 

mention it for completeness. 


Scripts may need to verify commands by some means other than just checking command return codes. 
Chapter 14 demonstrates some techniques to use to accomplish this. 


You can run a series of programs or files from one directory by using Reginald’s IterateExe function. 
This function launches an external program a number of times. Employ a filename pattern to select 
which files in a directory should run. 


Reginald’s POpen function is an alternative way to issue shell commands. Command output goes into 
the array specified on the POpen function, and variable position 0 (e.g., array. 0) contains a count of 
how many lines were output into the array. Process the array to process the lines output by the 
command. 


This sample code issues the operating system dir or directory command. The POpen function 
directs output from this command to the dir_list array (which must be specified in quotes). If the 
command return code were 0, the script would display the resulting directory listing: 


feedback = POpen('dir', 'dir list') /* issue the DIR command to Windows “fe 

if feedback <> 0 then /* iff return code <> 0, command failed */ 
say 'Error occurred in OS command' 

else do 
do j = 1 to dir _list.0 /* element 0 tells number of array items */ 

say dir_list.j /* display a line from the DIR command */ 

end 

end 


The extra I/O functions in Reginald perform many common OS tasks. Use them to move, copy, and 
delete files, get disk and OS information, and the like. Reginald reduces the number of OS commands 
scripts need to issue and provides better control over them. Built-in functions are also faster than 
sending commands to the operating system or using the POpen function. 


Options 


Reginald supports about two dozen Windows-oriented options for the Rexx options instruction. For 
example, the LABELCHECK option causes a SYNTAX condition to be raised if the same label name is used 
more than once in a script. This can help detect inadvertent errors due to cutting and pasting source code. 


Another example is MSGBOx. Turned on by default, this option tells Reginald to display error messages 
in a Windows message box, rather than a console or command-line window. Options like these enable 
scripts to control Reginald’s behavior in the Windows environment. 
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Windows Registry 


Reginald scripts can query, read, write, create, and delete Windows registry keys and values. The value 
function provides this access. By default, registry operations apply to the Current User directory, but 
they can also be applied to any other directory. Scripts read, write, create, or delete Registry files, and 
create or delete Registry directories. Later in this chapter, we present a sample script that retrieves and 
updates Registry information. 


GUI trace panel 


Reginald supports the standard Rexx trace facility, and adds a GUI interface. Its Debugger Window supports 
all the normal Rexx trace features. It displays two panels. The left panel shows trace interpretation, while 
the right one shows which lines in the script are running. The Debugger Window buttons for Run, Step, 
and Redo make it easy to step through scripts. 


Error conditions 


Reginald’s Raise instruction allows scripts to manually raise error conditions. Reginald’s USER condition 
allows scripts to define their own error conditions. This brings to Rexx a capability that many other pro- 
gramming languages support — the ability to define and raise your own exceptions. 


This sample code enables a new error condition and then raises it: 
signal on user 1 name my_error_routine 


Fe 36.5 dJNeSie slink “elavS) jonetofepeeint cag 7/ 


raise user 1 description "Raised User 1 Error Condition!" 
Fe 555 leieGre abn {eloYS jeneieyepetein oo 5 // 
my_error_routine: 
/* ... code to handle the user-defined exception goes here ... By 


Sek “USI” CroraelLieseia("C’)) “ieejoronciesye" Gyora¥elal catia, ((10)'")) /* write error msg */ 


The error condition is called USER, and its error number is 1. Reginald supports up to 50 different USER 
conditions, numbered 1 through 50. Use the condition function to retrieve information about the error: 


Qh condition('D') —Retrieves the error message 
QO condition('c') —Retrieves the user number 
Qh condition('m') —Displays a message box with the error message 


Windows DLLs 


Windows external function libraries are typically implemented as DLLs. These are like the shared libraries 
that provide external function libraries under Linux, Unix, or BSD operating systems. 
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For DLLs that were specifically written to be used with Rexx, register and load them through the SAA- 
compliant functions RxFuncAdd and RxFuncQuery. Or use Reginald’s Administration Tool to autoload 
the external function library. 


Reginald also allows script writers to access any DLL function from their Rexx scripts, even if those DLLs 
were not written with Rexx access in mind. This key feature extends to Reginald developers the full 
range of Windows functionality. Register DLLs that were not specifically designed to be used with Rexx 
through the FuncDef function. This requires a bit more information on the call but gives access to any 
Windows DLL. 


Sorting 


Reginald’s Sort statement sorts items within an array. The format is: 
sort stemname. [template] 


This statement sorts all items within the array stemname. The optional template is similar to the tem- 
plate used on a parse instruction. It controls matching string patterns, positional effects, and placehold- 
ers. The template allows for sophisticated sorts: by offset and length, on multiple values or criteria, in 
descending order, with or without case-sensitivity, and utilizing search strings. 


Multiple stacks 


Reginald scripts can have multiple stacks, of which one is active at any one time. The RxQueue function 
creates and deletes stacks. This function is also used to specify which stack is currently used. Reginald’s 
Makebuf, Dropbuf, and Desbuf functions create, drop, and destroy all buffers within a stack. The 
Queued function returns the number of items in the current data stack. The Buf Type function returns 
information about the current stack for debugging purposes. One benefit to buffers is that you can easily 
delete all items placed on them by a single function call to Dropbuf. 


Parameter passing 


Reginald includes the Use Arg function to provide more sophisticated forms of parameter-passing 
between routines. This function makes it easier to pass multiple values between internal routines. It is 
especially useful in returning large amounts of data to a caller. 


do over loop 


Reginald includes the do over loop to allow enumerating all the compound variables that use a given 
stem. This is useful in processing all the variables that use a given stem name (even if you do not know 
how many there are or what tail names they use). 


Here’s an example. This code displays all the variable names used in the array named array. 
do j over array. 


Seny Tera,” ||| a 
end 
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If you initialize the array contents like this: 


Bvtayiee wax 
axrvay i = sb! 
array. o =) oe 


array <9 =: 'd! 
Then the code outputs the array element names in use: 


array.1 
array .2 
array.5 
array .9 


This helps you keep track of which array elements are used, especially when you’re working with a 
sparse array (an array in which only certain slots or positions are used). do over does not guarantee any 
particular order in enumerating the tails. 


do over is useful in processing all elements in an array with a simple loop. This example sums all the 
numeric values in an array: 


/* find the sum of all elements in the array B re 


end 
say sum /* writes the sum of the array elements, which here is: 8 */ 


Here’s another example that adds 5 to every element in an array: 
do j over array. 
array.j = array.j + 5 


end 


do over is very convenient for quick array processing. While syntax may differ, the do over concept is 
implemented in several other Rexx interpreters including roo!, Open Object Rexx, and NetRrexx. 


Array indexing 


Reginald allows use of brackets to specify a compound variable as if it were a single tail name to be sub- 
stituted. For example, execute these two statements in sequence: 


MyVar.i = 5 
MyStem. [MyVar.i] = 'hi' 


Reginald treats MyVar .i (in MyStem. [MyVar .i]) as a single variable name whose value will be substi- 


tuted. Therefore, Reginald substitutes the value 5, and the variable name becomes MyStem.5 after 
substitution. 
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Improved interpret instruction 


Reginald’s interpret instruction allows you to signal to some label outside of its string parameter. 
Reginald also allows a return or exit instruction within the string. A return aborts the execution of the 
interpret string and resumes at the instruction after the interpret statement. An exit aborts the script. 


Other functions 


Reginald includes many built-in functions beyond the ANSI standards. In addition to the extra I/O func- 
tions mentioned previously, there are many other functions to retrieve system information, access exter- 
nal libraries, perform bit manipulation, and perform other activities. Let’s briefly take a look at these 
functions and what they have to offer. 


Q 
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System information functions — This group of functions are based on those often seen in Unix sys- 
tems. They return information about environmental variables, the process identifier (PID), the 
current user identifier (UID), and the operating system and CPU. The unixerror function is 
useful for debugging. It returns the textual error message for a specified error number. Here are 
the system information functions: 


OQ = getenv— Returns the value of an environmental variable 
getpid— Returns the process ID (PID) of the process that launched the script 
uname — Returns OS and CPU information 


unixerror — Returns the error message for an operating-system specific error number 


Ooo wo 


userid— Returns current username 


External access functions — These functions permit access to external function libraries. Four of 
the functions (rxfuncadd, rxfuncdrop, rxfuncquery, and rxfuncerrmsg) support the SAA 
interface to external function libraries. These allow Reginald scripts to access any of the open- 
source interfaces or tools described in Chapters 15 through 18 in the manner illustrated in those 
chapters. funcdef is a Reginald-specific function. It makes an external function library avail- 
able to Reginald scripts even if that library is a DLL that was created without any knowledge or 
reference to Rexx. It makes any Windows DLL available to Rexx scripts. 


OQ =funcdef — Makes an external function in any DLL available to a script 
querymacro — Test if a Rexx macro is already loaded 

rxfuncadd— Make a Rexx-compatible external function available to a script 
rxfuncdrop — Drop availability of an external function 


rxfuncquery— Test if an external function is available for script use 


ooo vo oOo 


rxfuncerrmsg— Return the most recent error message from rxfuncadd or funcdef 
calls 


Stack functions — This group of functions is similar to those available in many other Rexx inter- 
preters. They manipulate the external data queue, or stack, as described in Chapter 11: 


QO buftype— Prints debugging info about the stack 


QO desbuf— Deletes stack contents 


Reginald 


dropbuf — Deletes one or more buffers 
makebuf —Creates a buffer 


queued — Returns number of lines in the current stack 


O coco o 


xrxqueue — Creates or deletes stacks 


Miscellaneous functions — Finally, Reginald offers a wide selection of miscellaneous functions. 
steminsert and stemdelete are of particular interest. These operate on any entire array (or 
stem variable) and serve to maintain that table as an ordered list during maintenance operations: 


beep — Makes a sound or can play a WAVE file 
bit — Performs bit operations on a value 
convertdata— Converts binary datatype to Rexx variables, or vice versa 


expand — Replaces tab characters with spaces in a string, or vice versa 


O coco oOo 


iterateexe — Runs non-Rexx programs multiple times, as selected by file matching 
criteria 


justify— Formats words in a string 
sleep — Suspends script execution for a specified number of seconds or milliseconds 
steminsert — Inserts elements into an ordered stem 


stemdelete— Deletes various elements of an ordered stem 


Oo oO oO O 


random— Returns a random number within a specified range 


Leveraging Reginald 


Before we discuss some sample Reginald scripts, let’s ensure that you are familiar with and know how 
to leverage Reginald’s development toolset. These GUI tools make scripting faster and easier. Here are a 
few key tools: 


Q 


Script Launcher — This GUI panel launches Rexx scripts. It presents a dialog panel that looks like 
the standard Windows file-selection panel. Pass arguments to scripts through the Launcher, and 
interact with scripts that issue say and pu11 instructions through the Launcher’s console window. 


Administration Tool — This tool administers the scripting environment. Its GUI panel makes it 
easy to set options and trace levels, set paths so that scripts can locate unqualified filenames, 
and set values like numeric digits, fuzz, and form. It autoloads external function libraries, so 
the code that makes those libraries accessible does not have to appear in your scripts. It also 
autoloads exit handlers, functions written in other languages that modify Reginald’s behavior. 
Using an exit handler, for example, you could change the way the say instruction works so that 
it pops up a message box instead of writing a line to the console. 


Rexx Text Editor (aka RexxED) — This editor is designed for writing and testing Rexx scripts. Its 
GUI features color-coded syntax, a full help system, a built-in macro language, and other fea- 
tures designed for Rexx scripting. 
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Q RxDIigIDE—This independently developed dialog editor works in conjunction with REXX 
Dialog. It allows you to use the mouse to graphically lay out a dialog with its controls, and then 
the tool generates a skeleton REXX script to create that dialog. It can run as a RexxEd macro, so 
it appears under RexxEd’s macro menu and can output its skeleton script directly to a RexxEd 
editor window for manual editing. 


Sample Scripts — File, Directory, 
and Drive Management 


Let’s start with a simple script that uses some of Reginald’s extended built-in functions to manage files 
and disks. These functions search through and manage files, manipulate filenames, and control folders 
and disks. 


This program retrieves and displays information about the computer’s disk drives, then lists specific 
information about the C: drive. Here’s the script output: 


List of disk drives Ge wel Ear 
List of CDROM drives Dg \ ime \ 
List of removable drives: A:\ 


List of RAM drives 
List of Network drives 


Information about your C: drive... 
Drive Type : FIXED 

Serial Number : 548597677 

Volume Label 


Size g DBUPSS5S LAOS 

Bytes Free e252 7 294464 

Filesystem : NTFS 

Filename length: 255 

Drive Flags : 00000000000001110000000011111111 


Press <ENTER> to continue 


Here’s the script itself: 


[RRRRRERKREREREREREKEREERKEKEREKEREEKKKEREKREREKREREKEKEREKKEEE KK | 


/* DRIVES INFO wif 
his </. 
/* Tllustrates a few Reginald drive information functions. yf 


[RRR RREREKRREKRERREREKERE KEKE KEKE KERK KKK KEEKKKERKKKEREKKKEREKKAE KKK / 


/* display information about the machine's disk drives oe 
say 'List of disk drives : ' DriveMap(, 'FIXED') 

say 'List of CDROM drives : ' DriveMap(, 'CDROM' ) 

say 'List of removable drives: ' DriveMap(, 'REMOVABLE' ) 

say 'List of RAM drives : ' DriveMap(, 'RAM') 

say 'List of Network drives : ' DriveMap(, 'NETWORK') 
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say ''' 


/* display information about the C: drive ay 


feedback = DriveInfo('drive_info') 
if feedback <> 0 then say ‘Error on DrivelInfo call' 


else do 
say ‘Information about your C: drive...' 
say 'Drive Type 80 Cherie alinic@,, 4 
say 'Serial Number :' drive_info.2 
say 'Volume Label si arive anto.3 
say 'Size g! Chea7a_stialig@,, JL 
say 'Bytes Free gu Chedwe_slinico, 0) 
say 'Filesystem 8° Cherie alinic@y,,'5) 
say ‘Filename length:' drive_info.6 
say 'Drive Flags 9 0 Chase atiaie@, 7/ 
sey 7 7 

end 


say 'Press <ENTER> to continue'; pull 
exit 0 


This script relies on two built-in functions to accomplish its work: DriveMap to get information about 
disk drives and DriveInfo to get details about a specific drive. 


The first block of code in the sample script issues the DriveMap function to retrieve information about 
the PC’s drives. The script omits the first parameter in calling DriveMap, which specifies which drive to 
start the query with. Leaving this out prompts DriveMap to return a list of all drives matching the crite- 
ria. The second parameter is a keyword that specifies the kind of drives we’re querying for. The example 
uses all possible keywords: FIXED, CDROM, REMOVABLE, RAM, and NETWORK: 


say 'List of disk drives : ' DriveMap(, 'FIXED') 
say 'List of CDROM drives : ' DriveMap(, 'CDROM' ) 
say 'List of removable drives: ' DriveMap(, 'REMOVABLE' ) 
say 'List of RAM drives : ' DriveMap(, 'RAM') 

say 'List of Network drives : ' DriveMap(, 'NETWORK') 


The second code block makes a single call to DriveInfo. This function returns a several data items 
about one particular drive. This encoding omits the drive name, so it defaults to the C: drive. The quoted 
name drive_info is the array or stem variable that DriveInfo populates: 

feedback = DriveInfo('drive_info') 


The script displays the information returned in the array if this call succeeds and its return code was 0: 


say ‘Information about your C: drive...' 


say 'Drive Type :' drive_info.4 
say 'Serial Number :' drive_info.2 
say 'Volume Label :' drive_info.3 
say 'Size :' drive_info.1 
say 'Bytes Free :' drive_info.0 
say 'Filesystem :' drive_info.5 
say ‘Filename length:' drive_info.6 
say 'Drive Flags :' drive_info.7 
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Example — display file information 


The next sample script retrieves and displays information about a file. The program reads a filename 
from the user, opens that file, and displays basic information about the file: its full name, size, date of 
last modification, and attributes. Then the program reads and displays the several lines that make up the 
file. 


Here’s sample output for this script: 


Enter file name: 


Tesi Jkey sige) siiayowWlie ede, <= The user entered this line 
File Name : C:\Reginald\Reginald\hf\file_info_input.txt 
File Size 4 Ba 

Last Modified: 7 7 2004 22 34 33 

Attributes : 00000000000000000000000000100000 


The file has 4 lines. Here they are: 
line 1 of the file 

line 2 of the file 

line 3 of the file 

last line of the file! 


Press <ENTER> to end program... 


In this example, the user enters the filename of £ile_info_input.txt ,and the script lists some basic 
information about the file and displays the four lines that make up that file. 


Here is the script: 


[RRRERRREKEKKEKERKEEKERKEEERKKEREKKAEERKKKERERKERKEREREKEERKEKKKE KE / 


fio Jetta, ICO) yf 
px =), 
/* Lists information about a file and displays its contents. ny 


[RRRRRERKRREKKRREREKERERKEKEREKEKE KEK KER EK KERKKKEREKEKAKEKKER EK / 


/* get the file name from the user, verify the file exists oe, 
say 'Enter file name:' ; pull filename 
say 


if state(filename) then do 
say 'File does not exist:' filename 
say 'Press <ENTER> to end this program' ; pull 
return 1 

end 


/* retrieve and display information about the file ay 
feedback = MatchName(,'FileInfo',filename,,'NFSDA') 


if feedback = '' then do 
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say 'File Name :' FileInfo 
say 'File Size gil jas ikeurinieo)., 0) 
say 'Last Modified:' FileInfo.1 
say ‘Attributes at arlene) 2 
say 
end 

else 


say 'Error on retrieving file info about:' filename 


/* read and display all the file's lines by the LOADTEXT function */ 
/* IN_LINES.O will be set to the number of lines that are read Bey 


if LoadText('in_lines.', filename) then do 
say 'The file has' in_lines.0 'lines. Here they are:' 
Gall Leadtext ('in tines, 9"S") 

end 

say 

say 'Press <ENTER> to continue...' ; pull 

exit 0 


The script prompts the user to enter a filename. After he or she does so, the script ensures that the file 
exists with this code: 


if state(filename) then do 
say 'File does not exist:' filename 
say 'Press <ENTER> to end this program' ; pull 
return 1 

end 


The state built-in function returns 1 if the file does not exist and 0 if it does. The script simply displays 
an error message and terminates if the file does not exist. 


Next, the script uses the MatchName built-in function to retrieve information about the file. Mat chName 

is quite flexible. It can test for the existence of a file or directory, based on either attributes or a wildcard 
file reference. It can also return information about the file, which is its use in the script. This shows one 

possible use: 


feedback = MatchName(,'FileInfo',filename,, 'NFSDA') 


The variable name, FileInfo, represents a stem or array that will be populated with the results of the 
MatchName call. filename is simply the input filename (as entered by the user), while the string NFSDA 
requests the information the script requires: 

OQ) wN—Returns the name of the matching item 

Q ¥F—Returns the fully qualified name of the matching item 

QO) s—Returns the file size 

QO) p—Returns the date of last modification 

Q A—Returns the attribute string 
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So the string NFSDA tells MatchName to return the unqualified filename (NF), the file size (S), the date of 
last modification (D), and the file attribute string (A). 


MatchName returns the null string if it succeeds. In this case, the script displays the file information: 


if feedback = '' then do 
say 'File Name :' FileInfo 
say 'File Size :' FileInfo.0 
say 'Last Modified:' FileInfo.1 
say ‘Attributes :' FileInfo.2 
say 
end 

else 


say ‘Error on retrieving file info about:' filename 


MatchName can do a lot more than shown here. You can specify file attributes as part of the file search 
mask. You can even specify wildcard filenames. This is useful for listing (and processing) all the files in a 
folder that match specified criteria. An upcoming example demonstrates this. 


Finally, the script reads and displays the lines of the file. It reads the entire file into an array (a stem vari- 
able) in one statement by the LoadText function. It displays the entire file to the screen by a single call to 
LoadText as well. Here is the code: 


if LoadText('in_lines.', filename) then do 
say 'The file has' in_lines.0 'lines. Here they are:' 
call LoadText('in_lines.',,'S') 

end 


The first parameter to the LoadText function is the stem variable name. It must end with the period that 
denotes an array name. The second parameter is the file to read or write. In the first call, this is £ile- 
name, the file to read. In the second invocation, it is not coded, which means to use the default device. In 
that second call, the final parameter ( 'S' ) tells LoadText to save or write the data, rather than read it. 
Since the call specifies the default device, this displays the lines in the array on the user’s screen. 


This line shows that LoadText places the number of lines it reads into the Oth element of the array: 
say 'The file has' in_lines.0 'lines. Here they are:' 


The ability to read or write an entire file in a single statement is very convenient. It demonstrates the 
kind of power that Reginald functions add to standard Rexx. 


Sample Scripts — GUIs 


One of Reginald’s big advantages is its support for Windows GUI development. The REXX Dialog exter- 
nal function library supports this through its dozen or so functions. REXX Dialog supports all kinds of 
Windows widgets including push, radio, and checkmark buttons; entry, list, text, and drop-down boxes; 
trees, spin counters, and sliders; groups, menus, and HTML pages. We show only a few very elemental 
examples here to demonstrate the basics of how to work with REXX Dialog. 
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This first script displays a text entry box to the user. The user enters some text into this box, as shown in 
Figure 23-1. Then the script reads and echoes this text to the user in a message box, as shown in Figure 23-2. 


™) Main Window 


Enter text: 


Figure 23-1 


Here is the script: 


You entered... 


hi there 


Figure 23-2 


[RRRRRKRRRKKEKEREKEEREKRERKKKKEREKKREREKKEREREKKEREKREEKKKKEKKEKEREK / 


/* DISPLAY INPUT 


/* 


/* Illustrates the basics of GUI interaction. 
/* Displays a text ENTRY box, writes back the user's input by 


/* displaying it in a MESSAG 


E box. 


ea 


[RRRRRKEREERERKKEREEKEKEREKRERE KERR KKK ERE KKERRKKEREKEKEKEKKERER | 


/* trap errors for HALT/SYNTAX/ERROR, ask for ERROR raising 


signal on halt 
signal on syntax 
signal on error 


Call hee 


/* set values for the Text Entry 


aueage YU ERROR | DISPLAY ' 


mes 1 
RxType.1 = 'MENU' 
RxFlags.1 = '' 

RxLabel.1 = 'MENU' 

RxType.2 = 'ENTRY' 
RxFlags.2 = 'REPORT' 
RxLabel.2 = ‘Enter text: |' 
RxPos.2 = “ail 4 S150" 


/* 


/* 


/* 


/* 
/* 
/* 


displays error messages 


box window 
"RX" will be our Window ID. 


group type is MENU for a menu 


establish the ENTRY box 
through which the user will 
enter some text 


or 


Bh 


Ap 


ar 


ey) 


i 
pals 
ais 


405 


Chapter 23 


RxVal 22 = 'text' 


/* now create the window (NOCLOSE keeps this window open) ef 

call RxCreate 'RX', 2, 'Main Window', 'NOCLOSE' 

do forever 
call RxMsg /* invokes user interaction /| 
if RxID == '' then signal halt /* exit if users clicks CLOSE*/ 
/* display the text the user enters in the ENTRY text box wf 


Tee ee Ee eh. 
button = RxSay(text.1,'OK', 'You entered...') 


end 

syntax: /* handle errors here. Me 

lave ILic; ¢ /* RxErr with DISPLAY option wy! 

error: /* displays a nice error msg box */ 
call RxMsg, 'END' /* close ENTRY box window, exit */ 
exit 


The script issues several REXX Dialog functions, but it does not contain any code to access those external 
functions! Normally, you’d expect to see code like this to load the external function library: 


feedback = RxFuncAdd('RxDlgLoadFuncs', 'RXDLG', 'RxDlgLoadFuncs') 
if feedback <> 0 then say 'ERROR- Cannot load RxDlgLoadFuncs function! ' 


feedback = RxDlgLoadFuncs () 
if feedback <> 0 then say 'ERROR- Cannot load Rexx Dialog library!' 


Actually, the script could include this code to register and load the REXX Dialog external function library. 
But we’ve chosen to use the Administration Tool to autoload the rxdlg DLL instead. Just start the 
Administration Tool by double-clicking on it. The right-hand side of the panel allows you to autoload 
function libraries. rxd1lg.d11 may already be listed as autoloaded. If it is not, just press the Add button 
and add it to the list. Now, none of your scripts will need to include the code to register or load this 
external function library. This eliminates repetitiously coding these lines at the start of every script. It is a 
simpler approach, especially when a script accesses several external function libraries. 


Because it does not include code to load the REXX Dialog external function library, the script starts by 
enabling error trap routines. This line is of special interest: 


call RxErr 'ERROR|DISPLAY' /* displays error messages ey 
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It is common to invoke RxErr at the start of a Reginald GUI program to establish error handling for the 
script. This automates error handling very nicely, and replaces explicit code in the script to manage 
errors. Figure 23-3 shows the kind of output RxErr displays when a programming error occurs. It is both 
complete and automated. 


Cc ™ 
ye REXX Error QE 
Missing type: Group 3, Control 1. 


In the REXX script named: 
C:\Reginald\Reginald\hf\display_input_error.rex 


At line number: 34 


call RxCreate "RX", 22, "Main Window", "NOCLOSE* 


pie 


Figure 23-3 


REXX Dialog works with groups, sets of identical controls or widgets. The major kinds of groups are listed 
earlier (Push Button, Entry Box, and so on). To create a window, first assign values to variables that define 
the appearance and operation of a group. This code, for example, sets the variables for the Menu group: 


RxType.1 = 'MENU' /* group type is MENU for a menu */ 
RxFlags.1 = ''' 
RxLabel.1 = 'MENU' 


This code sets variables for the Entry group (the text entry box into which the user types the phrase the 
program echoes): 


RxType.2 = 'ENTRY' /* establish the ENTRY box a A 
RxFlags.2 = 'REPORT' /* through which the user will */ 
RxLabel.2 = 'Enter text:|' /* enter some text */ 
RxPos.2 = '-1 5 5 150' 

RxVal.2 = 'text' 


The variables that must be set for each group are unique to the type of control. It’s not necessary to go 
into them all here to understand the script. Reginald’s comprehensive documentation describes them all 
and gives examples for each. 


Every window must have a Window ID. Ours will be named Rx. After all group variables have been set, 
invoke the RxCreate function to display the window: 


call RxCreate 'RX', 2, 'Main Window', 'NOCLOSE' 
The first parameter is the Window ID, the second is the number of groups in this window, and the third 


is the window title. NOCLOSE specifies that the script lets the user manually close the window, rather 
than automatically closing it for him or her. 
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With the window displayed to the user, the script enters a loop that repeats until the user manually 
closes the window and terminates the program. These lines start that loop: 


do forever 


call RxMsg /* invokes user interaction ae 


The call to the RxMsg function allows user interaction with the window. Here the call is simple. We just 
want the script to display the window and wait for user interaction. RxMsg has several parameters for 
more complicated interactions, for example, to manage interaction with multiple open windows or to 
clear pending messages for windows. 


Control returns to the script after the user takes some action upon the open window. REXX Dialog sets 
variables so that the script can figure out what the user did: rxid and rxsubid. The simplified interac- 
tion in this script checks only for two values of rxid: 


if RxID == '' then signal halt /* exit if users clicks CLOSE*/ 
/* display the text the user enters in the ENTRY text box * 


if RxID == '2' then 
button = RxSay(text.1,'OK', 'You entered...') 


If rxid is the null string, the script knows the user clicked the close box in the window, so it exits. 


If rxid is set to 2, the script knows the user entered a text string into the Entry box and pressed the 
<ENTER> key. This is the case the script needs to respond to. As shown earlier, the response is to display 
the text string the user entered in a message box. The RxSay function does this. Its first parameter, 

text .1, is a variable set to the text string by the user interaction. Figure 23-2 shows that OK is the label of 
the button the user presses to acknowledge the message box, and that the string you entered... is the 
title of the message box. 


When the user decides to exit, the script terminates by closing the main window: 
call RxMsg,'END' /* close ENTRY box window, exit */ 


To summarize, this simple example illustrates the basic logic many REXX Dialog scripts employ: 


1. Establish error handling — through error traps and the RxErr function 


2. Set variable values for groups. The variables that need to be set depend on the controls that are 
used. 


» Call RxCreate to display the window. 
- Call RxMsg to control user interaction with the open window. 
. Inspect variables set by REXX Dialog to determine how the user interacted with the window. 


. Close the window and exit with a final call to RxMsg. 
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More advanced scripts can employ more groups and controls and allow more sophisticated user interac- 
tion. This simple script shows how easy it is to get started with basic GUIs. Windows is a highly interac- 
tive environment. Along with Reginald’s extensive tools and functions, this means you can start 

scripting Windows GUIs quite quickly. 


Another GUI Example 


Here’s a more advanced GUI script. This one displays an Entry box for user data entry, just like the pre- 
vious script. But this time, the user enters a wildcard filename with a filename extension. Figure 23-4 
shows the user entering the extension * . rex. The script finds all files having that filename extension 
and displays them in a text box. Figure 23-5 below displays this output. 


™) Main Window 


Figu 


Here is the script: 


re 23-4 


“TText 


display_directory_files.rex 
display_input.rex 
display_input_error_.rex 
do_over.rex 

drives_info.rex 

file_info.rex 
old_display_directory_files.rex 


old_drives_info.rex 
old_file_info.rex 
popen_example.rex 
speak_wav_files.rex 
speech.rex 
takin_chances.rex 


Figure 23-5 


[BRRRRRKREREKEREREKEREEKEKERKKEKKEREKKERE KEK EREKKEREKKEREKEKEKEKKEREK | 


/* DISPLAY DIRECTORY FIL! 
/* 
/* Displays all files in 


ES esi 
iif 
a directory. oy 


[BRRRREREKKEKRERKKEREREKEEEKEKKEREK REE EKKKEREKKEREKKEREKRKEKKKKEREK / 


call setup_error_traps 
call set_window_1_values 


/* set up the error trap routines*/ 
/* set up values for ENTRY box ce} 
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call RxCreate 'RX', 2, 'Main Window', 'NOCLOSE' 


do forever /* do until user closes window i 
call RxMsg /* invokes user interaction ff 
ae S000) == 7! ielaein Cutcpayel inelic / Exaile aie wees Clicks Closing ~/ 
slic iS) = TRY elevesal Elo) /* continue if extension... Bid 

raeysuuilic; = Tp iLakehe, YY 
do until result <> '' /* get all files w/ the extension*/ 
result = MatchName(, 'File', text.1) 
iit mesudlic = 9" Coe ligt = ids ||| Pile ||| "|" 
end 
die disse = jelaveyar 
call RxSay 'No files with this extension', 'OK', 'Warning!' 
else do 


/* display results in 2nd window, a multiline TEXT box*/ 


Ro = 00 i Vancow LD tes: URED” Ley] 
Rx2Type.1 = 'TEXT' /* use a TEXT box ah 
Rx2Flags.1 = 'NOBORDER' /* how the text displays*/ 
Rx2Label.1 = list /* the text to display */ 
Rx2Pos.1 = TL & alg /* display position reff 
call RxCreate 'Rx2', 1, 'Text', 'RESULT' /* make window*/ 
call RxMsg /* do the interaction Bi 
end 


end 
end 


The script starts by invoking two internal routines that (1) set up the error routines and invoke RxErr 
and (2) initialize all the variables required for the text Entry box: 


call setup_error_traps /* set up the error trap routines*/ 


call set_window_1_values /* set up values for ENTRY box ef 


These two internal routines are not shown in the preceding listing because their code is exactly the same 
as in the previous sample script. The line that displays the Entry box is also the same as that of the previ- 
ous script: 


call RxCreate 'RX', 2, 'Main Window', 'NOCLOSE' 
When the user enters a filename extension into the text Entry box, the script identifies this by the fact 


that REXX Dialog sets the value of rxid to 2. The script enters a do loop that reads filenames with the 
extension the user requested via the MatchFile function: 
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result. sy" ee lastes 7" 

do until result <> '' /* get all files w/ the extension*/ 
result = MatchName(, 'File', text.1) 
if result = '' then list = list || File || '|' 

end 


The MatchName function should look familiar; the earlier sample script named File Info used it to 
retrieve file information. In this case, no options are encoded for the MatchName function, so it returns a 
filename that matches the search parameter. The variable text .1 specifies the search parameter. In this 
case, this search string includes a wildcard. This parameter is the input the user entered into the text 
entry box. For example, the user might input: 


eet 
Or the user could input this information as the parameter: 
* rex 


As MatchName retrieves the filenames that match the user’s wildcard pattern, the script concatenates 
them into a list: 


if err = 0 then list = list || File || '|'! 
Each element in the list is separated by the vertical bar (| ). If the list has no elements, no filenames matched 
the user’s search criteria. In this case, the script displays a message box telling the user that no filenames 


matched the pattern he or she entered: 


if list = '' then 
call RxSay 'No files with this extension', 'OK', 'Warning!' 


If some files are found, the script displays them to the user in a text box. This code sets the necessary val- 
ues for the text box control: 


RZ = 6 /* Window ID is 'RX2' a7 
Rx2Type.1 = 'TEXT! /* use a TEXT box */ 
Rx2Flags.1 = 'NOBORDER' /* how the text displays*/ 
Rx2Label.1 = list /* the text to display */ 
Rx2Pos.1 S21) 8918 /* display position */ 


Next, these two lines create the text box window, display it to the user, and control his or her interaction 
with it: 


call RxCreate 'Rx2', 1, 'Text', 'RESULT' /* make window*/ 
call RxMsg /* do the interaction */ 


When the user closes the text box, control returns to the script. 


At this point, the user again sees the original text entry box. He or she can enter another wildcard filename 
pattern, or terminate the program by closing the window. 
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This simple program shows how you can integrate Reginald’s built-in functions for file management 
with REXX Dialog GUI functions. Reginald provides a full set of GUI groups, controls, and techniques. 
We have shown only the basics here. See the REXX Dialog online book that downloads with Reginald for 
complete information and more scripting examples. 


Let My Computer Speak! 


The last example can easily be modified to do something other than displaying a list of matching files in 
a text box. For example, instead of building the list of files and displaying them, code this line as the sole 
action for each file that matches the user’s extension criteria: 


if err = 0 then File 


Since File contains the complete filename, this line sends the filename to the default command environ- 
ment (the operating system), and which executes the file. For example, if the user enters this into the 
entry box, the program would execute all * . bat files found in the directory. 


9 loyal 


Similarly, if the user enters the following, the program would send each file in the directory with the 
* .wav extension to the operating system as a command. 


* wav 


Windows recognizes the “Wave” file as an audio clip, and invokes the Windows Media Player to run it. In 
this case, the program would run the Media Player for each Wave file in the directory. So, this program 
could be used to play all the songs or audio clips in a directory, for example. 


If you want your computer to talk to you, Reginald’s extensive sound libraries can do the job. The exter- 
nal Speech Function Library allows scripts to use a synthesized voice to pronounce or speak text. It uses 
the sound card or speaker to “play” the text. Reginald’s MIDI Rexx Function Library enables scripts to 
read, write, play, and record MIDI files. MIDI, or Musical Instrument Digital Interface, is a standard that 
allows computerized connection and control of musical instruments. Reginald’s MIDI library enables 
input/output to MIDI ports. Of course, MIDI files are often used just to play music on the PC. They are 
another PC audio file format. 


Let’s discuss the Speech Function Library. It allows you to encode text strings in scripts that the sound 
card on the PC pronounces. What makes this interesting is that scripts can dynamically generate the text 
strings the sound card speaks. This provides computer-synthesized voice without the need to record 
audio clips in Wave files or other storage-consuming formats. 


How could this be used? Since speech is a generalized computer/human interface, the potential is open- 
ended. Use it as complementary output to typical GUI interfaces or to help the visually impaired. In one IT 
project, the author used synthesized speech combined with a telephone autodialer to phone and read error 
conditions to support staff on their cell phones. (Well, maybe this was not the best use of this feature. . . .) 


To set up Rexx Speech, simply download and install it from the Reginald Web site. Use the Administration 


Tool to add its DLL, named rxspeech.d11, to the list of autoloaded function libraries. You must also 
ensure that your Windows PC has a SAPI-compliant speech engine installed. For Windows XP and newer 
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versions, the operating system comes with this facility installed by default. For older Windows versions, 
you may have to download and install the SAPI ActiveX control from Microsoft Corporation. The Rexx 
Speech documentation has the link to the module you require, or just access www.microsoft.comand 
search for the file named spchapi . exe or for the keywords SAPI speech engine. Once you locate the 
module, download it and double-click on it for automatic installation. Be sure that your PC’s speakers are 
turned on and working before you verify the installation! 


Using the Rexx Speech function library is easy. The library contains about 10 functions, and their use is 
straightforward and well-documented in the online book that automatically downloads with the library. 


Take a look at this sample script: 


[BRERRERERKKEKRERKKEKERE KERR REE KERKKKKEEEKEKEREKKAEREKKERKKREEKEKKEREK / 


/* SPEECH */ 
(pe oy 
/* Shows how to have your PC speak from text. rey 


[RRRRRKEREKEREREKERREKEKEKKEKKERE KERR KKK EREKKEREKAEREKEKEKKEKERER | 


/* open the default speech engine, get ready to pronounce text */ 


voice = SpeechOpen () 


GE Woke: S= 1" telayera clo 
say 'ERROR- could not initialize speech device!' 
return 
end 
/* Who says computers can't talk? af 


error = SpeechSpeak(voice, "This is your computer talking.") 
Wie Giaeowe \== VM" jelavein gyi TIIROR— wile io ieee” eicieoie 


/* close the speech engine and exit the program 2); 
call SpeechClose voice 
exit 0 
The script readies the speech engine by the SpeechOpen function: 
voice = SpeechOpen () 


This initializes the default engine with the default voice and readies it for use. If it returns the null string, 
it failed. Otherwise, it returns a voice parameter that is used during synthesis: 


error = SpeechSpeak(voice, "This is your computer talking.") 
The SpeechSpeak function should pronounce the string This is your computer talking. using the 


voice designated by the voice parameter. If it fails, it returns an error message. Otherwise it returns the null 
string. 
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When the program is done using the speech engine, it closes it by the SpeechClose function: 

call SpeechClose voice 
That’s all there is to it. Let’s look at some other features of the Rexx Speech Library. The 
SpeechVoiceD1g function, for example, automatically pops up a list of voices from the speech engine, 
from which the user can select the voice to use. You might invoke SpeechVoiceD1g at the start of the 


script to allow the user to select the voice the script employs: 


id = SpeechVoiceDlg() 


if id == "" then do 
say 'ERROR- could not get speech device ID!' 
return 

end 


voice = SpeechOpen (id) 


if voice == "" then do 
say 'ERROR- could not initialize speech device!' 
return 

end 


In this case, SpeechVoiceD1g returns a value that indicates which voice the user selected from the auto- 
matic dialog. Feeding this parameter into the SpeechOpen call means that subsequent invocations of 
SpeechSpeak use this voice. 


Prior to the calls to SpeechSpeak that synthesize the voice, you may want to make calls to: 


Q SpeechVolume— Controls the volume setting 


Q SpeechPitch—Sets the pitch 


C1 SpeechSpeed —Sets the speed of the speaking voice 


All three functions take the voice as their input parameter. The functions can be used to either set or 
retrieve current settings. 


GUI scripts that use REXX Dialog have the special feature that they can asynchronously control speech 
synthesis. The reason is that scripts need to synchronize user actions with voice. Rexx Speech’s asyn- 
chronous speech controls ensure that what is spoken matches the GUI interaction. 


MIDI Rexx 


Now let’s discuss MIDI Rexx. This external function library allows scripts to create, edit, save, play, and 
record MIDI files. This could either be used by musicians to integrate computers into their instrumenta- 
tion, or by the typical PC user to play music files. 


To set up the PC environment, download and install the MIDI Rexx package from the Reginald Web site. 
It consists of two self-extracting files: midifile.exe and genmidi . exe. At the end of the installation, 


you will have these two new DLLs on your system: 


QO) The MIDI file > midirexx.dl1l 


Q The GenMidi file> genmidi.dl1l 
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As always, we recommend using Reginald’s convenient autoload feature for access to the MIDI interface 
from your scripts. 


The typical MIDI script operates in this manner. First, it either loads an existing MIDI file into memory 
(RAM), or it creates a new empty MIDI file in memory. Call the MIDIOpenFile function once to establish 
the existing or new MIDI file in memory. All subsequent MIDI operations apply to a file in memory. 


MIDI files consist of tracks and events. Tracks are the larger entity, and multiple events occur within each 
track. MIDI Rexx allows scripts to add, modify, and delete events within tracks, add or delete tracks, and 
perform other kinds of processing. 


When a script creates a new MIDI file, it adds tracks or events by invoking the MIDISetEvent function. 
If the script loads an existing MIDI file, it typically calls MIDITrack to set the search track. Then it 
accesses individual events by calls to MIDIGetEvent. Scripts typically access one event at a time by 
calls to MIDIGetEvent to perform their processing. MIDISetEvent allows scripts to change aspects of 
the currently selected event. When scripts are through processing a MIDI file, they save it to disk by the 
MIDISaveFile function. 


In a manner very similar to the Rexx Speech Library, MIDI Rexx passes information to and from scripts 
through a set of variables. The documentation clearly explains what variables are relevant to each MIDI 
Rexx function and how they are used. Here’s a list of the MIDI Rexx functions: 


MIDI Function Use 

MIDICt1Name Returns the controller name 

MIDICt1Num Returns controller number for a controller name 

MIDIEventProp Returns information about an event 

MIDIGetEvent Searches for the next event matching some criteria 

MIDIGetInfo Returns information about the currently loaded MIDI file 

MIDIGetGMDrum Returns a MIDI drum key name or note number 

MIDIGetGMPgm Returns the MIDI program name 

MIDINoteName Returns the note name for a note number 

MIDINoteNum Returns the note number for a note name 

MIDIOpenFile Loads a MIDI file into memory, or creates a new MIDI file in 
memory 

MIDIPortName Returns the MIDI port name for a specified port number 

MIDISaveFile Saves a MIDI file from memory to disk 

MIDISetEvent Inserts a new event or updates an existing one; can also delete 
event(s) or tracks. 

MIDISysex Returns bytes from the currently selected Sysex event 

MIDITrack Sets or queries the track for searches 
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Accessing the Windows Registry 


Reginald provides complete access to the Windows Registry. Directories and subdirectories can be 
accessed, created, and deleted. Files or individual entries can be read, updated, created, and deleted. 


The Windows Registry is essential to Windows’ operation. Before running any program against it, be 
aware that faulty updates can damage the operating system or even render it inoperable. Always back 
up the Registry before working with it. To do this, select the Run... option from the Windows Start but- 
ton. Start one of the Registry editors, for example, by entering regedit as the command in the Run box. 
Within the Registry Editor, select File | Export... and export the entire Registry to a file. 


Review how your particular version of Windows backs up and recoveries the Registry and other vital 
system information before running any test program against the Registry. Better yet, test any program 
that interacts with the Registry on a test instance of Windows. 


For maximum safety, programs that manipulate the Registry should always verify return codes. The 
sample script omits error checking in the interest of brevity and clarity. 


By default, Reginald functions work in the Current User section of the Registry 
(HKEY_CURRENT_USER). After discussing the sample script, we'll show how to access other portions of 
the Registry. 


The sample script performs these Registry operations: 


1. Creates a new directory and a new subdirectory to itin Current User 
2. Creates a new file (entry) in the subdirectory 
- Retrieves and displays the value assigned to the new file in the Registry 


: Pauses so that the user can see the new directory, subdirectory, and file through the Registry Editor 


F Determines whether the new file was deleted and writes a confirming message 


3 

4 

5. Deletes the new file 

6 

7. Deletes the subdirectory and directory 
8 


‘ Pauses so that the user can confirm all deletions through the Registry Editor 


The logic of the script is simple. It just performs one operation after another. It uses the value function 
to read and change Registry values. Here is the script: 


[RRRERRKREERKKKEKEKKEEKKE REE KEKKKAERK KEE KK RRR KE RKEKKKKEKEKKKERKKKE KE / 


/* TAKIN' CHANCES afi 
ps Hf 
/* Illustrates Reginald's ability to work with the Registry. Myf 
ffs aif 
/* CAUTION- Backup Registry before running this program! 2 i/ 


[RRRRRERERRERERREREKERERKEKEKEKEKA ERK KEREKKAEREKKEREKKKEREKKKE KKK / 


/* create a directory and a subdirectory to it tay 


fd = value("My Dir\", AUIS A"? )) 
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fd = value("My Dir\My Sub-Dir\", , "WIN32") 
/* create and display a file within that subdirectory yf 


fd = value("My Dir\My Sub-Dir\My File","TEST DATA ONLY", "WIN32") 


say 'Registry data:' value("My Dir\My Sub-Dir\My File", , "WIN32") 
say 'Press <ENTER> to continue...' ; pull 

/* delete the registry file and prove that it is gone ay 
fd = value("", "My Dir\My Sub-Dir\My File", "WIN32") 

if value("My Dir\My Sub-Dir\", "My File", "WIN32") == 1 


then say 'Registry file exists' 
else say 'Registry file has been deleted' 


/* delete the directory and subdirectory we created ey 
fd = value("", "My Dir\My Sub-Dir\", "WIN32") 
iol = Wellwe(O, MNiny IDatic\” "WIN32") 


say 'Registry directory and subdirectory have been deleted' 
say 'Press <ENTER> to exit...' ; pull 
exit 0 


In the script, these two lines create the directory, then the subdirectory: 


fd 
fd 


value("My Dir\", , "WIN32") 
value("My Dir\My Sub-Dir\", , "WIN32") 


The value call specifies the first parameter as a directory or subdirectory, which must end with the 
backslash (\). The second parameter is omitted and the third parameter is the environment, which will 
always be WIN32 when accessing the Registry. value returns a null string if successful. If the directory 
already exists, no error occurs. 


Next, this line creates a new file entry within the new directory and subdirectory. The first parameter 
specifies the location and the second, the new value to insert. This script inserts a new file with the 
value: TEST DATA ONLY. If the file already exists, this action overwrites any previous entry: 


fd = value("My Dir\My Sub-Dir\My File","TEST DATA ONLY", "WIN32") 


Next, this line retrieves the new file value the script just inserted and displays it on to the user. Because 
no second parameter or “new value” is specified, this value call retrieves information: 


say 'Registry data:' value("My Dir\My Sub-Dir\My File", , "WIN32") 
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At this point, the script pauses so that the user can verify the new Registry information via the Registry 
Editor: 


say 'Press <ENTER> to continue...' ; pull 


To verify the new Registry entries, just open a separate window while the script waits, and access the 
Windows Registry Editor from within this new window. Now you can inspect the Register to see the 
changes the script made. Assuming the new file value and its directory and subdirectory appear, the 
user presses the <ENTER> key to continue processing. If there is a problem, he or she can press Ctrl-C to 
abort the script. 


Having made its Registry updates, the script cleans up after itself by deleting the information it added to 
the Registry. Next, this line deletes the file entry. The absence of the first parameter specifies deletion. No 
error occurs if there is no such file to delete: 

fd = value("", "My Dir\My Sub-Dir\My File", "WIN32") 


Then the script deletes the directory and subdirectory it previously created: 


fd value("", "My Dir\My Sub-Dir\", "WIN32") 
fd = value("", "My Dir\", "WIN32") 


The script ends by pausing so that the user can use the Registry Editor to verify that the Registry has 
been properly cleaned up. 


By default, Reginald functions work in the Current User section of the Registry 
(HKEY_CURRENT_USER). To work in other areas of the Registry, just specify the location as the first part of 
the directory name. This example retrieves a value from within HKEY_LOCAL_MACHINE: 


seed = value ("HKEY_LOCAL_MACHINE\HARDWARE\SYSTEM\WPA\PnP\SEED", , "WIN32") 


To summarize, Reginald scripts can perform any desired Registry operation. Reginald provides a simple, 
straightforward set of functions for this purpose. Back up your Registry before testing or running any 
programs that alter it. 


Summary 


This chapter gives a quick summary of Reginald’s comprehensive Windows programming environment. 
It delves into a bit of detail in only the areas of GUI management and file management. These epitomize 
the OS-specific features Reginald offers Windows programmers. 


Reginald distinguishes itself by its integration into Windows, its ability to program the Windows envi- 
ronment, and its comprehensive self-teaching documentation. Reginald presents an easy-to-use, yet 
powerful, alternative to proprietary Windows-programming technologies. 


This chapter also presented several sample scripts that demonstrate the extended features of Reginald 
Rexx. They demonstrate several file functions, and also a bit about how to create GUI interfaces with 
REXX Dialog. We looked into speech synthesis and the MIDI interface, and finally presented a script that 
accessed and updated the Windows Registry. 
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These sample scripts only suggest the wide-reaching functionality of the Reginald package. While 
Reginald is powerful, its complete documentation makes it easy to get started. Windows developers are 
urged to download and investigate the tools for themselves. 


Test Your Understanding 


1. 
2. 


10. 


11. 


What are some of Reginald’s key advantages? 


What kinds of documentation come with Reginald? Would you need any documentation 
beyond what downloads with the package in order to use it? 


What functions do you use to give Reginald access to external function libraries (DLLs)? Do you 
need to code these functions in every script that uses external libraries? 


Can Reginald scripts access Microsoft Excel spreadsheet data or Microsoft Access databases? If 
so, how? How do Reginald scripts access MySQL and PostgreSQL databases? 


Your boss has told you that you'll be developing Web site code using the Common Gateway 
Interface (CGI). You have to start on it by Monday! Where can you get a tutorial on how to do 
this and get up to speed in a hurry? 


What two functions provide information about disk drives? What function do you code to 
retrieve file attribute information? Does the file have to be opened before you can retrieve this 
information? 


What function would you use to read binary information written to a file by a C++ program? 
How does Reginald read and/or write arrays in one statement? 


If you've never written a GUI using REXX Dialog, what package might you use to help generate 
skeletal code? 


What do these key REXX Dialog functions do: RxErr, RxCreate, RxMsg? How do they fit 
together in the basic logic of many REXX Dialog programs? What variables do REXX Dialog 
scripts analyze to discover what the user did? 


Compare the purposes of the Speech and MIDI Function Libraries. How do they differ? Which 
would you use to send control information to a keyboard instrument? Which would you use to 
read a document aloud? 
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by Howard Fosdick and Tony Dycks 


Overview 


One of the amazing features of Rexx is that it runs on computers ranging from the world’s largest 
supercomputers down to the smallest devices. And it works very effectively on that wide range 
of computers. 


This chapter takes a look at Rexx scripting on the smallest computers: single board computers, or 
SBCs. We'll introduce the terminology of this world, and how programming projects must adapt to 
the constraints it presents. Then we’ll talk specifically about how Rexx can be deployed to benefit. 
We'll give examples from experience about how to install and take advantage of Rexx, Open Object 
Rexx (or ooRexx), and NetRexx on SBCs. 


In the next chapter we'll explore the related topic of how to run Rexx on cell phones and other 
handheld devices. While programming smart phones differs from that of single board computers, 
some of the hardware constraints you'll face when working with those small devices are similar. 


SBCs 


Single board computers are complete computers built on a single circuit board. This includes a 
microprocessor chip, memory, input/output devices, and the supporting circuitry needed to 
create a fully functional computer. SBCs differ from desktops in that they don’t rely on expansion 
slots, large cases, extensive cooling systems, or large-footprint disk drives. SBCs differ from 
laptops in that they are not typically packaged with human interface devices like display screens, 
keyboards, touchpads, or mice. SBCs strip a computer down to its essentials. 
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SBCs often rely on SoC’s, or Systems On a Chip to achieve their density. SoC’s integrate most key computer 
functions onto a single chip. This minimizes space, power, and cooling requirements — fundamental design 
requirements for SBCs. SoC’s may include the processor, memory, input/output control, graphics processing, 
cache memory, and other circuitry. Specialized SocC’s can include such additional features as 

communications interfaces, radio modems, digital or analog signal processing, or other functions. It all 
depends on the specific use for which the SoC is designed. 

To summarize some of the differences between SBCs and traditional desktop and laptop computers: 

C1 Higher density of functional integration (based on higher levels of single-substrate circuitry integration) 
SoC’s are common 


ARM or other processors are common (rather than Intel or AMD CPUs) 


Resources like processing power and memory may be lesser than desktops or laptops 


Oo O O DO 


May use SD (Secure Digital) cards for storage, rather than disk drives. Mini forms like SDHC / SDXC 
/ SDUC are common, as are other form factors like micro-SD. Inexpensive eMMC flash storage is 
also common. 


C1 Rarely bundles human-interface peripherals like displays, touchpads, keyboards, mice, etc 


Ll Cases are optional, since embedded uses are common 


Uses 


The allure of SBCs is that their small size, and correspondingly low power and cooling requirements, 
mean that they fit an incredibly wide range of different applications. Educational use, home automation, 
intelligent machines, media streaming, hobbyist experimentation, robotic control, factory automation, cell 
phones, tablets, and the Internet of Things (IoT), all spring to mind as use cases. 


In embedded computing, the SBC becomes part of a larger product. It may represent “the brains” or 
intelligent controller for the machine in which it resides. Embedded systems often control real-time 
operations and must be responsive to their specific domain. Factory robots offer an example. 


Physical computing refers to how systems can sense and respond to the world in which they exist. Various 
kinds of sensors enable the SBC to gather information about its environment, and then respond to changes 
in that environment using the physical capabilities it controls. 


In all these cases, the SBC is part of a dedicated system: a specialized computer designed and assigned to a 
specific purpose. This is as opposed to a general purpose computer like your laptop or desktop. 
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The market for SBCs has exploded since 2012 when the first truly popular product came on the market — the 
Raspberry Pi. In the past year alone, some 50 million Raspberry Pi’s were sold. Of course, the original 
Pi has evolved into a family of SBCs with different sized boards and capabilities. 


Dozens of companies now compete head-to-head with the Pi. As we transition into the Internet of Things, 
the future appears bright for future growth of the SBC marketplace. 


SBCs vary widely in capabilities, size, power, heat dissipation, and other features. To give you a more 
concrete idea of functions, take a look at this typical board layout: 


40pins: 28x GPIO, I2C, SPI, UART 


a 8 
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Raspberry Pi 
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GigaEthernet 
RJ45 


Ethernet 


Power in 


Raspberry Pi5 (courtesy of SparkFun Electronics via Wikipedia CC BY 2.0) 


The Software Stack 


Desktops and laptops are highly standardized compared to SBCs. You can take a popular operating system 
(OS) and graphical user interface (GUI), and expect them to work right out of the box when installed. SBCs 
differ much more among themselves. Depending on the board and its architecture, you may find some 
software products work better than others — and some may not work at all. What the projects in this chapter 
prove is that once you have a working operating system environment, you can be assured that Rexx will run 


as well. 
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Given that SBCs typically offer lesser processor and memory resources, it’s important to select a 
lightweight operating system as host. Various forms of Linux are popular: they’re open source and 
highly configurable, not to mention that they cost nothing up-front and are free of commercial license 
entanglements. Many lightweight and ultra-light versions are available. 


Graphical user interfaces are well-known as heavy resource consumers, so a lightweight GUI is also 
needed. It may be desirable to run headless in some situations, that is, without a monitor. In other cases, 
run with a line command interface. Next up the ladder in resource requirements are Windows Managers, 
software that provides basic GUI functions without all the bells and whistles. And finally, there are 
complete Desktop Environments: easiest to use and most convenient, but also most expensive in terms of 
resource use. 


In our projects, we found it necessary to test a number of Linux distributions and interfaces to 
discover what worked best with our specific SBCs. We won’t get into that here, as what you'll need 
will be based on your specific SBC hardware and its architecture. Suffice it to say, if your SBC is not 
certified for the operating system you select, some testing or experimentation may be necessary. 


Rexx 


Given its unique combination of programming simplicity with power, it’s not surprising that Rexx has a 
long history with small devices. In the first edition of this book some years ago, we described how Rexx 
worked with Pocket PCs, Windows CE, Windows Handheld, Windows Mobile, Palm OS, Nokia’s 
Symbian OS, EPOC32, and EPOC. The next chapter tells how to run it on Android. 


Rexx also works well with embedded DOS in all its forms, including DOS emulation. DOS versions like 
FreeDOS, ROM-DOS, PTS-DOS, RxDOS, and REAL/32 continue to be popular for SBCs and embedded 
systems, as do DOS emulators like DOSBox, Magic DosBox, and others. 


Thus, in the small-systems universe, Rexx has proven itself as: 


C1 Simple 

C1 Capable 

O Lightweight and fast 

Ll Stable (lacking need for upgrades caused by a constantly-evolving product) 

L) Well standardized (with universal adherence to the TRL-2 and ANSI-1996 standards) 
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Open Object Rexx 


Open Object Rexx (or ooRexx) is a true superset of classic Rexx that adds full object-oriented 
programming capabilities. It’s useful for SBCs because it allows you to either program 
procedurally or with object-oriented classes and methods. (And, as chapters 27, 28, and the 
appendix on ooRexx classes shows, the language offers a very full range of classes and methods.) 


BSF40o0Rexx 


Java's popularity as a programming language has led to its becoming a standard interface language for all 
sorts of platforms and projects. You can add full Java support and the Java libraries to ooRexx by installing a 
tool called BSF4ooRexx. BSF400Rexx stands for Bean Scripting Framework for ooRexx. It provides a full-fledged 
bridge between ooRexx and Java. With it, you can exploit the power of Java classes, methods, and other 
features from within the easy-to-use ooRexx scripting language. 


In short, everything available in Java becomes available from ooRexx: 


L) All Java class libraries and their methods 


Full access to whatever Java or its tools and libraries can control 


a) 
CL] Camouflages Java as ooRexx (Java appears to be dynamic and message based) 
L 


Allows you to escape some aspects of Java you might consider irrelevant in a tightly- 
controlled and carefully programmed SBC environment (eg, strict typing, its C/C++ influenced 
syntax, etc) 


CL] Allows you to benefit from a language that is simpler to code than Java while retaining 
its benefits and power 


Of course, to use BSF400Rexx you must install the requisite Java runtime software support. 


NetRexx 


Another way to reap the benefits of Java and its power while realizing a simpler programming interface is 
to install NetRexx. 


Like ooRexx, NetRexx yields all Java’s capabilities within the context of a simpler language. But there is at 
least one important difference: while ooRexx is a true superset of classic Rexx, NetRexx is best described 
as a “Rexx-like” language. It is not syntax-compatible with traditional Rexx. 


With NetRexx, you can write Java applications and beans. On the server side, you can create 
servlets and Java Server Pages. NetRexx scripts ultimately compile into Java byte code. They use the Java 
Virtual Machine. (In fact, NetRexx was the first language after Java itself to take advantage of the JVM.) 


As with the ooRexx/BSF400Rexx combination, with NetRexx you need to install the supporting Java 


facilities. Chapter 30 goes into more detail about NetRexx, its installation, uses, and basic programming 
examples. 
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Pi Feasibility Projects 


We conducted several projects using Rexx on the Pi. One project assessed and compared the viability 
and performance of several Linux distributions that employ the RPM Package Manager (RPM). We 
tested Red Hat, CentOS, openSUSE, Alma, and Oracle Linux. 


A second project was to determine if we could install a full Linux distribution with a Windows Manager, 
and then a full Rexx stack on top of that — all on a Raspberry Pi Zero or its equivalent, the lowest-end, 
least expensive Pi. This SBC had only 1 gigabyte of memory. For this project, we used Debian Linux. 


For the operating systems we installed the versions required for the ARM processors. We used tools like 
Balena Etcher or the Raspberry Pi Imager to burn images to SD cards, and FileZilla for transferring files 
from a Windows PC on the network to the Pi storage card. (Not all SBCs have internet connectivity.) We 
used Apache’s Subversion utility to ensure correct package selection and installation. 


The Rexx stack we installed included: 


LC) NetRexx 

LCL) ooRexx 

LI BSF400Rexx (the ooRexx — Java interface) 
C1 Regina Rexx 

L) Rexx/CURL (for internet communications) 


For our projects, we decided on these prerequisites for the products: 

C1 NetRexx -- a Java Development Kit IDK) package 

ooRexx -- Package: libncurses-dev for terminal control 
BSF400Rexx — a Java Development Kit (IDK) package, plus ooRexx 


Regina -- Package: build-essential (compiler suite for source code build) 


O O O ODO 


Rexx/CURL -- Debian Package: 1ibcur14-openss1-dev 
Here’s an example of how we started by installing some software prerequisites: 


sudo apt install subversion 
sudo apt install cmake 

sudo apt install g++ 

sudo apt install libncurses5-dev 
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subversion is Apache’s Subversion software control system. cmake and g++ allow for compiling from 
source code, and libncurses is the library we wanted to use for text-based terminal control. 


You can substitute in the package manager for your platform if needed (eg, substitute yum or zypper or 
dnf in place of apt). 


Installing a JDK 


Next, we decided to install and make available a Java Development Kit (JDK) as a prerequisite for ooRexx 
with BSF40oRexx and also for NetRexx. They minimally require a Java runtime environment. 


Several different JDKs are available. Among them are those from Oracle Corporation, BellSoft, and the open 
source product, OpenJDK. We selected the last of these three options. 


Here’s an example of how to install OpenJDK using the RPM Package Manager yum command: 


yum search openjdk 

sudo yum install openjdk-1.8 

export JAVA_HOME=/usr/1ib64/jvm/java-1.8.0 
export PATH=$JAVA_HOME/bin:$PATH 

javac -version 


You can use the first command to search for the OpenJDK. The second line installs the OpenJDK. 


The two export lines establish required environmental variables, $JAVA_HOME and anew search $PATH. 
In Linux you can set these in the .bashrc login file for the particular login user id you use. 


The final line simply double-checks the install version and verifies the environmental variables. 


In some distributions, for example openSUSE, you can issue the exact same code, except that you can replace 
the yum command with the zypper command. 


Installing NetRexx 


With the Java prerequisites in place, we move on to installing NetRexx. First, download NetRexx from any 
of several websites, such as NetRexx.org or its project home at Sourceforge.net. We used 
http: //www.netrexx.org/downloads.nsp. Then we followed these steps. 


1. Create a netrexx subdirectory off the /opt Path: 


cd /opt 
sudo mkdir netrexx 


2. Copy the download file to the system’s /opt/netrexx directory: 
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sudo cp S$HOME/Downloads/NetRexx3.09GA.zip /opt/netrexx 


3. Decompress (unzip) the downloaded archive file: 


cd /opt/netrexx 
sudo unzip NetRexx3.09GA.zip 


4. Update CLASSPATH and PATH environmental variables in your login profile: 


export PATH=SPATH:/opt/netrexx/bin 
export CLASSPATH=SCLASSPATH: /opt/netrexx/NetRexxC.jar:. 


Installing ooRexx 


Next, we'll install ooRexx. We do this by making a new directory for it called oorexx and a subdirectory called 
build. 


cd $HOME 
sudo mkdir oorexx 
cd oorexx 
sudo mkdir build 
cd build 


The svn checkout command brings the ooRexx code into the directory: oorexx-code-0 


svn checkout svn://svn.code.sf.net/p/oorexx/code-0/main/trunk oorexx-code-0 
cd oorexx-code-0 

sudo cmake 

sudo make 

install rexx -V 


cmake sets up forthe make and install commands, and we finish by verifying our work at the end by checking 
the interpreter’s version. 


Installing BSF40oRexx 


Find BSF400Rexx at its Sourceforge home, at the URL sourceforge.net/projects/bsf4o0orexx/. 


Download the BSF40oRexx install compressed file (its . zip file) into a directory of your choosing, and uncompress 
it. The default installation will reside in /opt /BSF400Rexx. 


Change to the subdirectory holding the install script and run that script: 


cd $HOME/bsf4oorexx/install/linux 
sudo sh ./install.sh 


Now copy the JAR file to the Java JRE Extensions Library and refresh the load library cache: 
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sudo cp bsf*.jar S$JAVA_HOME/jre/lib/ext 
sudo ldconfig 


Run a test program to ensure BSF4o0oRexx is installed and working properly: 


cd /opt/BSF400Rexx 
sh ./rexxj2.sh ./samples/classicRexxSamples/GetJavaSystemProperties.rxj 


Now you have a fully functional Rexx stack with both ooRexx/BSF40oRexx and NetRexx. You can 
code Rexx or NetRexx with complete Java functionality available. 


Installing Regina Rexx 


In order to have concurrent access to both ooRexx and Regina, the binary packages should reside in different 
/usr prefix directories. The is because two binary executable files exist in both ooRexx and Regina: rexx 
and rxqueue. Using different directories for ooRexx and Regina thus avoids naming conflicts. We installed 
ooRexx in the /usr/local directory, then BSF4o0oRexx, and finally Regina in the /usr directory. 


Here is how we installed the Regina Rexx interpreter from source code: 


cd /usr/local 
sudo cp SHOME/Downloads/regina-rexx-3.9.5.tar.gz 
sudo tar xvzf regina-rexx-3.9.5 

cd regina-rexx-3.9.5 

sudo ./configure -prefix=/usr 

sudo make 

sudo make install 


To test Regina to ensure it’s installed properly, check the version number: regina -v 


Here are the commands by which we installed Rexx/CURL from a source “tarball” ona 
Debian system: 


cd /usr/local 
sudo apt install libcurl4-openss1-dev 

sudo cp S$HOME/Downloads/RexxCURL-2.1.0.tar.gz 
sudo tar xvzf RexxCURL-2.1.0.tar.gz 

cd RexxCURL-2.1.0 

sudo ./configure -prefix=/usr 

sudo make 

sudo make install 


As always, we finish by testing for the product presence and its version: rexxcurl -v 


We concluded by running some of the test programs can be found in 
/usr/share/rexxcurl 


While we installed Regina and Rexx/CURL from source code, you could alternatively install 


from .deb packages (or.rpm or.apk files in other Linux distributions). It all depends on your 
package manager. 
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Practical Application 
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Marcel Diir of the Vienna University of Economics and Business wrote a thesis that demonstrates how 
to control the hardware functions of a Raspberry Pi SBC by programming it in ooRexx with 
BSF4o00Rexx. 


His programs manage the input/output of various Pi electrical pins that could be used to acquire 
information through environmental sensors, or send out signals to control equipment functions. We'll 
walk through two of his example programs. 


First, install ooRexx and BSF40oRexx as previously shown. Then, you need to install software that 
supports a software interface to the Pi’s hardware functions. You can pick any of several options: 


1. Pi4J software from https: //www.pi4j.com/ or GitHub at https: //github.com/Pi4Jd 
2. Pigpio (lower-level software that comes with Pi4J) 
3. WiringPi at GitHub at github.com/WiringPi/WiringPi 


Then, you must enable the Pi’s interfaces by this line command: sudo raspi-config 


Let’s start with a very simple example program that turns an LED light off and on. It switches a 
defined GPIO, called LED, between and high and low states in 1 second intervals. With apologies to 
the author for redacting some of his nice documentation, here’s the code: 


/*load required java classes*/ 

gpio = bsf.loadClass("com.pi4j.io.gpio.GpioFactory") ~getInstance 
RaspiPin = bsf.loadClass("com.pi4j.io.gpio.RaspiPin") 

pinstate = bsf.loadClass("com.pi4j.io.gpio.PinState") 


/*creates a digital output and set status of the output to low 
used output Pin --> GPIO 29*/ 

LED =gpio~provisionDigitalOutputPin (RaspiPin~GPIO 29,pinstate~low) 
== SNILICElN OUNCOUE joiin Om GunCl OEE 


say "program started" 
do forever 


LED~high => {ENA OME SIE IED) Oia 
call syssleep 1 
LED~low == jeUlisd OMiceUMiE/ MHD) Gieie 
call syssleep 1 

end 

exit 

:ixrequires BSF.CLS -- get Java support 
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Let’s walk through this code. First, the script initializes by loading Java classes via BSF40oRexx. 
These classes reside in the Pi4J JAR archive: 


gpio=bsf.loadClass("com.pi4j.io.gpio.GpioFactory") ~getInstance 
RaspiPin=bsf.loadClass ("com.pi4j.io.gpio.RaspiPin") 
pinstate=bsf.loadClass ("com.pi4j.io.gpio.PinState") 


This line identifies CPIO pin 29 for output, and assigns it to the default low state: 


LED=gpio~provisionDigitalOutputPin (RaspiPin~GPIO 29,pinstate~low) 
Here’s the driver. The last line is required to enable Java support via BSF400Rexx: 


say "program started" 
do forever 


ED~high -- turn output/LED on 
call syssleep 1 
.ED~ low -- turn output/LED off 
call syssleep 1 

end 

exit 

:irequires BSF.CLS -- get Java support 


Depending on how Pi is connected to other devices, you could use simple pin manipulation like this 
to control many other devices and their functions. 


Now, here’s the exact same program using WiringPi software support instead of PiJ4: 


-- define GPIO pin as output 
address system "gpio mode 29 out" 


-- define initial state of GPIO pin(GPIO 29) --> default "LOW" 
address system "gpio write 29 0" 


-- Switch outputpin on and off 


say "program started" 
do forever 


address system "gpio write 29 1" == jcUlicid OLE SUE / LIND) or 
call syssleep 1 
address system "gpio write 29 0" -- turn output/LED off 
call syssleep 1 

end 

exit 


This version of the program is coded procedurally — instead of with objects -- by using address 
system calls. As we previously stated, ooRexx supports either approach to programming. So you 
have choice. In both cases, you still have access to all Java capabilities through BSF40oRexx. 
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Here’s a second example program from Mr Dir. The Raspberry Pi can control devices using its hardware PWM pin. This 
program rotates the arm of aSG90 servomechanism up a maximum of +90 or -90 degrees, as based on the user’s input 


parameter: 
/* a a ak ee a a ee a ee yf 
ye ay) 
pe GPIO PWM ae 
ys with WiringPi support ne 
aes uh 
/* This example demonstrates the use of the PWM function of the “if 
/* Raspberry Pi. As an example, an SG90 servo is controlled with it. */ 
/* The servo can rotate approximately 180° if 
es a, 
/* hs es a ee eS Se ee ee ee ee ee */ 


-- Operating frequency of the servo is 50 Hz -> 20ms PWM Period 
--set GPIO Pin 26 to PWM mode 
address system "gpio mode 26 pwm" 


address system "gpio pwm-ms" -- PWM mark space mode 
address system "gpio pwmc 192" -- PWM clock divider 
address system "gpio pwmr 2000" -- PWM range 


=—pulicy CWwole = O,5 =2,5 ms —> Welues loeinweem 50) siatcl 250) 
--Duty cycle 150 = 0° == 50 ==$90° ==> 250 = 18O> 


address system "gpio pwm 26 150" --set servo to 0° 


do forever 
say " Enter a value between 50 and 250 
parse pull angle 

if angle >49 & angle < 251 then do 


" 


command = "gpio pwm 26 " angle 
address system command 
end 
else say "wrong input - must be between 50 and 250 " 
end 
exit 


The lines that start with address system perform the setup required for an SG90 servo. These details are as 
documented in its specifications and those of the attached Raspberry Pi. 


Then the do loop reads a user input and translates it into the gopio command to manipulate the servo. 


This program demonstrates you can drive SBC hardware to monitor and control attached devices through ooRexx with 
BSF4ooRexx, instead of using harder-to-code Java. 
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Summary 


With an exploding population of single board computers and the rise of the Internet of Things, the need for 
simple ways to program all these devices becomes critical. 


Rexx offers a simple, proven solution. It’s small size, standardization, stability, portability, and 
power all render it suitable for addressing this need. It’s also open source and freely available. 


Classic Rexx is one option. It’s simple and interfaces to hundreds of free and open source tools. 
ooRexx expands upon this base by adding object-oriented capabilities. In conjunction with 
BSF400Rexx, it opens up the full power of Java and its libraries to the simple syntax of Rexx. NetRexx, 
too, enables programmers to climb opon Java’s capable shoulders while enabling simpler coding 
solutions. 


In the first projects we described, we presented line commands that set up a full Rexx stack including 
classic Rexx, Object Rexx, and NetRexx. The latter two were armed with full Java capabilities. 
Whatever Java can do in their environment, they can do. 


The last two example programs showed how easy it can be to control low-level Pi functions with the 
proper software stack. ooRexx with BSF4ooRexx is an essential piece of the puzzle: it helps you 
perform any function Java can with the Pi while presenting a simpler, cleaner interface. 


Test Your Understanding 


Ll. = Whatare key differences between single board computers, and desktops and laptops. How do 
these differences affect your coding solutions? 


2. Why are so many SBCs sold without cases? 


3. Among classic Rexx, ooRexx, and NetRexx, which require Java support as their prerequisite? 
What JDK’s are available? 


4. What is Apache Subversion? Why might you use it? 
5. What is BSF4ooRexx and how is it used? Do you need to install it to code Java Beans in NetRexx? 


6. Say you're a system administrator who codes procedurally in Bash and Rexx. Do you need 
to learn object-oriented programming to code with ooRexx? 


7. You want to program a Pi to control a robot. How would you manage access to the pins to 
control the necessary hardware functions? 
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Overview 


As discussed in the previous chapter, Rexx has a long history of running on handhelds and cell 
phones. Rexx ran on now-obsolete devices like Palm Pilots, Nokia phones, and Pocket PCs. 


Rexx continues its strengths on small devices today in its use on Android cell phones and 
tablets. Android is by far the most popular operating system in the world for smartphones, 
and it has been for many years. It’s also widely used for tablets and specialty handhelds. 
Apple’s iOS is its only rival. Together, the two products wield a duopoly over phones and 
tablets. 


Android is developed by Google and the Open Handset Alliance. Most of Android is free and 
open source software, though the Google version does include some proprietary code. Android 
is based on a modified Linux kernel at its core. It then layers on much Android-unique code, 
including mobile applications, its own Application Programming Interface (or API), and 
middleware. 

This chapter explores three different ways to run Rexx on Android. Each has its benefits and 
limitations. We'll enumerate the kinds of tasks you can achieve by programming your Android, 
and walk you through some coding examples. By the end of this chapter, you'll be able to 
decide whether you're interested in further exploring Android scripting, and you'll know how 
to go about it. 


Let's get started. 


Three Options 


There are at least three Rexx interpreters available on Android. We'll discuss each in its own 
section: 

Ol BRexx 

CL) Rexx for Android (also known as “Rexxoid”) 

O_ooRexx for Android 
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BRexx 


We discussed BRexx in chapter 22, and explored its utility on small devices. Now we'll discuss its use 
specifically with Android. 


To run BRexx on Android, you need a software interface called the Scripting Layer for Android (or SL4A). SL4A 
allows developers to automate Android tasks in scripting languages instead of using Java. One of those 
scripting languages is Rexx. The advantage, of course, is that Rexx has simpler syntax than Java. Also, it’s 
much faster and easier to develop with an interpreted scripting language than a compiled language like Java. 


SL4A is a scripting host. It makes the Android API available to scripts through various interfaces called facades, 
designed to make programming easier. Some of the available functions are those for the camera, location, 
media recorder, media player, battery manager, and more. BRexx gives you a simple way to tap into this. 


Since SL4A is a prerequisite, you need to download and install it first. It is hosted at GitHub as project sl4a. 
Note that there have been questions about this project’s continuation, so you may need to download a fork 
instead. In this case, just search for “SL4A” at the GitHub repository. 


Next, download BRexx from its homes at GitHub https://github.com/vlachoudis/brexx or 
SourceForge at https: //sourceforge.net/projects/brexx/. Be sure your download includes the file 
android.r. At the time of writing, BRexx is not available in the Google Play Store. This may mean you need 
permission to install on your Android from third party or external sources. 


After installing these two items, start up SL4A, then navigate to the Android folder. You'll find a list of Rexx 
scripts, all with BRexx’s traditional file suffix of .r. From there you can run, edit, save, or delete scripts. 


Example BRexx Scripts 


Let’s take a look at a few sample programs. Here’s the traditional “Hello World” script: 


Caulil simjeomic eiacheescl, iY 
Gelli sNnyele@atelitiast tc 

msg = "Hello, World" 
call makeToast msg 


The first two lines start every BRexx Android script. They perform the necessary initialization of the 
environment. They load the BRexx Android functions and establish communications with SL4A. 


The last two lines set up and send the message to the screen. In Android, a toast is message that appears for a 


few seconds on the screen without disturbing the user, and then disappears. The call to makeToast via the 
Android API sends the toast to the user and makes the message appear on his screen. 


436 


Rexx on Android 


How about we take a photograph? Here’s an example script distributed with BRexx for the task. The 
cameraCapturePicture facade places the image in the filename specified by its operand: 


@aulil sunjoowic /euayclieoatcl, ie 
call AndroidInit 
call cameraCapturePicture "/mnt/sdcard/foo.jpg" 


Or we could engage the user in an echoing dialog. The dialogGetInput call prompts the user for 
input and receives it, while the ttsSpeak facade speaks its operand to the user: 


Celik alittomie euarelic@alrel ie 

call AndroidInit 

message = dialogGetInput ("TTS","What would you like to say?") 
say "Message=" messag 

call ttsSpeak message 


Here’s a more complete example. It was written by Eva Gerger of the Vienna University of Economics and 
Business in her thesis on Android programming with BRexx. 


The program retrieves the status of the battery and displays it to the user as a percentage. 


Galli aunjoorme Weuaclieeacl. ic 

call AndroidInit 

call batteryStartMonitoring 

call eventWaitFor "battery", 5000 
a = batteryGetLevel () 

say a 

call batteryStopMonitoring 

call makeToast Batterylevel a 


In this script, the batteryStartMonitoring call initiates battery monitoring. Monitoring takes time 
to develop results, so eventWaitFor waits of up to 5000 milliseconds for a battery event to transpire. 


Eventually the script captures the battery level via batteryGetLevel. Then it stops battery 
monitoring with batteryStopMonitoring, and displays the result via makeToast. 


Here’s another illustrative script by Eva Gerger. This one will send SMS text messages to the number of 
individuals the user specifies in response to the initial dialogGet Input prompt. 


Gall saunjsromic “aiacheose!.i 

call AndroidInit 

x = dialogGetInput ("Number of SMS to send","Pleas nter number of SMS to send:") 
Glo a = il jeo sx 


nr = dialogGetInput ("Phone number", "Pleas nter phone number:") 
call smsSend "tel:"nr, "You are number "i 
end 
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The do loop is executed for as many times as the user entered. Inside the loop, the dialogGetInput function 
prompts the user to enter a phone number. Then, the smsSend call sends a text to the entered phone number 
stating that "You are number" followed by an ascending integer. 


Location Example 


Ever wonder how your phone spies on you? This example program distributed with BRexx shows how 
easy it is to track your location: 


Gaull anjoxowit. “eiacheoscl . ie 
call AndroidInit 


say "Finding ZIP code." 
location = getLastKnownLocation() 
say location 
Loe = 780m (hocatcaom, ojos”) 
say "GPS=" loc 
if loc="null" then do 
loc = json(location, "network") 
say "Network=" loc 
end 
if loc="null" then do 
say "Unable to find location" 


exit 
end 
lon = 
Lon = json(loc, "longitude") 
lat = json(loc,"latitude") 
say "Lon=" lon 
say "Lon=" lat 


addr = geocode(lat, lon) 

say "Addr=" addr 

wis) = 3) skoun (eicloke, Yoxosicell CrorclS”)) 
say "Zip=" zip 


The getLastKnownLocation function estimates where you are. Then j son swings into action with 
geographical positioning (gps) and eventually finds your longitude and latitude. This ultimately allows the 
program to display your network location, longitude, latitude, and your postal or "zip" code. 


Of course, if you want to precisely and accurately pinpoint someone’s location, there’s a bit more to it than 


just this. But this simple program gives you a good idea of just how easy this is to program in a high-level 
scripting language. 
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Bluetooth Example 


For the final example, we'll see how to implement Bluetooth communications between two Android cell phones. 
Bluetooth is a short-range wireless communications protocol that can be used to exchange data between devices. 


These two programs were written by Eva Gerger. The screen shots below are from her presentation on her code 
at the Rexx Language Association annual symposium. 


The “server” script must be started prior to running the “client” script. 


These photos show their interaction. The server starts up and asks for connection permission. The user sends a 
message to the client: “Hello, over there!”. As you can see, the client receives that message: 


BMS F lose Ml 10:52 


Bluetooth permission request 


Bluetooth Server is Ready 


Tone ry | 
4d830770-5c4f -42cd-8bb4-ea31fe0a0f5b 


ello over there! 


Bluetooth Client Receives 
the Message 


Bluetooth Server Sends a Message 


Here is the server program: 


/* Server */ 

Ceulll aijoore Yetacleoucl. ie 

call AndroidInit 

call toggleBluetoothState true 

say "bluetooth is on!" 

call bluetoothMakeDiscoverable 300 

say "now discoverable" 

call bluetoothAccept "457807c0-4897-11df-9879-0800200c9a66", 0 
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say "connected!" 

message = dialogGetInput ("Your Message","Pleas nter message:") 
call bluetoothWrite message 

call sleep 10 


The calls to toggleBluetoothState and bluetoothMakeDiscoverable enable Bluetooth and make 
this device discoverable. 


The bluetoothAccept function looks for a Bluetooth connection. Note that the client has to use the same 
identity number as given in this call. 


Then the dialogGetInput call prompts the user to enter his message. The bluetoothWrite message 
call sends it to the connected client. 


Here is the client program: 


jee Cllskesane, £°7/ 

Call import ancieoat dire! 

call AndroidInit 

call toggleBluetoothState true 

a = bluetoothConnect ("457807c0-4897-11d£-9879-0800200c9a66”) 
say a 

call sleep 5 

a = bluetoothRead (4096) 

say a 

pull 


After initialization, just as in the server program, the toggleBluetoothState and bluetoothConnect calls 
enable Bluetooth and look for a connection matching the specified ID. 


The bluetoothRead function accepts data through the live connection, and the say statement displays it on 
the client device. 
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Rexx for Android (aka Rexxoid) 


Another scripting option is called “Rexx for Android,” or Rexxoid. Rexxoid was developed by Pierre G. Richard 
of Jaxo, Inc., sometimes referred to as Jaxo Systems. 


Rexxoid is based on Mr Richard’s C++ Rexx library. This code runs on most platforms, and was initially deployed 
on Palm OS. Richard updated it to Android and today it offers a way to code Rexx scripts that issue Android 
shell commands. 


You can download and install Rexxoid from the Google Play Store. In its GitHub home, at 
https: //github.com/Jaxo/yaxx, you'll find a half dozen sample programs as well as screen shots of the 
product in action. 


As is standard for Android apps, Rexxoid has a Manifest file that enumerates its permissions. If you encounter 
any errors requiring further permissions, this is where you can add them. 


When doing such work, it may be helpful to connect the phone to a laptop or desktop computer via USB cable. 
This also facilitates debugging. 


Rexxoid has a fundamentally different design than BRexx for Android. While BRexx uses the SL4A scripting 
interface, Rexxoid is primarily intended to issue shell commands. From this perspective, its functionality is a bit 
more limited. 


Example Scripts 


Here are a few code examples from a Rexx Language Association symposium presentation by Julian 
Reindorf using Rexxoid. The code is all by Mr Reindorf. Some lines wrap around due to screen wrap and 
typesetting restrictions, so we’ve included line numbers for clarity: 


Opening the browser: 


i Gawe Miliniein well ywoullcl ywow Like iG@ wise eY 
2 PARSE PULL url 
3 Vani SiEEuEE 2. BunCheOi.Cl, IuMcSiMNe -ACELOM., Win ——weer © Cl inicigos” ||| wel 


Using the speaker: 


1 CALL CHAROUT "Speaker:lang=en", "I am the voice of Rexxoid" 
2 CALL CHAROUT "Speaker: lang=de", "Und ich kann auch andere Sprachen" 
3 CALL CHAROUT "Speaker:lang=fr", "Au revoir" 
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Creating emails: 


i Gexite =a 

2 DO i=1 TO 100 

3 text = text i 

4 END 

5 "am start -a android.intent.action.SEND --user 0 -t 'text/plain' -e to 
"jJohn.doe@gmail.com' -e android.intent.extra.SUBJECT '1 to 100!' -e 


Bliqnelie@aliol alinceigic, ~Esaciee) Wipe Y Vhcepee UN 


Opening Google Maps: 

1 SAY "What do you want to see?" 

2 input = LINEIN() 

3 location="" 

4 DO WHILE LENGTH(input) > 0 

1) PARSE VAR input char +1 input 

6 location=location|| "%"||C2X(char) 

7 END 

8 "am start -a android.intent.action.VIEW --user 0 -d 'geo:0,0?q="location"'" 


Setting alerts: 


i Sane Veslieicte CieSeiiealoim 

2 SISe Mieioyplre 2 

3) PAVILIy Ieyoyplie 

4 SAY "Minute?" 

5 PULL minute 

6 SAY "Message?" 

7 PULL message 

8 "am start -a android.intent.action.SET ALARM --user 0 --ei 
android.intent.extra.alarm.HOUR " hour " --ei android.intent.extra.alarm.MINUTES " minute 
" -e android.intent.extra.alarm.MESSAGE '" message "' --ez 
android.intent.extra.alarm.VIBRATE false --ez android.intent.extra.alarm.SKIP_UI true" 
9 SAY "Done!" 


Sending key events: 


DO 5 
"input keyevent 24" 
"sleep 0.6" 

END 

DOM) 

"input keyevent 25" 

"sleep 0.6" 

END 


CO, =] Oy Cl CONN) 
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ooRexx for Android 


A third option for programming your Android with Rexx is to use ooRexx. "ooRexx for Android" brings the 
full benefits of Open Object Rexx to the Android. It was ported to Android by Thomas Grundmann-Kahr of 
Germany. It is offered under the Apache 2.0 open source license. 


The product home is at GitHubt at https: //github.com/itsmetjk/ooRexx5 for AndroidoOS. From 
there, you can download the interpreter and access all its documentation. The software includes an Android 
Package Kit (APK) for easy installation. 


At the time of writing, scripts can only be run on a rooted device. They also require the Android Software 
Development Kit (SDK). You may have to update the Manifests file to get them working. 


Example Scripts 


All example programs were written by Mr Grundmann-Kahr. Note that a few lines wrap around due to 
typesetting limitations. We have reproduced them without introducing any characters indicating line 


wrapping. 


First up, a simple script to display memory usage. This shows how you send commands to Android via the 
ADDRESS SYSTEM instruction: 


SAY "View Memory Info" 


/* Retrieve Memory Info*/ 
ADDRESS SYSTEM "free -h" 
ADDRESS SYSTEM "df -h" 


SAY "Memory status retrieved." 


Say hello to your friends in Germany with an email (and impress them with your fluent German!): 


/* EBinfacher Befehl zum Versenden einer E-Mail */ 
mailCommand = "am start -a android.intent.action.SENDTO -d mailto: thomas@gruka.at 
--es android.intent.extra.SUBJECT 'ooRexx' --es android.intent.extra.TEXT 'Test'" 


ADDRESS SYSTEM mailCommand 
SAY "E-Mail Erstellung gestartet." 
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Here’s how browse the web: 
/* Browse the Web with ooRexx*/ 
favoritesFile = "/data/local/tmp/browser/favorites.txt" /* Path to Favorites File */ 
DO FOREVER 

SAY "Which URL would you like to visit? (Type 'exit' to end the session)" 

PARSE PULL url 


IF url = "exit" THEN LEAVE 


/* Open URL in Browser */ 
ADDRESS SYSTEM "am start -a android.intent.action.VIEW --user 0 -d http://" || url 


SAY "Do you want to save the URL to a Text File for later use? (Saved in favorites.txt) (yes/no)" 
PARSE PULL saveOption 


IF saveOption = "yes" THEN DO 

fs ANelol WiRIL, “ee, jak = / 

ADDRESS oY 5 LEME Schor cu) se ules ||| >> SSN favomitesivailic 
END 


END 


This last example shows how to create an alert. (Note that typesetting wrapped around the line containing the am 
command): 


SAY "*Alert Creation*" 


SVANe “Wiskoyaiie 2” 

PULL hour 

SAY "Minute?" 

PULL minute 

SAY "Message?" 

PULL message 

"am start -a android.intent.action.SET ALARM --user 0 --ei android.intent.extra.alarm.HOUR 
"hour " --ei android.intent.extra.alarm.MINUTES " minute " -e 
android.intent.extra.alarm.MESSAGE '" message "' --ez android.intent.extra.alarm.VIBRATE 


Ieee S74 evalchealiel, slime otecanise ocULenanl Sle WIL ierebiSs!! 


SAY "Done!" 
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Rexx on Apple 


What about running Rexx on Apple products like the iPhone and iPad? Regina Rexx runs under the 
iSH app, downloadable from Apple's App Store. iSH runs a Linux shell environment locally on your 
iOS device, using a usermode x86 emulator. You would download Regina's 32-bit Alpine Linux 
package for this purpose. 


Summary 


Rexx has long run on a wide variety of cell phone, tablet, and specialty handheld operating systems. 


In this chapter we looked specifically at three Rexx interpreters for Android. BRexx, Rexxoid, and 
ooRexx for Android are the current offerings. All three are free and open source. We presented several 
programming examples with each to show what you can do with them, and how you would code. 


If you use Rexx on any other platform, your knowledge of the language transfers to the Android 
without change. All you have to learn are Android-specific behaviors, calls, functions, and the like. 


Test Your Understanding 


What's the function of SL4A? What does it offer? 

Which of the three interpreters in this chapter require SL4A? 

If your Rexx interpreter has a permissions problem, what do you change to fix it? 
Do you need to root your Android device to run Rexx? 


What should be the normal environmental target (or operand) for the ADDRESS instruction? 


oa PWN BP 


How does the bluetoothConnect function know which device to contact? 
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Overview 


Kilowatt Software offers two free Rexx interpreters. r4 is a classic Rexx interpreter that meets the 
TRL-2 standard and is at language level 4.00. roo! is an object-oriented superset of r4. It offers a 
complete object-oriented Rexx programming language. Both r4 and roo! run under all versions of 
Windows and are complemented by many add-on tools for the Windows environment. 

This chapter briefly overviews both. 


We'll discuss the advantages to r4 and roo! as a pair of Rexx interpreters from the same company. 
After telling where to download and install the product, we'll describe some of the tools that 
Kilowatt Software provides for both r4 and roo! These help developers leverage Windows features 
with much less effort than would otherwise be required. 


The heart of the chapter is the quick overview of roo!’s object-oriented scripting features. Object- 
oriented programming is an approach many feel dramatically raises developer productivity. roo! 
supports all object-oriented features, while retaining full compatibility with standard Rexx. We’ll 
describe the additions roo! makes to classic Rexx and explain how they support object-based 
scripting. 


Before we start, an important note: Kilowatt Software took down their website and the company 
appears to have gone out of business. This leaves their Rexx products unsupported. This chapter 
discusses r4 and roo! as per their last available documentation. Such material may be outdated for 
current Windows programming. 
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Advantages 


r4 and roo! are two different products from the same vendor. Nevertheless, they share many of the same tools and 
characteristics. Here are some key features of r4 and roo!: 


L] Windows-oriented -- The products are customized for Windows, with easy installation and 
developer tools specifically designed for Windows. Roo! Is a free object-oriented Rexx that is 
tailored and configured for Windows. 


C) = Introductory material -- The products feature several tutorials and presentations on classic Rexx 
and roo! The r4 and roo! Documentation is easy to read and informal. Beginners can learn the 
languages quickly, while experienced developers become immediately productive. 


LL] Sample scripts — r4 and roo! each ship with about 50 sample scripts. The examples perform use- 
ful, real-world tasks such as HTML processing, managing sockets, processing comma-separated 
value (CSV) files, statistical functions, file conversions, and the like. These scripts can be used as 
models or a starting point for your own. 


Cl Upward Compatibility — The products were developed by the same company, so the object-oriented 
roo! is fully upward compatible with the classic procedural r4. 


C1 Tools — r4 and roo! come with a number of useful developer utilities. We describe them later. 


L) Windows GUI development — Windows GUI tools often include hundreds of functions and 
dozens of widgets with hundreds of attributes. This provides flexibility but confronts 
developers with a steep learning curve. For beginners it can be downright bewildering. 
Kilowatt Software offers a smaller, more focused tool set that makes Windows GUI 
development a snap. 


LI] Object-oriented migration — r4 is 100 percent upwardly compatible with the object-oriented roo! 
You can ease into object-oriented programming with roo! while maintaining backward 
compatibility with your existing classic Rexx scripts. Whether the legacy scripts were written 
for r4 or any other classic Rexx interpreter, as long as they stay within the Rexx standards, they 
will run under roo! 


CL) = The OOP alternative — roo! presents an object-oriented Rexx alternative to the Open Object 
Rexx interpreter (developed by IBM Corporation and today enhanced and maintained by 
the Rexx Language Association). roo! features completely different design and class 
libraries. Windows developers have a choice of two different object-oriented Rexx 
interpreters for their platform. 


Downloading and Installation 


14 and roo! run under all versions of Windows, but no other operating systems. They require two 
separate downloads and installs. They can be freely downloaded from any of several websites including 
www.RexxInfo.org and www.manmrk.net. The documentation that comes with the products tells how to 
install and configure them. 
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Verification 


Verify that the install succeeded by running a few of the sample scripts in the product directory. For 
starters, run the scripts from the Windows command line. Just change to the product directory and enter 
the interpreter followed by the script name: 

e:\r4> r4 lottery.rex <= Runs the r4 program: lottery.rex 
or 


c:\roo> roo blueMoonGenie <= Runs the roo! program: blueMoonGenie.rooProgram 


Environmental variables can be set to customize program execution. All are described in the product 
documentation. You will also want to add the r4 and roo! installation directories to your PATH variable. 


Documentation 


After installation, read the readme.txt file. This contains the licensing terms. r4 and roo! are free for 
both personal use and corporate customers and come with a limited warranty. 


A number of * . htm files in the product directories contain the documentation. Just double-click on any 
file to read it. The r4 documentation includes these two key documents: 


Document File 
User’s Guide r4.htm 
Syntax Summary r4SyntaxSummary.htm 


roo! documentation includes these major files: 


Document File 

User’s Guide roo.htm 

Syntax Summary rooSyntaxSummary.htm 
Language Specification rooLang.htm 

Scripting Examples rooExamples.htm 


There are also * . htm files that describe each of the tools. For example, to learn about some of the GUI 
accessories, just click on any of the files FileDlg.htm, msgbox.htm, prompt .htm, or picklist.htm. 
Each contains an explanation of the associated command and a complete sample script. Any of the 
add-in tools you install, such as AuroraWare!, Poof!, and Revu follow the same approach. An * . htm file 
explains each command. Let’s discuss these tools now. 
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Tools 


Kilowatt Software supplies a full set of Windows-oriented tools to complement r4 and roo! Figure 26-1 
pictorially summarizes them. 


R4 and roo! Tools 


Revu 
—Text viewer 


AuroraWare! 
—GUI accessories 


Chill and Exe 
Conversion 


TopHat Utility 
—Forms r4 and roo! 
Vertical 
Applications 
Poof! 
- 135 Windows 
command line 
tools 
Figure 26-1 


Let’s describe the tools in more detail. 


Q) = AuroraWare! — This is a tool set of GUI accessories. Here are its components: 
OQ cCheckList — Visual checklist management facility 

Counter — A timer for activity, ticking clock, or count down 
Ticker — Time-keeping accessory 

TopClick— Action buttons 

TopClip — Text-clipping management accessory 

TopCue — Scrolling marquee accessory 

TopList — Drop-down lists 


TopNote — Note-editing accessory 


TopSort — Clipboard text sorting 


Oooocococooo oO 


VuHtml — HTML-file-viewing accessory 
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TopHat — A fill-in-the-blanks form accessory. Presents a tabbed GUI panel for data display, 
entry, and update. Related GUI tools include: 
QO Fileplg— File selection dialog 
QO MsgBox— Message boxes 


Q Prompt — Prompts for user responses 


QO PickList — Selection lists 


These GUI tools are more readily learned than more comprehensive but complex GUI develop- 
ment tools. They transfer the Rexx ease-of-use philosophy to the world of Windows GUI 
development. If an advanced GUI interface is required, roo! and Java can used together to 
create it. 


XMLGenie! — A utility that automatically converts XML to HTML. 


Poof! — This provides more than 135 Windows command-line tools. Some of the areas they 
cover include: 


Batch-scripting aids 

Binary file utilities 

Clipboard utilities 

Command launching 

Task control 

File management (for many different file formats) 
HTML preparation 

Mathematical and conversion routines 

Software development 


File aids 


OococoOcoo ooo vo oO 


Many miscellaneous utilities 


Revu — Colorful text viewer. Highlights text appropriately for different programming 
languages. 


Chill — This utility converts an r4 or roo! program into an unreadable, closed-source file. This 
allows you to give others the use of your scripts without exposing the source code. 


EXE Conversion Utility — This converts scripts to stand-alone Windows executables, * . exe 
files. 


CFLOW— C/C++ flow analyzer. 


Vertical applications — Kilowatt software also ships several vertical applications for the educa- 
tional sector and for Java development. 
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Object-Oriented Programming with roo! 


roo! is derived from the first letters of the words Rexx Object-Oriented. It is a complete object-oriented 
interpreter. It presents a free alternative to Open Object Rexx for Windows. This section lists the basic 
elements of object-oriented programming (or OOP) in roo! 


roo! supports all object-oriented concepts: 


Classes and methods 
Inheritance and derivation 
Encapsulation 


Abstraction 


Ooo co o 


Polymorphism 


Classes and methods give roo! complete object orientation. It is through these that the language provides 
a class hierarchy, inheritance of behaviors and code and attributes, and the ability to derive new objects 
from existing ones. Encapsulation means that any interaction between objects is well defined. Data 
owned by one object, for example, is hidden from others. Communication between objects occurs 

only through messages, because an object’s data and logic (or methods) are encapsulated together. 
Object orientation also provides abstraction, the ability to define programming problems through 

the higher-level paradigm of interacting objects. Finally, roo! supports polymorphism, the ability for 
operators to apply as appropriate to the kind of data and messages involved. Figure 26-2 summarizes 
how these new concepts expand classic Rexx into the realm of full object orientation. 


Object-Oriented Rexx Means... 


Classic Rexx 


Classes and Methods | 


Inheritance & Derivation | 


Encapsulation | 


Abstraction | 


Polymorphism 


Figure 26-2 
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If you are not familiar with object-oriented programming, we introduce it in the tutorial on object- 
oriented Rexx programming in Chapter 28. That chapter uses Open Object Rexx as a basis for 
explanation. 


For those who are familiar with object programming and terminology, let’s describe how roo! achieves 


object orientation. To start with, roo! extends classic Rexx with a set of object-oriented features. Figure 
26-3 expresses how roo! extends classic Rexx into the world of object orientation. 


roo! Adds to Classic Rexx... 


Classes, Methods, 
Special Methods 


Complete Object 
Orientation 


CATCH.FINALLY 
to trap errors 


roo! 


And Much More! 
More Functions 


New Operators 


Figure 26-3 


Here is a quick summary of these object-oriented features: 


Q ~~ class and method instructions 

Class variables are defined as local, shared, or static 

Built-in class library 

Special methods preinitialize, initialize, finalize, and terminate 


self and base references 


Oooo o 


New operators: 


AA (double caret) — Instance creation 


Q %(caret)— Method invocation prefix operator 
Q =~ (tilde) — Method invocation infix operator 
Q = [J (brackets) — Arraylike reference operator 
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Q = { } (braces) — Vector class reference 


Q =! (exclamation) — Identifies a command 
Q) The new error condition OBJECTION traps when the initialize method returns an error string. 


Ql Instance keyword for the datatype built-in function performs actions only on properly cre- 
ated object instances. This enables error-checking. 


Q = The trace is extended to objects. 


Q = = New built-in functions: 
Q = callback — Transfers control to a callback routine under certain conditions 
OQ nap—Asleep or wait function 
Q raiseObjection— Raises the OBJECTION condition 
OQ split—Splits a delimited string into a vector 
squareRoot — Returns the square root of a number 


Q) Adds stack commands makebuf, dropbuf, newstack, and delstack for compatibility with 
other Rexx implementations 


OQ Aroo.dl11 module allows using roo! capabilities from C and C++, while Java Native Interface or 
JINI provides Java integration. 


roo! also includes several extensions based on NetRexx (which is described in chapter 30), the ANSI-1996 
standard, and Java: 


OQ Comments ona line may start after a double-hyphen ( -- ). 


Q = = New built-in functions: 
changestr — Replaces all substrings within a string (ANSI-1996 standard) 
counstr — Counts how many times a substring occurs (ANSI-1996 standard) 


exists — Returns 1 if a compound variable has a value 


ee ee 


lower — Converts a string to lowercase 


QO upper —Converts a string to uppercase 


Q = Java-like catch... finally instructions capture exceptions in do and select instructions. 


Q1 loop over instruction processes all elements of objects or compound stem groups. 


From this list, you can see that roo! adds the key elements required for object orientation. These are the 
class library, with the means to code classes and methods, the new operators for OOP, the special methods, 
and reference objects. Most of the other language additions extend roo! to cover the kind of extensions 
found in other Rexx interpreters. These include, for example, the new built-in functions, better exception 
handling, and the like. roo! offers a nice combination of object orientation plus key convenience features 

to round out the toolset. 
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The power of roo! resides in its extensive class library. In the world of object-oriented programming, 
the bigger and more powerful the class library, the easier scripting becomes. More classes and methods 
directly translate into less work for the developer. 


Of course, each class has its own group of built-in methods appropriate to the class. The methods are too 
extensive to list, but you'll get an idea of their range from this alphabetical class list. Skim the class list 
and you'll understand the power of classes and what roo! has to offer: 


Class Use 

Aggregate Collection base class 

BitVector Vector of Boolean values 

Callback Callback class associated with external programs 
CharacterVector Vector of character values 

Clipboard Clipboard text 

Comparator Compares items 

Console The console stream 

ContextVector System call vector access class 

DriveContext Disk drive reference context 

Emitter Output stream emitter 

Exception Exception information caught by catch routines 
ExternalClass Class supported by external program 

File File information 

FolderContext Directory reference context 

InLineFile Line-oriented input file 

InOutLineFile Line-oriented update file 

InStream Standard input (default input stream) 

List Collection of heterogeneous items 

Map Collection of heterogeneous items indexed by strings 
Math Higher math functions 

Object Object base class 

Ordered Vector Collection of ordered items (nonunique values) 
OutLineFile Line-oriented output file 

OutStream Standard output (default output stream) 

Pattern Regular expression pattern 


Table continued on following page 
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Class Use 

PatternMatch Matching regular expressions 

Queue Collection of heterogeneous items accessed at start or end 

Set Collection of ordered, unique items 

Socket TCP/IP socket class 

Stack Collection of heterogeneous items accessed at the end 

System System information 

SystemPropertyMap Collection of system properties (environmental variables) 
indexed by string values 

Table Table of rows and columns 

Tree Hierarchical tree object 

Vector Collection of heterogeneous items 

WideCharacterVector Vector of 2-byte wide characters 


Learning roo! means learning the class hierarchy and their associated methods. Leveraging this built-in 
power reduces the code you write because it utilizes the object-oriented tools. This is the power of an 
object-oriented Rexx interpreter. The product documentation and sample scripts provide the information 
you need to build your knowledge as you go. The roo! tutorials are especially designed to help classic 
Rexx programmers transition to object-oriented scripting in an easy manner. 


Summary 


r4 and roo! are free Rexx interpreters from Kilowatt Software. Both are Windows-based products that 
conform to the TRL-2 language standards. This chapter discusses some of the unique features of these 
products beyond the language standards, concentrating especially on roo! and its unique object orienta- 
tion. roo! is a powerful free object-oriented Rexx for Windows systems that offers an alternative to Open 
Object Rexx. 


The specific features we covered in this chapter included the strengths of r4 and roo! as Rexx inter- 
preters, how to download and install them, and where to find the product documentation. We then 
described the toolset that works with both the interpreters and is also freely downloadable. After briefly 
discussing the basic characteristics of object-oriented programming, we listed and describe the major 
object-oriented features of roo!. The idea was to give experienced object-oriented programmers a quick 
summary of roo!’s object features. 


The next chapter introduces Open Object Rexx, another object-oriented Rexx interpreter. Chapter 28 pro- 


vides a full tutorial on object-oriented scripting. It leverages your knowledge of standard Rexx scripting 
to introduce object-oriented programming through program examples. 
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Test Your Understanding 


1. 


2. 


What are some of the advantages of the r4/roo! package? Name some of the tools that come 
with these interpreters. 


Can r4 scripts be run under roo!? Can roo! scripts run under r4? Are r4 scripts portable? Are 
roo! scripts? 


Which r4/roo! tools would you use to develop Windows GUIs? How do the r4/roo! GUI tools 
differ from those discussed in the chapter on “Graphical User Interfaces (such as Rexx/Tk and 
Rexx/DW)? Compare the r4/roo! GUI tools to Rexx/Tk and Rexx/DW. Which best satisfies 
each of these differing criteria: 


Best customization for Windows 

Most portable 

Easiest to use 

Most powerful (has the most widgets, attributes and functions) 


Can be learned most quickly 


Oo cocoo oOo 


Is most easily maintained by a programmer other than the one who wrote the script 


Are there trade-offs among these criteria? Does their relative importance vary in different pro- 
gramming projects? 


How does the installation of r4 and roo! differ from that of other Rexx interpreters? 
What principles of object-oriented programming does roo! support? 


Name the new operators that roo! introduces to support object-oriented programming. What is 
the function of each? 


Which roo! built-in classes would you use for line-oriented file 1/O? Which would you use for 
screen I/O? Which would you use for TCP/IP sockets for client/server? 
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Overview 


Standard Rexx is a procedural language. In contrast, Open Object Rexx is a fully object-oriented 
superset of standard Rexx. With very minor exceptions, every Rexx script will run under Open 
Object Rexx without change. This means that all you have learned about Rexx applies directly to 
Open Object Rexx, or "ooRexx". 


ooRexx provides easy entry into the world of object-oriented programming, or OOP. The key 
benefit is that Rexx is an easy language to learn and grow with, and ooRexx retains these 
advantages while supporting object-oriented scripting. 


Since standard or "classic" Rexx scripts typically run under Open Object Rexx without any 
changes, ooRexx makes it easy to migrate to object-oriented programming while preserving 
investment in traditional Rexx code. Existing code can run as is, while new code is added to take 
advantage of object-oriented features. Developers may still code in classic, procedural Rexx while 
adding object-oriented features at any rate they find desirable. 


In contrast to other object-oriented languages, such as C++ or Java, Open Object Rexx emphasizes 
Rexx’s traditional strengths in simple syntax and ease of use. Yet it combines them with power. If 
you have experience in other object-oriented languages, you may be interested to see how ooRexx 
compares. 


Leveraging ooRexx means using its object-oriented features. The next chapter presents a tutorial on 
object-oriented scripting using ooRexx. The tutorial assumes no background in object-oriented 
programming, so if you don’t know OOP, this lesson will start you writing your own object- 
oriented scripts. The goal is to leverage your knowledge of classic Rexx to launch you into object- 
oriented scripting. 
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Origins 
IBM developed a product they named Object REXX in the mid-1990s. They offered this interpreter for 
the Windows, Linux, Unix, and OS/2 platforms. In 2005, IBM open-sourced the product and gave it to 


the non-profit Rexx Language Association. The "RexxLA" has developed, supported, and maintained 
it ever since. 


The official product name is Open Object Rexx, but it's nearly always referred to by its shorter moniker, 
ooRexx. The RexxLA website is www. RexxLA. org, while the ooRexx website is at www. ooRexx.org. 
ooRexx runs on Windows, Linux, Unix, BSD, and macOS. It is free and open source software. 


Features 


Many believe that object-oriented programming is superior to traditional, procedural programming. Its 
benefits include: 

L) Greater code reuse 

Greater quality assurance and a lower error rate through reusing proven components 

Lower cost and maintenance by leveraging existing objects 


Applications can be designed by modeling objects and their interactions 


Be oe 


Rapid prototyping and development 


Open Object Rexx completely extends Rexx into OOP. It has all possible OOP features including: 


Oo 


Objects, classes, subclasses and superclasses, meta classes, mixin classes, public and private methods 
Comprehensive class libraries 

Inheritance 

Multiple inheritance 

Encapsulation 

Polymorphism 

Method chaining 


Online reference facility 


OOoOoodocvoo 


Interfaces to a incredibly wide range of tools. These include those distributed with ooRexx itself, as 
well Rexx tools available elsewhere. An example are the essential developer tools available at 


www.Rexx.org. 
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Open Object Rexx can be used in place of shell scripts. The advantages to ooRexx scripting include: 


QO Ease of use and high productivity 

A complete set of OO features 

Upwardly compatible with classic procedural Rexx 
Portability 


Features like concurrency, inter-process communication, and all data structures 


OoOcdoOdo 


Extra utilities and interfaces (including OS-specific tools for Windows, Linux, and Unix) 


Figure 27-1 summarizes some of the major features of Open Object Rexx that go beyond the Rexx stan- 
dards and classic Rexx interpreters. It shows that ooRexx is a superset of classic Rexx that adds many new 
features. 


Open Object Rexx Adds to Classic Rexx... 


Figure 27-1 
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Installing ooRexx 


You can freely download ooRexx from its permanent project library at SourceForge at 
https://sourceforge.net/projects/oorexx/files/oorexx/. 


You'll find ooRexx there as well as a number of tools and interfaces for it. Once you access the Files 
panel to download the latest release of ooRexx, you'll see ready-to-install packages for Windows, 
Linux, BSD, and the macOS. These include Windows self-extracting .exe files, Linux packages in 
popular formats such as .deb and .rpm, and .dmg files for macOS. For BSD you'll find compressed 
archive files. 


The easiest way to install ooRexx is simply to pick the package that matches your operating system 
and its modality (either 64 or 32 bit), download it, and double-click on it to start your installer. 


First, however, be sure to read any background information contained in the INSTALL and ReadMe.txt 
files. The CHANGES.txt and ReleaseNotes may also be useful prior to installing. 


Windows 


By default, the product installs into a new directory: C:\Program Files\ooRexx. Also by default, 
the install creates Windows file associations and uses the file extension . rex for oo0Rexx scripts. (The 
example scripts in this book follow the alternative convention of using the file extension .orex for 
ooRexx.) 


You can also set some defaults on how Windows treats an ooRexx script when you double-click on it to 
run it. For example, rexxpause allows you to click on a script to run it, and then automatically pauses 
so that you can see its output in a command window. 


We recommend checking the box to place an ooRexx icon on your desktop. This folder gives easy 
access to all ooRexx resources. 


After the install, the entry Open Object Rexx will appear in your Windows Program List. Find it and 
click on the ooRexx Samples entry to run a sample program to verify your install. 


Finally, developers often ask if installing ooRexx on a Windows computer that already has Regina 
Rexx installed causes any conflicts or problems. We can't speak to all releases or their combinations, 
but the author has never experienced difficulty in co-residing the two products on various computers. 
Windows keeps the two apart and distinguishes them by using different install directories, file 
associations, and the like. 


Linux 


After downloading the package file that matches your distribution and package manager, simply 
double-click to install ooRexx. 


462 


Open Object Rexx 


The directories ooRexx uses depend on your platform and its release. For the current Ubuntu 
download, ooRexx places its binary executable rexx into directory /usr/local/bin. 
Example programs have file name extension of .rex and are placed under the directory 
/usr/local/share/ooRexx. 


This means that no conflicts result for a computer that already has Regina installed. Just 
run ooRexx via the rexx command and Regina via its regina command: 


rexx -V /* runs ooRexx */ 
regina -v /* runs Regina */ 


Or code the first line of your scripts to invoke the correct interpreter. For example, code 
this first line to run the script under ooRexx: 


#!/usr/local/bin/rexx 
Code this line to run the script under Regina Rexx: 


#!/usr/bin/rexx 


These locations do vary by the release of your download, so be sure to check your filesystem after 
installing ooRexx so that you know exactly where it places its executables, demo examples, and 
documentation on your system. 


The Basics 


The next chapter presents a complete tutorial on Open Object Rexx scripting. Here we discuss some of 
the basics to show how the language supports object-oriented programming. We define classes, meth- 
ods, messages, attributes, abstract classes, instance classes, public and private methods, directives, and 
other object-oriented terms. We'll present brief code snippets to make these terms clear. 


If you follow this chapter, but do not know how to use these concepts in developing object-oriented 

scripts, don’t worry. That is the purpose of the next chapter, Chapter 28. That chapter provides a full, 
step-by-step tutorial on how to write object-oriented scripts. Here the idea is just to introduce a few 
key object-oriented concepts and to show how Open Object Rexx implements these concepts in code. 


Rexx objects contain methods and variables. Variables are more accurately called attributes. Object methods 
are actions that are invoked by sending a message to the object. Rexx uses the tilde operator (~) to send 
the message to the object and run its method. 


For example, in classic Rexx, you might “check in” a library book by coding a function called check_in. 
Then invoke the function like this: 


feedback = check_in (book) /* run user-defined CHECK_IN function */ 
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In Open Object Rexx, send a message to the object book to runits check_in method: 

feedback = book~check_in /* run user-defined CHECK_IN method */ 
Rexx runs the method that matches the message name following the tilde or twiddle. Note that the method is 
encoded to the right of the object to which it applies. Thus the ordering of object~method varies from the 
traditional ordering of function (parameter). 
Object variables or attributes are exclusively owned by the object. Attributes are encapsulated in that they are 
not visible or accessible by other objects and their methods; only the object’s methods can change its 


variables. Each method in the object specifies which variables it accesses by coding them on its expose 
instruction. Any changes a method makes to an exposed variables remains after the method terminates. 


Objects are created by the new method. For example, to create a new book in the library system: 

new_book = .book~new 
The new method creates the object and automatically invokes the init method (if it is defined) to 
initialize object variables from parameters and defaults. Here’s an example that adds a newly acquired 
book to the library and sets some attribute values: 


new book = .book~new('The Third Reich','MacMillan Publishing',1970) 


The parameters for a method immediately follow the name of the method and are enclosed in parentheses. 
The preceding statement encodes three parameters inside of the parentheses for the method. 


To later delete the book permanently from the library system, use the drop instruction. This instruction 
needs only a single operand, the name of the object instance to delete: 


drop new_book 


A group of related objects compose a class. An individual object created from the class, such as the book 
referred to earlier, is called an instance or instantiation of that class. 


To identify classes and methods in Open Object Rexx code, use directives. Directives are denoted by leading 


double colons (::). This example creates the book class and methods to check books in, check them out, and 
initialize anew book instance. The class and each of its methods are denoted by the appropriate directive: 
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::class book 
::method check_in 


::method check_out 
expose title book_id patron_id 


:imethod init 
use arg title, publisher, pub date 


This example also shows how the new expose instruction makes attributes available to a 
method that can change them. If the method alters any values listed in the expose instruction, 
these new values persist even after the return or exit from the method. So, the check_out 
method shown here can change the three arguments listed in its expose instruction. If an 
expose instruction is coded, it must appear as the first instruction in the method. 


The new use arg instruction shown here retrieves the argument objects passed in to the method. 
It differs from the arg and parse arg instructions in that it allows nonstring arguments. The 
use arg instruction performs a direct, one-to-one assignment of arguments to variables. So, the 
init method in the example accesses three arguments through its use arg instruction. 


Methods may be either public or private. Those that may be invoked from the main program or 
other classes are public. Those available only to the methods within the class are private. By 
default, methods are public. Use the keyword private to define a private method. In the 
example that follows, the method replacement_cost can only be invoked by other methods in 
the book class. The method can access and update any of the three attributes listed on its expose 
instruction. As shown here, it updates the replacement_amount value: 


::class book 
::method check in 


:i:method check out 


::method replacement cost private 
expose pages cost per page replacement amount 
replacement amount = pages * cost _per page 
return 


Methods can be invoked by either of two operators: the tilde (~) or the double tilde (~~). Using ~ 
returns the result of the method, while using ~~ returns the object that received the message. 
Most situations call for returning the result of the method, so the tilde (~) appears more 
commonly in code. 


Several methods may be applied to an object, one after another, by a technique referred to as 
method chaining. This example applies two methods to the book object, with the check _out 


method returning the result: 


book~~loan_out~check_out 
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Open Object Rexx supports several kinds of methods. Instance methods perform an action ona 
specific object or instance of a class. They handle the data of a specific object. Class methods are more 
global. They apply to the class as a whole. For example, class methods might count the number of 
objects in the class or manage all the objects together as a collection. 


Classes are organized into class hierarchies. These describe inheritance relationships in a hierarchical 
manner. A subclass inherits all the attributes and methods of its parent class or superclass. As well, the 
subclass adds its own attributes and methods as needed. For example, hardback_book and 
paperback _book could be subclasses to the book class. Each inherits all the behaviors of the book 
class (defined by its attributes and methods) but adds additional behaviors as well: 


::class book 
::method check_in 


::class hardback_book subclass book 
::method bind_it 


::class paperback book subclass book 
::method rebind_it 


An abstract class is one for which you would not normally create instances, but whose definition could be 
useful to define common generic behavior. For example, along with the book class there might also be a 
magazine class. Both could be subclasses of the abstract class library_resource. This superclass might 
include some generic behavior common to any library resource, be it a book, magazine, video, or whatever. 
It is an abstract class that we choose never to create an instance of, as we only use it as a superclass to define 
some behaviors for its subclasses: 


::class library resource /* abstract class with generic behaviors */ 
::class book subclass library resource /* a class to create instances */ 
::class magazine subclass library resource /* a class to create instances */ 


Some object-oriented languages only allow subclasses to inherit attributes and methods from a single 
superclass or parent class. Open Object Rexx permits multiple inheritance. An object can inherit from both its 
direct parent and also from other classes called mixin classes. Instances are not generated from mixin 
classes. Instead mixin classes are just containers of attributes and methods that subclasses can inherit. 


A subclass can inherit behaviors both from its single parent class and from one or more mixin classes. 


In this example, the book class inherits variables and methods from both its abstract parent class 
library resource and the mixin class named printed_resources: 
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::class library resource /* abstract class with generic behaviors */ 
::class printed_resources mixinclass Object /* MIXIN class for more behaviors */ 


::class book subclass library resource inherit printed_resources 


Open Object Rexx supports polymorphism, the ability to send the same message to different 
kinds of objects and invoke the appropriate method in each. For example, the library might 
require different actions to check out reference books as opposed to regular books: 


book~check_ out 
reference book~check_out 


In each case, Open Object Rexx runs the different check_out method appropriate to the object to 
which it is applied. 


Rexx objects interact concurrently. Multiple objects may be active at any one time, sending 
messages and executing methods. It is also possible to permit concurrency within an 
object when that makes sense to the application. In this situation multiple methods within 
an object run at the same time. An example script in the next chapter shows how to 
implement concurrency. 


The Class Libraries 


Just as the power of a procedural language correlates to its set of functions, the power of an object- 
oriented language rests on the strengths of its class libraries. A class library is simply a set of 
predefined or built-in classes. As we saw in the above examples, each class may contain functions or 
methods as well as related data variables. A class has two main components: methods and variables. 


How much work developers must perform to create their applications varies inversely to 
the size and power of the class libraries: the more extensive the class libraries that come 
with the product, the less work developers must do. ooRexx’s class libraries are quite 
comprehensive, designed to support high developer productivity. 


At last count, ooRexx had some 50-odd classes. That's too many to list here, so see Appendix I 
for the complete list. 


Classes arrange into a class hierarchy. This design supports one of the biggest benefits of object-oriented 
programming, the inheritance of capabilities by subclasses form their parent or super class(es). 


For example, ooRexx's Array class offers nearly three dozen methods that help you manipulate arrays. In 
addition, it inherits several dozen methods from the three classes to which it is a subclass: the Object class, 
the Collection class, and the OrderedCollection class. 


ooRexx's classes categorize into four broad sets: 
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Class Use 


The Fundamental Classes _ These classes provide the basis of the class hierarchy. They include Object, 
Class, String, Method, Routine, Package, and Message classes. 


The Stream Classes These classes provide for I/O. They include the InputStream, OutputStream, 
InputOutputStream, and Stream classes. 

The Collection Classes A collection is any group of items that can be processed in like manner. These 
classes form the basis for data structures like arrays, lists, queues, sets, and 
more. 

The Utility Classes This largest category includes a couple dozen classes that provide time and 


monitoring services, implement comparisons, support regular expressions, 
manage pointers and buffers, and more. 


Other ooRexx Additions vs. Classic Rexx 


Beyond its full set of object facilities, Open Object Rexx makes other additions to standard or “classic” Rexx. 
We describe them in this section. Figure 27-1 diagrammatically illustrated these differences. The next 
chapter, Chapter 28, discusses examples of scripts that show how to use many of these new language 
features. Read that chapter for a tutorial explanation of how to use ooRexx classes and methods. The goal 
here is to summarize the language features that extend ooRexx beyond the realm of classic Rexx. These 
brief descriptions also allow you to compare Open Object Rexx to any other object-oriented programming 
language with which you may be familiar. 


New Operators 
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ooRexx retains all the operators in classic Rexx, and adds many new ones. The first two listed below allow 
scripts to send a message to an object, thereby running the method associated with the message name. The 
difference between the two operators is in what is returned. The tilde returns a method result, while the 
double-tilde returns the object of the message. The brackets operator allows easy reference to objects within 
a collection. Brackets can be used in place of the formal message descriptors to add or retrieve an object to 
or from a collection. This table lists these new operators and their meanings: 


Operator Use 
~ Send a message to invoke a method and return its result 
~~ Send a message to invoke a method, return the object of the 
message 
[] Add or retrieve objects to/from a collection 
+=, -=, *= /=, %=, //=, | l=, &=, |=, Extended assignment operators. These combine the indicated 
&&=, **= operation with the assignment 


Directives 
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Directives define a program’s classes, methods, and routines. They are processed first to 
establish the classes, methods, or routines needed. They're identified by the double-colon (:: ). 


The ::class and ::method directives identify the beginning of classes and methods in your 
code. They are how you define new classes and methods in your scripts. Code the directive for a 
new class or method, then code the class or method right after the keyword identifier. 


Directives are placed at the end of the source file containing them. There are four key directives 
and several lesser-used ones: 


Built-in Objects 


CL] ::class — Defines a class 

L] ::method — Defines a method 

CL] ::routine — Defines a callable subroutine 

CL] ::requires — Specifies access to another source script 


Open Object Rexx offers a set of built-in runtime objects that are always available to scripts. These 
help scripts interact with their environment, perform input and output, view environmental 
parameters, and inspect return codes. This table lists these built-in objects and their functions: 


Built-in Object 


Use 


environment The public environment object (a directory of global environmental info) 
.endofline String that represents the end of line (CR or CR-LF in hex) 

anil An object that does not contain any data (used for testing existence) 
.rexxinfo Returns platform-specific information 

local The local environment object (a directory of process-specific information) 
.debuginput The default interactive debug input stream object 

.error The error object for Rexx's error and trace outputs 


input .output 


The input and output objects (monitor objects for the default streams) 


.traceoutput Holds the trace output target object 

-methods Methods defined in the current program defined using ::method directives 
Is Return code from any executed command. 0 is success, 1 is error, -1 is failure 
.true .false Boolean values for '1' and '0' 


stdin .stdout .stderr 


The default input, output, and error streams 


Stdque Destination for PUSH and QUEUE; source for PULL and PARSE PULL 
.syscargs All command-line arguments supplied 

context Context of the currently active Rexx execution environment 

line Line number currently being executed 
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Special Variables 


Open Object Rexx adds two new special variables. They are used for referencing objects because object- 
oriented programming requires a convenient way to refer to certain objects. self refers to the currently 
executing method, while super refers to the parent of the current object: 


C1 self — The object of the current executing method 


Cl super — The superclass or parent of the current object 


New Instructions 


Open Object Rexx enhances many of the instructions in classic Rexx and also introduces a few new ones. 
Among the new instructions, expose and guard are concerned with variable scoping and control access to 
an object's variables or attribute pool. raise is especially interesting in that it allows scripts to explicitly 
raise an exception or error condition. This supports a more flexible and generalized error trap facility than 
classic Rexx offers. 


The new instructions include those in the following table: 


Instruction Use 
expose Permits a method to access and update specified variables 
forward Forwards the message that caused the active method to execute 
guard Controls concurrent execution of a method 
loop Similar to DO 
raise Explicitly raises error conditions or traps 
reply Sends an early reply from a method to caller, allowing concurrency 
use Retrieves arguments into a program, routine, function, or method 


New Functions 


Open Object Rexx introduces a handful of new functions and enhances a few existing ones. Among 
the new functions are the ANSI-1996 standard string functions, changestr and countstr. Other 
new functions include beep, directory, lower, upper, and var. 


The New Utility Functions 


In addition to its regular functions, ooRexx contains about 75 Utility Functions. These are built-in 
functions, not an external function library. These functions are a superset of the RexxUtil function 
package described on pages 206-207. Many are specific to either Windows or Linux/Unix. These utilities 
enable you to retrieve platform dependent information and to manage the operating system and utilize 
its features. The names of these functions all begin with the letters Sys. 
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New Condition Traps 


Open Object Rexx includes several new exception conditions, including ANY, NOMETHOD, 
NOSTRING, and USER. The ANSI-1996 standard LOSTDIGITS is also included. 


Users can define their own exception conditions and raise conditions manually (explicitly) via the 
new raise instruction. This provides a more generalized and flexible error-handling mechanism 
than classic Rexx. It also conforms to the philosophy of many object-oriented programming 
languages (such as Java) that encourage managing errors through consolidated exception 
routines. Of course, because ooRexx is a superset of classic Rexx, whether you choose to handle 
exceptions through this newer approach or in a more traditional fashion is up to you. Either 
approach works; either is accepted by ooRexx. 


Rexx API 


The application programming interface, or API, allows you to interface applications to Open Object 
Rexx or extend the language. Applications are programs written in languages other than Rexx, such 
as C or CH. The ooRexx manuals provide all the details on how to interface other languages to 
ooRexx or extend the product's capabilities. Full documentation downloads with the product, and 
advanced sections explain the use of the API. 


ooRexx for Windows 


ooRexx comes complete with specialized abilities on Windows platforms. In addition to the 75 
built-in Utility Functions for managing the Windows environment, ooRexx also has a set of about 
10 more classes with some 125 methods designed specifically for Windows: 


Class Use 
WindowsProgramManager Enables interaction with the Windows Program Manager 
WindowsClipboard Use the Clipboard to transfer data 
WindowsRegistry Control the Windows Registry. Retrieve, modify, add, delete entries 
WindowsEventLog Interact with the Windows Event Log 
WindowsManager Query, manipulate, and interact with desktop windows 
WindowObject Query, manipulate, and interact with a window or its children 
MenuObject Query, manipulate, and interact with a window's menu or submenu 
OLEObject Manages OLE events 
OLEVariant With OLEObject, provides a complete interface for OLE automation 


The ooRexx manual Windows Extension Reference provides complete details on all the Windows 
extensions. 
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ooRexx for Linux and Unix 


ooRexx has support for Linux and Unix systems that parallels what we have just described for Windows. 
These 50-odd functions are in addition to the operating system Utility Functions described earlier. These 
functions categorize as follows: 


Category Use 
Process and thread functions Control processes and threads 
User and group functions Manage user ids and groups 
File and file system functions Manage files, directories, and permissions 
Extended attribute functions Manage extended file attributes for those OS's that support them 
Name lookup functions For retrieving information about servers and services 
Miscellaneous functions A half dozen miscellaneous functions 


The manual Unix Extensions Functions Reference describes all these functions in detail. 


Summary 
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Open Object Rexx is developed, supported, and maintained as a free and open source product by the non- 
profit Rexx Language Association. It's a true superset of classic Rexx, as defined by the TRL-2 and ANSI-1996 
standards, and so runs the vast majority of classic Rexx programs without alteration. 


This chapter summarized the features of ooRexx, how they support object-oriented programming, and how 
they extend beyond the classic Rexx standards. We enumerated how the language differs from classic Rexx, and 
discussed the many additions and extensions to the language. We should further note that the ooRexx website 
contains many useful tools for free downloading, including two different products for building GUI interfaces, 
and SQLite and other interfaces for database support. 


Of course, since it runs classic Rexx code, ooRexx can use any of the many utilities coded in standard Rexx. 
Websites like www. RexxInfo.org and www.Rexx.org offer free downloads. 


As a powerful, object-oriented language that retains Rexx's ease of use, o0Rexx lies at the intersection of 
three of today’s key software trends: 


Ol High-level scripting 


C1 Object-oriented programming 


CL] Free and open source software 


Open Object Rexx 


The next chapter presents a complete tutorial on Open Object Rexx scripting. It starts by showing 
how to integrate just a few simple classes into a traditional Rexx script. Then, it proceeds more 
deeply into the built-in classes and methods of the product. 


Eventually, the examples lead to our developing our own classes and using them to solve 
problems such as developing a stack data structure and implementing a video check-out system. 
The tutorial is designed so that, even if you have no object-oriented programming experience, 
you'll be able to quickly adapt your classic Rexx knowledge to learn object-oriented scripting. 


Test Your Understanding 


1. Is Open Object Rexx a superset of classic Rexx? Will classic Rexx scripts run under ooRexx 
with- out change? What are inheritance and multiple inheritance? How are they implemented 
in Open Object Rexx? 


2. What are encapsulation and polymorphism, and how does Open Object Rexx support them? 


3. | Which class do you use to perform I/O? What advanced I/O features does this class’s 
methods offer? 


4. What are the new special variables of Open Object Rexx, and how are they used? 
5. | What are the four kinds of directives, and what are their functions? 


6. What are collections and the collection class? Name five of the collection classes, and 
describe their definitions. 


7. How do you define and manually raise a new error condition? 


What is the function of the expose instruction? How is it coded and used? 
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Overview 


For those who practice object-oriented programming, the summary of Open Object Rexx provided 
by the previous chapter is all you need. Install the product, look over the sample scripts that come 
with it, review the class libraries and their methods, and you're ready to program. If you are famil- 
iar with object-oriented programming from languages like Java, C++, or Python, review the class 
libraries and start programming. 


For everyone else, something’s missing. The previous chapter discussed the basics of OO program- 
ming with Open Object Rexx, but more to describe its capabilities than to teach you how to use it. 

This chapter tries to fill that gap. For those new to object-oriented programming, it presents a simple 
tutorial. Assuming that you know classic Rexx, it bootstraps you into the world of object-oriented 

programming with simple, complete program examples. 


Open Object Rexx is ideal for learning OOP because it retains full compatibility with classic Rexx; 
everything you’ve learned about classic Rexx still applies. You can tip-toe into the object-oriented 
world at your own pace by learning ooRexx. For example, you can still manipulate strings with 
the string functions of classic Rexx. Or, you can start using Open Object Rexx’s string class meth- 
ods in their place. You can still perform traditional Rexx I/O. Or, you can use the object-oriented 
stream class methods. Code with either approach in Open Object Rexx. 


Open Object Rexx retains the advantages of simplicity and clear syntax from classic Rexx. It adds 
the classes, methods and all the other features of object-oriented programming with a minimum 
of new syntax. Concentrate on solving the problem at hand, and leverage Open Object Rexx’s new 
features in the quest. 


Let’s quickly discuss the sample scripts in this chapter. The first is very short; it merely tests for the 
existence of a file. It illustrates how to use a stream object and a few of its methods perform I/O. 
The next two scripts show you how to create your own classes and methods. Then, a more ambitious 
script implements a video checkout application for a DVD library. The final example demonstrates 
concurrency, where methods within a class run at the same time. 


Chapter 28 


A First Program 


Open Object Rexx features a class library, a built-in set of classes and methods that adds a wide range of 
capability to traditional Rexx. The methods in this library perform actions, much like the built-in func- 
tions of classic Rexx. One easy way to start object-oriented programming with Object Rexx is just to 
program as in classic Rexx, but to replace function calls with object methods. 


Here is an example. This simple script reads one input parameter from the command line, a filename. 
The program determines whether the file exists and displays a message with its result: 


[root /usr/bin/oorexx]$ ./oorexx file exist.orex square.orex 
File exists 

[root /usr/bin/oorexx]$ ./oorexx file _exist.orex nonesuch.txt 
File does not exist 

[root /usr/bin/oorexx]$ 


The program is called File Exist. In the first preceding run, the input file exists. In the second run, the 
file did not exist in the current directory. All the script does is write a message indicating whether the 
file specified on its command line exists. Recall that the syntax ./oorexx is merely a way of ensuring, 
on Unix-derived operating systems, that the module named oorexx in the current directory will be 
invoked to run the script. 


Here is the code for the first program: 


[BRR KR KK A A  / 


/* FILE EXIST */ 
pes wf 
/* Tells if a specified fil LGLGES eo 
[BKK IK IK I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I He / 
parse arg file . fe Ce Wiseie Ainjswic aedilke + / 
infile = .stream~new (file) /* create stream object */ 
/* Existence test returns either full filename or the null string ff 
if infile~query('exists') = '' then /* test if non-existent */ 

-output~lineout('File does not exist") /* nowsuch file exists —7/ 
else 

-output~lineout('File exists' ) /* found the fille mame */ 
exit 0 


To work with file I/O in Open Object Rexx, you can either use classic Rexx instructions such as say, 
pull, parse pull, charin, charout, chars, linein, lineout, and lines, or you can use the 
new object-oriented methods. This script uses the methods. 
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The first action when using OO input/output is always to create a stream instance: 
infile = .stream~new(file) /* create stream object */ 


This object manages I/O for one input or output file. To create it, we send the message new to the built-in 
. stream class. The . stream class is denoted by the period immediately prior to the keyword stream. 
We passed the filename from the user to the new method as its input parameter. Now we have an object 
created representing an I/O stream for that file. 


The following code invokes the query method on the new stream object. The method returns the null 
string if the file does not exist in the current directory. If the file does exist, it returns the fully qualified 
name of the file: 


if infile~query('exists') = '' then /* test if nonexistent */ 
.output~lineout ('File does not exist') /* no such file exists */ 


The lineout method is invoked with the character string to write as its input parameter. . output is one 
of the special built-in objects described in Chapter 27. It is a monitor object that forwards the messages it 
receives to . stdout, the stream object representing standard output. 


Of course, if the file does exist, the script writes the appropriate message: 


else 
.output~lineout('File exists' ) /* found the filename */ 


This script uses the built-in object-oriented classes and methods for I/O. This same program could be 
coded using classic Rexx instructions such as say and pul1, and it would have run under Open Object 
Rexx as well. All classic Rexx functions have object-oriented counterparts (methods) in Open Object Rexx. 


The trick to learning ooRexx is to learn its class library. Remembering what it offers as built-in classes and 
methods is as important as knowing what functions are available in classic Rexx. This knowledge is the 
lever that enables you to exploit the language fully and let its built-in capabilities do the work for you. 


Squaring a Number — Using Our Own Class 
and Method 


The previous example shows how to leverage Open Object Rexx’s large class library. This is especially 
useful when performing tasks that would otherwise require a lot of work, for example, in creating 
graphical user interfaces or performing database I/O. Now let’s look at how to create and use our own 
classes and methods within ooRexx scripts. 


This simple script squares a number. The user enters the number as a command-line argument, and the 
script writes back its squared value: 


[root /opt/orexx/pgms]$ square.orex 4 
The original value: 4 squared is: 16 
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Here is the code for this script: 


[RRRRREREKRREKERREREKEKER KEKE ERE KE RE KEKE REE RAR KEKE EKKKKEREKKKEKKKKEE KE / 


/* SQUARE */ 
as yf 
/* Returns the square of a number f 
[RRREKRREREKKERERKREERKRKEEKKEKEREKRKEE KEK KEKE RERRERE KEKE KKEKEREKEAKEKE KK | 
parse arg input . /* get the number to square from user si 
value = .squared~new /* create an object for a squared value */ 


sqd = value~square(input) /* invoke SQUARE method on INPUT value */ 


say 'The original value:' input ‘squared is:' sqd 


exit 0 

::class squared /* Here is the class. */; 
::method 'square' /* Class SQUARED has 1 method, SQUARE. */ 
use arg in /* get the input argument oy 
reeyewouan: (( aliay 2 abial )) /* square it and return that value ef 


In this script, the first task is to create an instance to square the value. Depending on what school of OOP 
you follow, this instance might also be called an object instance, the instantiation of an object class, or just an 
object. We’re not concerned with formal terminology here; you don’t need to be to use ooRexx. This state- 
ment creates the object: 


value = .squared~new /* create an object for a squared value */ 


The next line in the script invokes the square method to perform the work of squaring the number. It 
does this by sending the appropriate message to the object: 


sqd = value~square(input) /* invoke SQUARE method on INPUT value */ 


Look down further in the code to see the code of the square method and its class, called squared. All 
classes and methods must follow the procedural code located at the top of the program. New classes 
and methods are always placed at the bottom of the script. Two colons indicate a directive, an identifier 
for a class, method, routine or external code block. This line defines our new class called squared: 


::class squared /* here is the class aa 


After the class directive, we place our methods and their code. This class has but a single method named 
square. This line defines this method: 


::method 'square' /* Class SQUARED has 1 method, SQUARE. ef 
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The name of a method is a character string. The interpreter matches this string with the message sent 
to the object (to invoke it) in the procedural code. Here the method name is coded within quotation 
marks, as many programmers prefer. You can also define a method name without the quotation 
marks: 


:i:method square /* class SQUARED has 1 method, SQUARE */ 


The method’s code immediately follows this method directive. Its first line reads its input argument: 
use arg in /* get the input argument Ki 


In Open Object Rexx, you code use arg instead of arg or parse arg to retrieve one or more input 
arguments. The method squares the number provided in the input argument and returns it as its return 
string through the return instruction: 


return ( in * in ) /* square it and return that value Ea 


That’s it! You can create your own classes and methods in this fashion. Run the methods in those objects 
in the same way that you run the built-in methods provided by ooRexx. 


In many ways, creating objects and methods is similar to creating subroutines and functions in classic 
Rexx. The difference is in the hierarchical structure of object-oriented programming. The ability to 
inherit behaviors (attributes and methods) through the class hierarchy minimizes the amount of new 
coding you have to do. This advantage becomes most pronounced in large programming projects, 
where the chances for code reuse are higher. It becomes significant in any situation in which you can 
optimally leverage ooRexx’s built-in class library. 


Another Simple OO Program 


Here’s another simple OO script. This one allows the user to enter a shell name and responds with the 
full name of the shell or the operating system. Here’s an example interaction with the program: 


Enter the shell name: 
csh 


OS agg © Sianeli 


The user enters a shell name, csh, and the script responds with its full name. Here’s another interaction: 


Enter the shell name: 
COMMAND 
OS is: Windows Command prompt 


The user enters the shell for his or her operating system, COMMAND, and the program responds that the 
shell is used as a Windows command window prompt. The program recognizes a couple other inputs 
(ksh and CMD), but comes back with this message for any other input: 


Enter the shell name: 
pdksh 
OS is: unknown 
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Here is the code for the script: 


[BK RK KK KK HK A A AA A RA A A A AA A ek A A oH  / 
ee WEE! OS oy 
ips ad] 
/* Tells which OS system you use depending on the command shell. */ 
[BK RK KK KK AK A A AA A A A AA A AA A A A A I 


os = .operating systems~new /* create a new object af 
os~write command shell /* invoke method to do the work ay 
exit 0 /* always code an EXIT instruction */ 
::class operating systems /* class w 2 methods following it */ 
::method init /* method prompts for shell name 2 yf 
expose shell /* EXPOSE the shared variable eof 
say 'Enter the shell name:' /* prompt and read user input */ 
parse pull shell 
return 
::method write _command_shell /* this method determines OS ‘a7 
expose shell 
select /* determine the OS respons sf 
when shell = 'CMD' then string = 'Windows cmd.exe' 
when shell = 'COMMAND' then string = 'Windows Command prompt' 
when shell = "ksh"* then string = 'Korn Shell' 
when shell = "csh"' then string = 'C Shell' 
otherwise string = 'unknown' 
end 
Sen7 YOS ase! Siereiing /* write out the OS determined */ 
return 0 


This script only contains three lines of procedural code. The first line creates a new instance of the class 
.operating systems. Send the class the new method message to create a new instance of the class: 


os = .operating systems~new /* create a new object * / 


The second line in the program runs the method write _command_she11 in the class. This method does 
all the real work of the program: 


os~write_command_shell /* invoke method to do the work */ 
The last line of procedural code, the exit instruction, ends the program. Class and method directives 
follow, along with the code that defines them. The class(es) and their method(s) are always placed at the 
bottom of the code in the script. This line defines the . operating systems class: 

::class operating systems /* class w 2 methods following it */ 


This class is followed by its two methods. The first is the init method: 


:imethod init /* method prompts for shell name */ 
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The init method is a specially named method. Open Object Rexx always runs the init method (if 
there is one) whenever its creates a new instance via the new message. So, the first line in the script not 
only created a new instance of the operating_systems class but also automatically ran the init 
method. 


In the init method, the first line of code uses the expose instruction to access the variable named 
shell. By using expose, the method has read and update capability on any variables or attributes it 
names. The expose instruction is the basic technique by which attributes can be shared among methods 
in a class: 


expose shell /* EXPOSE the shared variable aA 


After accessing this variable, the init method prompts the user to enter a shell name, reads that user 
input, and returns: 


say 'Enter the shell name:' /* prompt and read user input */ 
parse pull shell 


return 


The second line of code in the driver runs the write _command_shell method. This method also 
accesses the attribute shell by its expose instruction: 


expose shell 


Then, the method executes a select instruction to determine the full shell name or associated operating 
system, and its writes this response to the user: 


select /* determine the OS response af 
when shell = 'CMD' then string = 'Windows cmd.exe' 
when shell = 'COMMAND' then string = 'Windows Command prompt' 
when shell = 'ksh' then string = 'Korn Shell' 
when shell = 'csh' then string = 'C Shell' 
otherwise string = 'unknown' 

end 

say 'OS is:' string /* write out the OS determined */ 


When this method returns, the main routine or procedural code terminates with an exit instruction. 


This script shows how user interaction can be encapsulated within classes and methods. The procedural 
code in the main routine or driver can be minimal. The classes and their methods perform all the work. 
Once you start thinking in object-oriented terms, you'll develop the knack of viewing problems and their 
solutions as groups of interacting objects with their logical methods. 


Implementing a Stack through Objects 


Object Rexx provides a large set of collection classes, built-in classes that provide a set of data structures 
and for data manipulation. Some of the key collection classes are: 


CO] Array — A sequenced collection 


C1 Bag — Anonunique collection of objects (subclass of Relation) 
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Directory — A collection indexed by unique character strings 

List — A sequenced collection which allows inserts at any position 

Queue — A sequenced collection that allows inserts at the start or ending positions 
Relation — A collection with nonunique objects for indexes 


Set — A unique collection of objects (subclass of Table) 


COocooco do 


Table — A collection with unique objects for indexes 


You'll rarely have to create your own data structures with all this built-in power available. But for the 
purpose of illustration, we use the List collection class as the basis to implement a stack in the next 
sample script. 


Here is a sample interaction with the stack script: 


Enter items to place on the stack, then EXIT 
linel 
line2 
line3 
line4 
exit 
Stack item 
Stack item 
Stack item 
Stack item 


BS 


is: LIN! 
is: LIN 
is: LIN 
is: LINI 


WwW 


Se HE HEHE 
BWDdNYOP 


He 
iS) 


Bp 


The script prompts the user to enter several lines and then the keyword exit. Here the user entered four 
lines plus the keyword exit. Then the script pops the stack to retrieve and print the items. Since a stack is 
a last-in, first-out (LIFO) data structure, the items display in the reverse order in which they are entered. 


How do we design this script? First, identify the stack as the entity or object with which the script works. 
This should be a class that we can instantiate by creating an object. 


Second, try to identify which operations or methods need to be executed on that object. Push and pop 
are two key stack operations, so we'll need a method for each of these. Further reflection leads to the 
realization we also require an initialization method (init) and a method to return the number of items 
on the stack. 


Identifying objects and their methods are the basic steps in object-oriented design. One other step (not 
relevant to this simple example) is determining the relationships or interactions between objects. 


So, the script will have one class, called stack, and four methods in that class. Here are the methods and 
their functions: 

init — Initializes the stack 

push — Places an item (or line) onto the stack (pushes the item) 


pop — Retrieves an item from the stack (pops the item) 


Oooo 


number_items — Returns the number of items on the stack 
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With this understanding of what objects and methods are required, we can write the program: 


[BRRRRRREKEREREKRER EKER ERE KKEEEKEKERE KEKE KEKE RKKKREREKEKAEKEKKEREKKKE KEK | 
f*® “SVUACK */ 
pe yp 
/* Implments a Stack data structure as based on the LIST Collection */ 
[RRRRRKRRRKEREREKREREKEREREKREREKRKEREKEKR EKER EK KEREREKKEEAEEKKEREKKAEEKE | 


the_stack = .stack~new /* create a new stack object tf, 


.output~lineout('Enter items to place on the stack, then EXIT') 


stack_item = .input~linein~translate /* read user's input of 1 item */ 
do while (stack_item <> 'EXIT') /* read all user's items to a 
the_stack~push (stack_item) fs push onto the stack and ay) 
stack_item = .input~linein~translate /* translate to upper case */ 
end 


do j=1 by 1 while (the_stack~number_items <> 0) /* pop and display if 


say 'Stack item #' j ‘is: ' the_stack~pop ips all stack items */ 
end 
exit 0 
::class stack /* define the STACK class Sa, 
::method init /* define INITIALIZATION method yf 
expose stack_list J* STACK hist Vs our stacks Gel 
stack_list = .list~new /* create a new STACK as a LIST way 
::method push /* define the PUSH method sy 


expose stack_list 
use arg item 


stack_list~insert(item, .nil) y* imisert vtemceas ist im the List +7 
::method pop /* define the POP method oy 
expose stack_list 
if stack_list~items > 0 then /* return item, remove from stack */ 
return stack_list~remove(stack_list~first) 
else 
return .nil /* return NIL if stack is empty ca 
::method number_items /* define the ITEMS method yf 
expose stack_list 
return stack_list~items /* return number of items in stack*/ 


As in previous scripts, the first action is to create an instance of the class object. Here we create a stack to 
work with: 


the_stack = .stack~new /* create a new stack object Ae} 


The program prompts the user to enter several lines of data: 


.output~lineout('Enter items to place on the stack, then EXIT') 
stack_item = .input~linein~translate /* read user's input of 1 item */ 
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The script reads a line with the 1inein method applied to the default input stream via the . input mon- 
itor object. This input line is then acted upon by the translate method. The code chains these two 
methods so that they execute one after the other. This reads and translates the input to uppercase. 


For each line the script reads, it places it into the stack. This runs the push method with the stack_item 
as input: 


the_stack~push(stack_item) {* push onto the stack and =) 


After all user-input lines have been read and placed onto the stack, this loop retrieves each line from the 
stack via the pop method and writes them to the user: 


do j=1 by 1 while (the_stack~number_items <> 0) /* pop and display we 
say 'Stack item #' j ‘is: ' the_stack~pop /* all stack items ef 
end 


The loop invokes our method number_items on the stack to determine how many items are in the stack. 
All the methods expose the stack so that they can work with it and read and alter its contents. Here is 
the code that exposes the program’s shared attribute: 


expose stack_list /* STACK_LIST is our stack. i 
Let’s discuss each of the methods in this program. The init method automatically runs when the stack 
object is first created; it merely creates a new List object. Recall that we selected the built-in collection class 
of type List with which to implement our stack. This line in the init method creates the new List object: 
stack_list = .list~new /* create a new STACK as a LIST */ 
The push method grabs its input argument and places it into the stack. It uses the List class’s insert 
method to do this. The first argument to insert is the line to place into the list, while the second is the 


keyword .nil which says to place the item first in the list: 


use arg item 
stack_list~insert(item, .nil) /* insert item as 1st in the LIST ed 


The pop method checks to see if there are items in the stack by executing the List class’s method items. 
If the List contains one or more items, it returns the proper item from the List by the remove method: 


if stack_list~items > 0 then /* return item, remove from stack a 
return stack_list~remove(stack_list~first) 
else 
return .nil /* return NIL if stack is empty 7 


If there are no items in the List, the pop method returns the NIL object. Coded as .nil, this represents the 
absence of an object (much in the same manner the null string represents the string with no characters). 


The method number_items simply returns the number of items currently on the stack. It does this by 
running the List method items: 


return stack_list~items /* return number of items in stack Lay 
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To summarize, this script shows how you can use an object and Open Object Rexx’s built-in collection 
classes and methods to create new data structures. With its built-in collection classes, ooRexx is a rich 
language in terms of its support for data structures. 


A Video Circulation Application 


The next script controls videos for a store that rents movie DVDs. It is a more ambitious script that 
demonstrates how a number of methods can be applied to a Directory collection class object. The pro- 
gram presents a menu like the following one to the user. After the user makes a selection, the script 
performs the action the user selected. Here’s an example, where the store employee adds a new DVD 
title to the collection: 


1. Add New DVD 

2. Check Movie Out 

3. Check Movie In 

4. Show Movie Status 

5. Remove Lost DVD 

im, cesar 

idjalicieve Waeywine (Clayenlels) ==S il 

Enter Movie TITLE ==> Titantic 
Movie added to titles: TITANTIC 


After each action is complete, the script clears the screen again and redisplays the menu. The program 
terminates when the user selects the option: X. Exit. 


The program error-checks for logical mistakes. For example, it will not let the user check out a video that 
is already checked out, nor will it allow the user to check in a movie that is already on hand. The script 


always ensures the title the user refers to is in the collection. If not, it writes the appropriate message to 
the user. 


As in the stack program, the Videos program implements an in-memory data structure to control the 
videos. This script uses the Directory built-in collection class to make an indexed list of videos. The film 
title is the index into the Directory; the sole data item associated with the video’s title is its status. The 
status can either be IN LIBRARY or CHECKED OUT. For simplicity, the program assumes that there is only 
a single copy or DVD for each movie title. 


The Directory of videos will be the class called movie_dir. The methods for this class are: 


Q init — Initialize the Directory 
add_movie— Add a film to the circulating collection 
check_out_movie—Check a movie out 


check_in_movie—Check a movie back in 


check_status — List the status of a movie (IN LIBRARY or CHECKED OUT) 


Oooo o 


lost_or_destroyed— Remove a lost or destroyed DVD from the circulating collection 
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Here is the script: 
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[RRRRREREREKKEKREREREKER EK KAR RE EKERKKAKERKKKERKKREREKEKEEKKEKKKE KEK / 


/* VIDEOS eis 
ie x/ 
/* An in-memory circulation system for films on DVD. Po) 


[RRREKRREREKRERERREEKKRKEREKREREKERE RE KEE KKRKEKEKKARKKKKEEKKEKERE SK / 


movie_list = .movie_dir~new /* create new Directory object Pup 


do while selection <> 'X' 


/* display menu of options sa if 
"clear' 
say "1. Add New DVD" ; Say "2. Check Movie Out" 
say "3. Check Movie In" ; say "4. Show Movie Status" 
say "5. Remove Lost DVD" ; say "X. Exit" 
/* prompt user to enter his choice and the movie title ah 
Gellil Claus , “Widieeie Wowie Cliolea => | 
pull selection . pe eye 
if (selection <> 'X') then do 
call charout ,'Enter Movie TITLE ==> ' 
pull title 
end 
/* perform user selection ine 
select 
when selection = '1' then movie_list~add_movie(title) 
when selection = '2' then movie_list~check_out_movie (title) 
when selection = '3' then movie_list~check_in_movie (title) 
when selection = '4' then movie_list~check_status (title) 
when selection = '5' then movie_list~lost_or_destroyed(title) 
when selection = 'X' then exit 0 
otherwise say 'Invalid selection, press <ENTER> to continue... 
end 
fowl /* user presses ENTER to continue “yf 
end 
exit 0 
::class movie_dir /* define the MOVIE_DIR class Es 
::method init /* INIT - create the DIRECTORY df 
expose mv_dir /* expose the DIRECTORY of interest*/ 
mv_dir = .directory~new /* creates the DIRECTORY class 2 
::method add_movie /* ADD_MOVIE */ 
expose mv_dir 
use arg title fr ase jeahelks is. men, ~xelel alic low ume =" / 
if .nil = mv_dir~at(title) then do 
mv_dir~put ('IN LIBRARY', title) /* add by PUT method */ 


say 'Movie added to titles:' title 
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end 
else /* if title is not new, err message*/ 
say 'Movie is already in collection:' title 
::method check_out_movie /* CHECK_OUT_MOVIE ae 
expose mv_dir 
use arg title /* if title doesn't exist, error ay 
if .nil = mv_dir~at(title) then 
say 'No such title to check out:' title 
else do /* if ALREADY checked out, error “ey 
if 'CHECKED OUT' = mv_dir~at(title) then 
say 'Movie already checked out:' title 


else do [Pe GE ine) Siete, ClaSelke Cie icles jealie lle / 
mv_dir~setentry (title, 'CHECKED OUT') /* alters data*/ 


say 'Movie is now checked out:' title 
end 
end 
::method check_in_movie /* CHECK_IN_MOVIE */ 
expose mv_dir 
use arg title 
if .nil = mv_dir~at(title) then /* if no title, error ty 
say 'No such title to check in:' title 
else do /* if not checked out, err */ 
if 'IN LIBRARY' = mv_dir~at(title) then 
say 'This title is ALREADY checked in:' title 
else do /* otherwise check it in ee 
mv_dir~setentry (title, 'IN LIBRARY') fre @llieeies: clita, / 
say 'The title is now checked back in:' title 
end 
end 
::method check_status CHECKERS DATOS typ 
expose mv_dir 
use arg title fi SE igo) Gila jewicdle, Gireicoue iy 
if .nil = mv_dir~at(title) then 
say 'Title does not exist in our collection:' title 
else /* if title exists, show its status*/ 
say mv_dir~at(title) /* retrieve data by the AT method */ 
::method lost_or_destroyed /* LOST_OR_DESTROYED ae 
expose mv_dir 
use arg title 
Lf onl = myodir-at (title) then 7* Line such title, error */ 
say 'Title does not exist in our collection:' title 
else do /* if title exists, remove it ee 
mv_dir~remove(title) /* REMOVE method deletes from Dir. */ 
say 'Title has been removed from our collection:' title 


end 


The first line of procedural code creates the instance or object the script will work with. This is the same 
approach we’ve seen in previous example scripts, such as the Stack and Which OS programs: 
.movie_dir~new *7 


movie_list = /* create new Directory object 
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The next block of code clears the screen, displays the menu and reads the user’s selection. The select 
instruction runs the proper method to perform the user’s selection. The .movie_dir class and its six 
methods follow the procedural code. Let’s briefly discuss each of the methods. 

The init method creates the Directory instance: 


mv_dir = .directory~new /* creates the DIRECTORY class ay 


The add_movie method checks to see if the title the user entered is in the circulating collection. It uses 
the at method on the Directory object to do this: 


if .nil = mv_dir~at(title) then do 


If .nil is returned, the script adds the title to the circulating collection (the Directory) with the status IN 
LIBRARY: 


mv_dir~put('IN LIBRARY',title) /* add by PUT method a7 


The put method places the information into the Directory. To check out a DVD, the method 
check_out_movie uses the setentry method on the Directory to alter the DVD’s status: 


mv_dir~setentry (title, 'CHECKED OUT') /* alters data */ 
Method check_in_movie similarly runs the setentry built-in method to alter the DVD’s status: 

mv_dir~setentry(title, 'IN LIBRARY' ) /* alters data Ref 
Method check_status executes method at to see whether or not a film is checked out: 

if .nil = mv_dir~at(title) then 
It then displays an appropriate message on the status of the video by these lines: 

say 'Title does not exist in our collection:' title 
else /* if title exists, show its status*/ 


say mv_dir~at(title) /* retrieve data by the AT method */ 


Finally, the method lost_or_destroyed removes a title from the circulating collection by running the 
Directory remove method: 


mv_dir~remove (title) /* REMOVE method deletes from Dir. */ 


Like most of the collection classes, Directory supports alternative ways of invoking several of its meth- 
ods. Here are a couple alternative notations: 


QO [ ]— Returns the same item as the at method 


Q []= —Same as the put method 
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For example, we could have written this line to add the new title to the Directory: 
mv_dir[title] = 'IN LIBRARY' 

This statement is the direct equivalent of what we actually coded in the sample script: 
mv_dir~put ('IN LIBRARY', title) /* add by PUT method A 


Similarly, we could have checked for the existence of a title by referring to mv_dir [title] instead of 
coding the at method as we did. This is another way of coding that reference: 


if .nil = my_dir[title] then 
This statement is the same as what was coded in the script: 
if .nil = mv_dir~at(title) then /* if no such title, error oy 


This script employs simple say and pu11 instructions to create a simple line-oriented user interface. Most 
programs that interact with users employ graphical user interfaces or GUIs. How does one build a GUI 
with Open Object Rexx? This is where the power of built-in classes and methods comes into play. The 
menu becomes a menu object and the built-in classes and methods activate it. Creating a GUI becomes a 
matter of working with prebuilt objects typically referred to as widgets or controls. Chapter 16 discusses 
graphical user interfaces for object-oriented Rexx scripting. Besides a GUI, the other feature that is miss- 
ing from the Videos script is persistence, the ability to store and update object data on disk. This simple 
script implements the entire application in memory. Once the user exits the menu, all data entered is lost. 
Not very practical for the video store that wants to stay in business! 


Object-oriented programmers typically add persistence or permanence to their objects through interfac- 
ing with one of the popular database management systems. Among commercial systems, Oracle, DB2 
UDB, and SQL Server are popular. Among open-source products, MySQL, PostgreSQL, and Berkeley DB 
are most popular. 


GUI and database capability are beyond the scope of our simple example. Here the goal was to intro- 
duce you to object-oriented programming, not to get into the technologies of GUIs and databases. Of 
course, these interfaces are used by most real-world object-oriented Rexx programs. Using class libraries 
and methods reduces the work you, as a developer, must do when programming these interfaces. 


Concurrency 


Object-oriented programming with Open Object Rexx is concurrent in that multiple objects’ methods may 
be running at any one time. Even multiple methods within the same object may execute concurrently. 


The following sample script illustrates concurrency. Two instances of the same class are created and exe- 


cute their single shared method concurrently. To make this clearer, here is the script’s output. The inter- 
mixed output shows the concurrent (simultaneous) execution of the two instances: 
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Repeating the message for object #1 5 times. 
Object #1 is running 

Object #2 is running 

Repeating the message for object #2 5 times. 
Object #1 is running 

Object #2 is running 

Driver is now terminating. 

Object #1 is running 

Object #2 is running 

Object #1 is running 

Object #2 is running 

Object #1 is running 

Object #2 is running 


Object #1 and Object #2 are two different instances of the same class. That class has one method, called 
repeat, which displays all the messages seen above, from both objects (other than the one that states 
that the Driver is now terminating.) 


Here is the code of the script: 


[RRREKRREREKKRERERKEERKRKEREREKEREKREREKEKEREREERE KEKE KKEKEREKEKRKEKKAEK KEKE / 


/* CONCURRENCY */ 
[sk We 
/* Tllustrates concurrency within an object by using REPLY instruction */ 
[ERRRRRREREKKAREKRKREREKRKEEKEKEREKREREKEKERERKEERKKEREEKKEKEREREKAKKKKKEERE KKK / 


objectl = .concurrent~new /* create two instances, «sy 
object2 = .concurrent~new /* both of the CONCURRENT class af 
say objectl~repeat (1,5) /* get Ist object running "afl 
say object2~repeat (2,5) /* get 2nd object running oy 


say 'Driver is now terminating. ' 


exit 0 
::class concurrent /* define the CONCURRENT class yp 
::method repeat /* define the REPEAT method yf 
use arg who_am_i, reps /* get OBJECT_ID, time to repeat */ 
reply ‘Repeating the message for object #' || who_am_i reps 'times.' 
do reps 
say ‘Object #'|| who_am_i ‘is running' /* show object is running */ 
end 


The script first creates two separate instances of the same class: 


objectl = .concurrent~new /* create two instances, ry 
object2 = .concurrent~new /* both of the CONCURRENT class */ 


The next two lines send the same message to each instance. They execute the method repeat with two 
parameters. The first parameter tells repeat for which object is it executing (either 1 for the first object 
or 2 for the second). The second parameter gives the repeat method a loop control variable that tells it 
how many times to write a message to the display to trace its execution. This example executes the 
method for each instance five times: 
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say objectl~repeat (1,5) /* get 1st object running ay 
say object2~repeat (2,5) /* get 2nd object running */ 


Following these two statements, the driver writes a termination message and exits. The driver has no 
further role in the program. Almost all of the program output is generated by the repeat method, writ- 
ten to show its concurrent execution for the two instances. 


Inside the repeat method, this line collects its two input arguments. It uses the use arg instruction to 
read the two input arguments: 


use arg who_am_i, reps /* get OBJECT_ID, time to repeat */ 


The next line issues the reply instruction. reply immediately returns control to the caller at the point 
from which the message was sent. Meanwhile, the method containing the rep1ly instruction keeps 
running: 


reply 'Repeating the message for object #' || who_am_i reps 'times.' 


In this case, reply sends back a message that tells which object is executing and how many times the 
repeat method will perform its do loop. Now, the repeat method message loop continues running. 
This code writes the message five times to demonstrate the continuing concurrent execution of the 
repeat method: 


do reps 
say ‘Object #'|| who_am_i ‘is running' /* Show object is running */ 
end 


This simple script shows that objects and methods execute concurrently, and that even methods within 
the same object may run concurrently. Open Object Rexx provides a simple approach to concurrency that 
requires more complex coding in other object-oriented languages. 


Summary 


This chapter introduces classic Rexx programmers to Open Object Rexx. It does not summarize or 
demonstrate all the OO features of ooRexx. Instead, it presents a simple tutorial on the product for those 
from a procedural-programming background. 


We started with a very simple script. That first script created a stream instance and demonstrated how to 
perform object-oriented I/O. Two more advanced scripts followed. These showed how to define and 
code your own classes and methods. The Stack sample program was more sophisticated. It defined sev- 
eral different methods that demonstrated how to employ the List collection class to implement an in- 
memory stack data structure. The Videos application built upon the same concepts, this time using the 
Directory collection class to simulate a video circulation control system. Finally, the Concurrency script 
illustrated the use of two instances of the same class and the concurrent execution of their methods. 


Open Object Rexx is ideal for learning object-oriented programming. It retains all the simplicity and 


strengths of classic Rexx while surrounding it with a plethora of OO features and the power of an exten- 
sive class library. 
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Test Your Understanding 
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1. 


2. 


Will every classic Rexx program run under Open Object Rexx? When might this be useful? Does 
this capitalize on ooRexx’s capabilities? 


Are all classic Rexx instructions and functions part of Open Object Rexx? Which additional 
instructions and functions does ooRexx add? 


What is a collection and how are they used? 


Convert these two functions in classic Rexx to ooRexx method calls: 


reversed_string = reverse(string) 
sub_string = substr(string,1,5) 


Do the stream class methods offer a superset of classic Rexx I/O functions? What additional 
features do they offer? 


What are the four kinds of directives and what is each used for? Where must classes and meth- 
ods be placed in a script? 


What symbols commonly express at and put in many collections? 


What are the error (. error), input (. input), and output (. output) monitor objects used for? 
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Overview 


IBM bundles Rexx with all its mainframe operating systems. These include operating systems in 
what we generically refer to as the OS, VM, and VSE families. IBM mainframe Rexx is not an open 
source product but rather is bundled with commercial mainframe operating systems. The name of 
the product is often written in uppercase, as REXX. For consistency, we'll continue to refer to it as 
Rexx. 


Mainframe Rexx is important for several reasons. Rexx was originally offered on the mainframe 
(specifically for VM/CMS). VM influenced early development of the language, leaving its imprint 
in various ways. For example, the stack is a VM/CMS feature, and many VM/CMS commands 
send their output to the stack. The stack remains a popular means for command I/O in 
mainframe Rexx today, and most of the free Rexx interpreters support the stack in this role. 


Mainframe Rexx is important because of the key role mainframes continue to play in many IT 
organizations. While the mainframe has a low profile in the trade press and in industry buzz, 
thousands of sites worldwide continue to rely on mainframes for their most vital business 
operations. Mainframes remain critical to organizations around the world. Rexx is the 
predominant mainframe scripting language. No other scripting language comes anywhere close 
to Rexx’s usage level on the mainframe. Nor does any other scripting language interface to so 
many mainframe subsystems and address spaces. 


Many readers will face the prospect of porting Rexx code from the mainframe to other platforms. 
This often means changing IBM mainframe scripts into free Rexx scripts that run under Linux, 
Unix, or Windows. Briefly comparing the differences between mainframe Rexx and open source 
Rexxes may be useful. 


IT professionals will want to apply their skills across many platforms. They may have learned 
Rexx on the mainframe and now wish to script on some other platform. Or, they may be from 
the Windows, Linux or Unix background and are unfamiliar with mainframes. Rexx offers a 
quick means to become instantly productive across varied platforms. You can easily transfer 
your Rexx skills from Windows, Linux, or Unix to the mainframe environment or vice versa. 


Chapter 29 


This chapter describes the differences among IBM mainframe Rexx, the Rexx standards, and the free 
Rexx interpreters this book discusses. The goal is to sketch the major differences between IBM 
mainframe Rexx and the free Rexxes, as well as outline the extended features of mainframe Rexx. 
These appendices drill deeper into more aspects of mainframe Rexx: 

C1 Appendix E-- Mainframe extended functions 

Appendix N -- Using EXECIO for I/O 

Appendix O -- How to write ISPF edit macros 


Appendix P -- How to run Rexx in batch (with JCL) 


Appendix Q -- Rexx versus Clist comparison 


O O O O O 


Appendix Z -- BRexx/370 for mainframe emulation on your PC 


VM Rexx Differences 


Rexx differs in slight ways across the three mainframe operating system families, which we refer to 
generically as VM, OS, and VSE. All IBM mainframe Rexx implementations meet the TRL-2 standard 
(with one or two very minor exceptions, which we’ll discuss). 


Almost all of the special features of mainframe Rexx are language extensions. This section summarizes 
them for VM Rexx. The information is based on the VM REXX Reference manual. Where they fit in, we 
add a few comments on OS/TSO Rexx, based on TSO/E REXX Reference and TSO/E REXX User’s Guide. 
The next section, “OS/TSO Rexx Differences,” explores the extended features of OS/TSO-E Rexx in 
greater detail. You can freely download all Rexx-related IBM manuals from www.RexxInfo.org. 


This section compares VM Rexx to the ANSI-1996 standard and also enumerates many of its 
differences from free Rexx interpreters for other operating systems such as Linux, Windows, and Unix. 
Figure 29-1 summarizes many of the major differences: 


Let’s now discuss these extended features of VM/CMS Rexx. 


First line 


The first line of a VM/CMS Rexx script must be a comment. The first line of an OS TSO/E Rexx script 
normally must contain the word REXx. We recommend the first line of any mainframe script contain this 
first line, which satisfies both requirements: 


[Fa NAWOM 27 


This first line is portable across almost all Rexx interpreters on all systems. The primary exceptions are 
those Linux, Unix, or BSD environments in which the first line of code traditionally indicates the 
location of the Rexx interpreter (such as: #!/usr/local/bin/regina ). Running scripts explicitly on 
these systems avoids the need for a first line that indicates where the Rexx interpreter resides, in most 
cases. 
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How VM Rexx Differs 


Extras and 
Environmental 
Additions 


Coding 
Differences 


Coding of 1st script line 


Script file types OS commands 
Additional file 1/0 commands Additional instructions 
The mainframe "not" symbol Immediate commands 

Missing functions— Mainframe tools, interfaces 
changestr, countstr 
DBCS Compiler 
Missing ANSI-1996 ADDRESS 
instruction keywords, Additional functions, 
other ANSI-1996 features function packages 


Figure 29-1 


Online help facility 


The help facility is a VM feature that distinguishes it from other platforms because the VM help facility 
includes Rexx documentation. For example, you can display information about Rexx instructions and 
functions via the help facility. Let’s look at a few examples. To get information about the say instruction, 
you could enter: 


help rexx say 


To get information about a Rexx error message, enter help with that message id. Here is the generic 
command template: 


help msgid 


For example, for help on message ID dmsrex460e, enter that message ID as the operand on the help 
command: 


help dmsrex460e 
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File types 


Mainframes use different fileenaming conventions than other platforms. These differences apply to files 
containing Rexx scripts in several ways. Under VM, Rexx scripts typically reside in files of type EXEC. 
For this reason, Rexx scripts are often referred to as EXECs or REXX EXECs. 


VM Rexx scripts designed to run as editor macro commands (or editor scripts) have the file type of XEDIT. 
These are referred as edit macros. Edit macros issue commands to the XEDIT Editor and can automati- 
cally drive the editor. Or, they can extend the editor’s functionality or tailor or automate its use. 


CMS pipelines use the file type REXX to identify a stage or program in the pipeline. CMS pipes are an 
alternative to the stack and provide a general-purpose communications vehicle popular on VM main- 
frames. Each stage in the pipeline manipulates or processes data. 


In OS (or TSO) environments, Rexx scripts may either be sequential data sets or members of partitioned 
data sets (PDSs). PDS libraries of scripts are most common. Filenames for Rexx scripts under TSO/E 
normally end in EXEC. 


“Not” symbol 


Mainframe scripts often use this symbol - as the “not” operator, for example, as in “not equal” ==. We 
recommend using the universally accepted, ANSI-standard backslash instead. For “not equal,” for exam- 
ple, use: \=. The backslash appears on all keyboards and is more transportable than the traditional main- 
frame “not” symbol. Other portable alternatives available on all keyboards for “not equal” include <> 
and ><. This principle also applies to the other operators, such as “not greater than” ( \> ) and “not less 
than” (\<). 


OS commands 


VM Rexx scripts can issue both CMS and CP commands. CMS has its own command and function 
search order. Scripts can also issue subcommands. As always, limiting the number of OS-specific com- 
mands leads to more portable code, but there are techniques to limit the impact of OS-specific com- 
mands even when they must be included. For example, isolate OS-specific code in particular routines, or 
code if statements that execute the commands appropriate to the OS under which the script runs. 
Chapter 13 explores these techniques for code portability. 


Instructions 


VM Rexx adds a few new keywords for the options and parse instructions, as well as the upper 
instruction. These extended features are of relatively minor importance, but we mention them here for 
completeness. Note that mainframe Rexx thoroughly supports the Double-Byte Character Set (DBCS). 
The DBCS supports spoken languages that require more bits for proper representation of their symbol- 
ogy. For example, DBCS can be used to support languages based on ideographic characters, such as 
Asian languages such as Chinese, Japanese, or Korean. Here is a brief list of the mainframe-extended 
Rexx instructions: 
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OPTIONS 


PARSI 


GJ 


UPPER 


Functions 
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Use 


Several options specify how strings and the Double-Byte Character Set 
(DBCS) are handled. 


Two new keywords are added to standard Rexx: 
The external keyword parses the next string from terminal input. 
The numeric keyword retrieves the current numeric settings. 


This translates a string to uppercase. 


VM Rexx provides a grab-bag of extended built-in functions. The FIND, INDEX, and JUSTIFY functions 
have largely been superceded by standard Rexx functions. Use WORDPOS, POS, RIGHT, and LEFT instead 
of the mainframe functions for more portable, standardized scripts. The EXTERNALS and LINESIZE func- 
tions manage I/O to the terminal (or the desktop computer emulating a terminal). Here are the extended 


VM functions: 


Function 


EXTERNALS 


FIND 


INDEX 


JUSTIFY 


LINESIZE 


USERID 


Use 


Returns the number of elements in the terminal input buffer 


Returns the word number of a specified word within a string (similar 
to the wordpos function in ANSI-standard Rexx) 


Returns the character position of one string within another (similar to 
the pos function in ANSI-standard Rexx) 


Justifies a string by adding pad characters (use the right, left, and 
space ANSI-standard functions instead) 


Returns the current terminal line width 


Returns the system-defined user identifier 


VM Rexx also adds over a dozen functions to handle the DBCS. All begin with the letters DB. We have 
not listed the DBCS functions in the preceding chart. 


Some standard Rexx functions are enhanced with mainframe-unique parameters. For example, the 
STREAM function includes specifications for LRECL and RECFM. These specifications describe the way files 
are structured in the mainframe environment. 


Appendix E provides function formats and a usage description for the additional built-in mainframe 


functions. 
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Function packages and external functions 


The VM Rexx language processor knows about and automatically loads any or all of these three named 
packages if any function within them is invoked from within a script: RKXUSERFN, RXLOCFN, and 
RXSYSFN. Users may add their own functions to these libraries. These additional VM Rexx external func- 
tions are also automatically loaded if invoked: 


External Function Use 

APILOAD Includes a binding file in a Rexx program 

CMSFLAG Returns the setting of certain characters 

CSL Invokes callable services library (or CSL) routines 

DIAG Communicates with CP through the DIAGNOSE instruction 
DIAGRC Similar to the DIAG instruction 

SOCKET Provides access to the TCP/IP socket interface 

STORAGE Inspects or alters the main storage of the user’s virtual machine 


CMS immediate commands 


The CMS immediate commands can be used to dynamically halt and restart script execution or the Rexx 
trace facility from outside the script. Since these commands operate from outside of scripts, you could, 
for example, start a script, then type in a TS immediate command while it runs. This dynamically turns 
on the trace facility in real time. Entering the TE command would immediately turn off the trace. 
Immediate commands act like toggle switches that you access from outside the script without making 
any code changes. 


The immediate commands include: 


QQ) H1I—Halt Interpretation 

Q tTS—Trace Start 

Q) tTE—Trace End 

Q Hux— Halt Execution 

Q uHutT—Halt Typing 

Qh RtT—Resume Typing 
Compiler 


IBM provides Rexx compilers for both VM and OS. To be more precise, IBM provides one compiler that 
generates code suitable for the operating system platform on which it runs. This compiler allows you to 
quickly develop scripts with the interactive interpreter, then convert finished programs to object code by 
compiling them. This approach yields the benefits of an interpreter in quick development and interactive 
debugging along with the compiler advantage of faster program execution for finished programs. 
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We note that the relative performance gain one experiences from compiling varies according to the envi- 
ronment and the nature of the script itself. A good example of a script that might benefit from compilation 
is a computationally intensive program. As another example, systems that do not execute much code out- 
side of the Rexx environment might also see significant benefits. Yet there are situations where the compiler 
underperforms the Rexx interpreter. So, while compiled scripts are generally faster, we don’t wish to over- 
simplify the relative performance of compiled versus interpreted scripts in the mainframe environment. 


As in other environments, the mainframe compiler can be used as a mechanism to hide source code. 
Some organizations use the compiler, for example, where audit or security rules forbid the presence of 
source code in the production environment. The compiler can also aid in better syntax checking. For 
example, it checks all logic branches in a program, whereas the Rexx interpreter only verifies branches 
that execute. 


Useful CMS commands 


A number of CMS commands are especially useful from within VM Rexx scripts. These have no special 
relationship to Rexx; they are part of the CMS operating system and are CMS commands. But since they 
are commonly issued from within scripts, we list them here: 


CMS Command Use 

DESBUF Clears (drops) all stack input/output buffers 

DROPBUF Deletes the most recent stack buffer or a specified set of them 

EXECDROP Deletes EXECs residing in storage 

EXECIO Performs I/O, or issues CP commands and captures results 

EXECLOAD Loads an EXEC, readies it for execution 

EXECMAP Lists EXECs residing in storage 

EXECSTAT Provides EXEC status 

FINIS Closes files 

GLOBALV Saves EXEC data or variables 

IDENTIFY Returns system information 

LISTFILE Lists files 

MAKEBUF Creates a new buffer in the stack 

PARSECMD Parses EXEC arguments 

PIPE Calls CMS Pipelines to process a series of programs or stages; each 
stage manipulates or processes data 

QUERY Queries SET command information 

SENTRIES Tells how many lines are in the program stack 

SET Modifies the function search order; controls screen I/O or tracing 

XEDIT The XEDIT editor may be controlled by Rexx scripts called edit macros 
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OS/TSO Rexx Differences 


As with VM Rexx, almost all of the special features of mainframe Rexx for OS/TSO are language exten- 
sions. This section summarizes the major differences. The information is from TSO/E REXX Reference, 
SC28-1975 (version 2 release 10) and TSO/E REXX Reference SA22-7790 (version 1 release 6). The intent is to 
point out the extended features of OS/TSO Rexx versus ANSI-standard Rexx and the free Rexx inter- 
preters available for environments such as Linux, Unix, and Windows. This section adds to some of the 
comments made in the earlier section entitled “VM Rexx Differences.” We will not repeat the informa- 
tion already discussed in that section. 


Figure 29-2 summarizes some of the major differences between Rexx under OS/TSO versus other plat- 


forms. The additional features and facilities of Rexx for TSO/E outweigh the few language elements that 
it lacks. 


How TSO/E Rexx Differs 


Extras and 
Environmental 
Additions 


Missing or 
Different 


Coding of 1st script line Additional instructions 


Additional functions 


Missing conditions— 
LOSTDIGITS, NOTREADY 


DBCS Compiler 


Missing functions— TSO/E external functions 
changestr, countstr 


TSO/E Rexx commands 


Missing ANSI-1996 ADDRESS 
instruction keywords, other Immediate commands 
ANSI-1996 features 


TSO/E programming services 


Standard I/O functions are 
in an external package Mainframe interfaces, tools 


Figure 29-2 


Let’s discuss the details of the differences between programming Rexx in OS environments versus other 
platforms. 
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Additional instructions and functions 


OS/TSO Rexx adds the exact same instructions and functions as does VM Rexx. See the two tables in the 
previous VM description labeled “Instructions” and “Functions” for complete lists and descriptions of 


these additions. 


TSO/E external functions 


While its extra instructions and built-in functions are very nearly the same as those for VM, OS/TSO 
Rexx differs almost totally from VM Rexx in its additional external functions. These are the OS TSO/E Rexx 


extensions: 


External Function 


GETMSG 


LISTDSI 


MSG 


STORAGE 


SYSCPUS 


SYSDSN 


SYSVAR 


Use 


Returns a message issued during the console session. Since this 
affects the system console, most sites only authorize using this 
function in special situations. 


Returns information about a data set, including its allocation, 
protection, and directory. 


Tells whether TSO/E messages are being displayed while the 
script runs. This status will be either ON or OFF. 


Returns information about the current session or security labels. 


Either returns the name of the variable in which trapped output 
is stored, or returns OFF if trapping is turned off. 


Returns the prompt setting for the script, either ON or OFF. 


Returns a three-character code that tells the spoken language in 
which Rexx messages are displayed. 


Reads a given number of bytes of storage from a specified 
address. 


Returns information about active CPUs in a stem variable. 


Returns information about whether a given dsname is available 
for use. 


Returns information about the current session, including soft- 
ware levels, the logon procedure, and user id. 


TSO/E Rexx commands 


Another important extension to OS/TSO Rexx are its set of over 15 commands. These commands perform 
services such as controlling I/O processing and script execution characteristics, managing the stack, exe- 
cuting immediate commands, and checking for the existence of host command environments. This table 
lists the commands by their functional area: 
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Functional Area Commands 

Controlling I/O processing EXECIO 

Control script execution characteristics EXECUTIL 

Stack services MAKEBUF, DROPBUF, QBUF, QELEM, 
NEWSTACK, DELSTACK, QSTACK 

Check for existence of host command environments SUBCOM 

Immediate commands HE, HI, HT, RT, TE, TS 


Many of these commands duplicate functionality of the VM command environment, such as the stack 
services, the immediate commands, and the EXECIO command for input/output. 


Here is a complete list of the commands along with descriptions of how they are used: 


TSO/E Rexx Command Use 

DELSTACK Deletes the most recently created stack and all its elements 

DROPBUF Drops the most recently created stack buffer 

EXECIO Controls and performs data set I/O; employs either the 
stack or stem variables for the I/O. 

EXECUTIL Changes script execution characteristics 

HE Halt execution; immediately halts the script 

HI Halt interpretation; immediately halts script interpretation 

HT Halt typing; immediately suppresses a script’s terminal 
output 

MAKEBUF Creates a new buffer on the stack 

NEWSTACK Creates a new data stack (hiding the current data stack) 

QBUF Returns the number of buffers on the stack 

QELEM Returns the number of data stack elements in the most 


recently created stack buffer 


QSTACK Returns the number of data stacks for a script 

RT Resume typing; continues or resumes a script’s terminal 
output 

SUBCOM Tells whether a specified host environment exists 

TE Trace end; immediately ends tracing 

TS Trace start; turns on tracing 
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These TSO/E commands are not Rexx functions, nor are they regular operating system commands. They 
are special operating system commands that can only be run from with Rexx scripts. 


Code them in the same manner that scripts issue commands to the operating system. For example, this 
series of commands manipulates buffers and shows how Rexx scripts issue commands: 


"MAKEBUF " /* create one buffer ae, 
"MAKEBUF " /* create a second buffer yf 
"DROPBUF " /* delete the second buffer */, 
"QBUF" /* ask how many buffers we have iy 
SAY 'The number of current buffers is:' RC iio Chigjyoilewyee al </ 


Here is a similar example that issues some of the stack commands. Note that stacks differ from buffers in 
that one already exists prior to issuing the first NEWSTACK command: 


"NEWSTACK" /* create a second stack ay 
/* (one already exists by default) */ 
"NEWSTACK" /* create a third stack +7 
"DELSTACK" /* delete the most-recent stack Sih 
"OSTACK" /* ask how many stacks we have ae 
SAY 'The number of data stacks is:' RC fe? Clisjollenyee 2° // 


TSO/E programming services 


OS/TSO provides a range of extended “programming services” available to Rexx scripts. These are OS- 
and TSO-specific services that are typically used for controlling aspects of the mainframe environment 
or in using its facilities and subsystems. 


The services available to Rexx scripts depend on the address space in which they run. Available services 
further depend on whether the scripts are run in the foreground (interactively) or in the background (as a 
noninteractive batch job). 

These topics become very OS-specific and extend beyond the scope of this book. Please see the main- 


frame Rexx reference manuals for information on programming services and interfaces. Appendix A tells 
how to freely download them. 


Mainframe Rexx and the Language 
Standards 


Both VM and OS TSO/E Rexx conform to the TRL-2 Rexx language standard. There are a very few 
minor differences between VM and OS Rexx and the TRL-2 standard, which we'll discuss momentarily. 
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In contrast, mainframe Rexx doesn't quite conform to the newer ANSI-1996 standard. Like many of the 
free and open-source Rexx interpreters available on other platforms, mainframe Rexx falls short of 
including all the ANSI-1996 features. 


First, let’s discuss how mainframe Rexx conforms to the TRL-2 standard. Scanning the VM Rexx 
manuals, we were unable to find any TRL-2 standard feature or function that VM/CMS Rexx lacks. 


In contrast, TSO/E Rexx differs in several small ways from TRL-2. One minor difference is that TSO/E 
Rexx lacks the NOTREADY condition. Another key difference is that TSO/E Rexx does not include the 
standard Rexx I/O functions in the core language. Recall that these standard I/O functions are CHARS, 
CHARIN, CHAROUT, LINES, LINEIN, LINEOUT, and STREAM. These functions are all available to OS 
programmers through the external function package commonly called the Stream I/O Function Package. 
IBM documents it in their manual, IBM Compiler and Library for REXX on IBM Z. 


VM and TSO/E Rexx developers thus have a choice between the “traditional” mainframe I/O model 
supported by the EXECIO command, and the standard Rexx I/O model. EXECIO is widely used and 
understood and fits well with mainframe file systems and allocation methods. Standard Rexx I/O is 
simpler, portable, and conforms to the Rexx standard. Developers can use either model, or both, as they 
choose. The two may be intermixed within scripts. 


While VM and OS Rexx conform to the TRL-2 standard, they lack the features introduced by the ANSI- 
1996 standard. Let’s briefly list of these missing elements: 


L] Instructions — A couple standard instruction keywords are missing. They include: 


C1 aApbpDRESS — Does not support ANSI-1996 keywords INPUT, OUTPUT and ERROR 
— Command I/O is always through the stack. 


QO) sIGNAL — No LOSTDIGITS condition for error trapping 


L] Functions — Mainframe Rexx does not support the new ANSI-1996 string functions 
CHANGESTR and COUNTSTR. The TIME function allows only a single argument and does not 
support the ANSI-1996 conversion features. The DATE function supports date conversions but 
does not appear to strictly conform to the ANSI-1996 definition. 


C) Condition Trapping — The new ANSI-1996 condition trap LOSTDIGITS is absent. Recall that 
this exception condition is raised when the loss of significant digits occurs during 
computation. 


In summary, both VM/CMS and TSO/E Rexx meet the TRL-2 standard, but omit most of the ANSI- 1996 
standard’s additions. This fits right in with the majority of free and open-source Rexx interpreters, most 
of which follow the same pattern at the time of writing. 


Interfaces 


Since IBM declared Rexx its official command procedures language (or scripting language), the company 
has interfaced or integrated practically every one of its other products into Rexx. Many different 
subsystems can be programmed with Rexx. Rexx has become the general-purpose default programming 
language for interfacing to and controlling mainframe services. 
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Here is a partial list of some of the Rexx mainframe programming interfaces: 


Mainframe Rexx Programming Interfaces 


EXEC interface 

CMS assembler macros and functions 

CP assembler macros (such as IUCS and APPC/VM) 

Group Control System or GCS interface and GCS assembler macros 

Callable service library routines (CSL routines) 

OS and VSE simulation interfaces 

CP DIAGNOSE instructions 

Interface into some VM control blocks 

CP system services 

Data record formats intended for processing by applications (e.g.: accounting records) 


Calls to Rexx scripts from programs written in languages like Assembler, C, COBOL, FORTRAN, 
Pascal, and PL/I 


Rexx Exits — these allow applications to tailor the Rexx environment 

XEDIT editor — you can write editor macros in Rexx 

Interactive System Productivity Facility Editor (the ISPF Editor) 

Interactive System Productivity Facility Dialog Manager (ISPF Dialog Manager) 


address cpicomm—calls program-to-program communications routines that participate in the 
Common Programming Interface (CPI) 


CPI Resource Recovery Routines 

Netview — customization using Rexx 

address openvm— invokes OPENVM routines 

Rexx Sockets — a full set of functions and API to interface to TCP/IP 


Customer Information Control System, or CICS — Customer Rexx offers easier programming with 
this teleprocessing monitor 


VSAMIO interface to manipulate VSAM files (ESDS, KSDS, and RRDS) 

VM GUI interface 

MQ-Series Rexx interface 

Information Management System or IMS Rexx interface (also called the DL/I Interface) 
DB2 UDB SQL programming and database management and administration interfaces 


Command environments CPICOMM, LU62, APPCMVS, CONSOLE, ISPEXEC, and ISREDIT 
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Describing these interfaces and showing how to use them is beyond the scope of this book (indeed, of 
any single book!). The point is that you can interface Rexx to almost any tool, language or facility under 
VM, OS or VSE. Rexx is the lingua franca of the modern mainframe. See the IBM documentation in 
Appendix A on resources for more information. 


Rexx’s dominance is such on mainframes that many third-party vendors also use the language in their 
products. For example, the setup and installation scripts for products may be coded in Rexx. Or, the 
products may support a Rexx scripting interface for customers. Candle Corporation’s performance mon- 
itoring and automated operations products exemplify this trend. From the vendor’s standpoint, of 
course, Rexx makes a nice fit. It is ubiquitous on mainframes and every customer will have it installed. 
Customers can be assumed to have Rexx expertise. The language is a powerful enough general-purpose 
language that it can accomplish any task. Yet it is an easy language to decipher if a customer has to 
understand the vendor’s scripts. 


Sample Scripts 


Let’s look at a few simple scripts to illustrate aspects of mainframe scripting. The scripts are from the 
VM environment and were developed and tested under various releases of that operating system. The 
purpose of these scripts is to demonstrate a few of the basic techniques of mainframe Rexx program- 
ming. To this end, we demonstrate how to issue VM’s CMS and CP commands, how to retrieve operat- 
ing system command output from the stack, how to send input to OS commands through the stack, and 
how to use the EXECIO command for file I/O. These sample scripts highlight a few of the typical tech- 
niques one would use in mainframe Rexx scripting. We’ve kept these scripts bare bones to hone in on the 
mainframe-specific aspects. So, we purposely exclude error checking, analyzing return codes, and the 
other essentials of robust, real-world scripts. 


Let’s take a look at the first sample script. Under VM, scripts can issue CMS commands or CP com- 
mands (among others). This script demonstrates how. In VM environments, CMS commands are those 
issued as if they came from the interactive command line, while CP commands control various aspects 
of the environment or one’s virtual machine. By default, Rexx scripts send non-Rexx commands to CMS. 
Prefacing a command with the letters CP sends it to CP. 


This sample script illustrates how scripts issue both CMS and CP commands. It links to another user’s 
A-disk. To run the script, the user enters the userid of the other user, a virtual address for the device, and 
a disk letter. Here’s the script: 


/* This Exec links to another user's A-disk ao): 
fx ar, 
/* Enter: LINKTO userid vaddr diskletter ti 
/* Example: LINKTO ZBPDO1 201 & ay) 


arg userid vaddr diskletter . 


if diskletter = "" then 
say 'Wrong number of arguments, error!' 
else do 


cp link to userid 191 as vaddr r 
access vaddr diskletter 
end 
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fea) 


To run this script, the user enters a line like this: linkto ZBPDO1 201 


The script starts by reading the user’s input parameters through the arg instruction. If the correct num- 
ber of input arguments appear to have been encoded, the script issues the CP 1ink command to link to 
the other user’s minidisk in this line of code. The letters cp ensure that the command is sent to CP for 
execution: 


cp link to userid 191 as vaddr r 
This statement issues the CMS access command to make the minidisk accessible: 
access vaddr diskletter 


This simple example shows how scripts issue both CMS and CP commands. But it differs from many of 
the scripts you'll encounter in mainframe environments in one important way. We’ve written this script 
in the same style as most of the other scripts in this book. The mainframe has its own stylistic traditions 
and conventions. These are not required by any means, but they tend to reflect how mainframe Rexx 
scripts differ from those on many other platforms. When encoding operating system commands, main- 
frame developers often: 


Q Encode OS commands in uppercase 

Q) ~~ Enclose all hardcoded (unevaluated) portions of commands in quotes 
Q ~Use double-quotation marks rather than single quotation marks 
Q 


Encode the address instruction to directly send commands to the desired environment 
For example, we coded the two key commands in the preceding script like this: 


cp link to userid 191 as vaddr r 
access vaddr diskletter 


While individual styles vary, many mainframe professionals would code the same two lines like this: 


ADDRESS CP "LINK" userid "191 AS" vaddr "R" 
"ACCESS" vaddr diskletter 


The address CP instruction sends the LINK command directly to CP for execution. The capitalization 
and double-quotation marks visually separate the hardcoded portions of OS commands from the substi- 
tutable variables encoded in the statements. Some mainframe professionals prefer to capitalize both 
commands and variables, as in this example: 


ADDRESS CP "LINK" USERID "191 AS" VADDR "R" 
"ACCESS" VADDR DISKLETTER 


When viewing these different ways to encode these two statements, remember that the difference is mainly 
stylistic. The rules on how Rexx determines whether or not to send command strings to external environ- 
ments, whether or not it evaluates expressions in those commands and performs variable substitution, and 
the uppercasing of command strings is exactly the same in mainframe Rexx as in all other standard Rexx 
interpreters. Hopefully, ardent mainframers will forgive the author if he remains consistent with the rest of 
this book and continues its lowercase, minimal quotation mark style in the upcoming examples. 
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Let’s move on to the next sample script. This sample script shows how programs typically interact with 
operating system commands through the external data queue, or stack. This script issues the CMS 
identify command, from which it retrieves a line of information about the environment. The script 
accesses this line from the stack and displays the output to the user: 


/* This procedure directs output from the CMS IDENTIFY command to the x] 
/* program stack. It then reads that information by the PULL instruction */ 
/* and displays it. 2), 


‘identify (stack 1lifo' 
pull userid at node via rscsid date time zone day 


say ‘The virtual machine userid is:' userid 

say 'The RSCS node is:' node 

say ‘The userid of the RSCS virtual machine is:' rscsid 
say ‘The date, time, and day are:' date time day 

exit 


The script issues the CMS identify command through this line. The stack option directs CMS to place 
the command’s output on the stack: 


‘identify (stack 1lifo' 

The script then retrieves a line of output from that command off the stack through a pu11 instruction: 
pull userid at node via rscsid date time zone day 

The script concludes by displaying the various items of information to the user. 


Many other CMS commands besides the identify command can place their output onto the stack for 
script processing. Here are a few others: 


CMS Command Use 

EXECIO Uses the stack for a variety of input/output operations; can execute 
CP commands and collect their output into the stack 

IDENTIFY Retrieves the user ID, node name, and other environmental 
information 

LISTFILE Retrieves file information 

NAMEFIND Retrieves communications information from the names file 

QUERY Retrieves information about CMS status 


Here is another example of how scripts can use the stack. In this case, the script acquires a minidisk for an 
interactive user and then issues the format command to format the disk for use. The format command, 
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of course, requires several input parameters. The script provides these parameters (or subcommands) by 
placing them on the stack prior to issuing the format command. That command then reads these input 
parameters from the stack. Here is the script: 


/* This procedure acquires a temporary 3390 minidisk. It places ay 
/* responses to the FORMAT command on the stack prior to issuing that */ 
/* command to format the new disk for use. vip 


arg cyls vaddr diskletter 
We Cligizieeicee = "" ile epebic 10) 


cp define t3390 as vaddr cyls 
sLiz afe) = (0) jelevent predic 210) 


queue 'YES' 

queue 'TDISK' 

format vaddr diskletter 
shiz ete VO) Eloyeiel ereilic BO) 
exit 


This script first specifies the minidisk characteristics with the CP define command. Then, it places the 
words YES and TDISK onto the program stack via the queue instruction. So, when the subsequent format 
command asks whether to format the disk, it reads the word YES from the stack, and when it prompts 

for a minidisk label, it reads the word TDISK from the stack. In this way, the program issues a CMS 
command and provides input to the command through the program stack. It issues what are often called 
subcommands to the CMS format command using the stack as its communications vehicle. 


The next sample script retrieves a list of files, sorts it, and presents the sorted list to the user. Here is the 
program: 


/* This procedure lists 'script' files sorted by size, smallest to oH 
/* largest. Hy} 
makebuf 


'listfile * script a (exec date' 
push “Ay 51 

set cmstype ht 

sort cms exec a sortlist exec a 
set cmstype rt 

type sortlist exec a 

dropbuf 


exit 0 


This program first creates its own stack buffer, through the makebuf command. This ensures that the 
program works only with its own memory area. 
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After the CMS list £ile command retrieves a list of files, the script issues the set cmstype ht com- 
mand to ensure that the sort command does not prompt the user to input the sort positions used in 
sorting the CMS EXEC file. Instead, the script inputs the sort positions desired through its push instruc- 
tion. After suppressing any prompt from the sort command, the script resumes display output by the 
set cmstype rt command. Finally, the script displays the sorted file list on the screen, and concludes 
by dropping the stack buffer it created when it started. 


This is our second sample script that feeds input into an external command via the stack. This table lists 
a few common CMS commands which accept stack input: 


CMS Command Use 

EXECIO Uses the stack for a variety of input/output operations 

COPYFILE With the specs option, reads stack information that specifies 
how the copy is to occur 

FORMAT Requires input for formatting a minidisk 

SORT Requires input information in sorting a file 


The final sample script illustrates the execio command, the CMS command that reads and writes lines 
to and from disk, the stack, or other virtual devices. It is very common to see mainframe scripts use the 
execio command instead of the standard Rexx I/O functions. This script simply prompts the user to 
enter lines via his or her keyboard. It then writes these lines to disk, and reads and displays them back to 
the user. This script has little practical value, but it does illustrate how mainframe scripts often use the 
execio command as a basic vehicle for I/O. Here is the script: 


/* This procedure prompts the user to enter lines, then writes them to */ 
/* a disk file by EXECIO. It then reads all the lines back via EXECIO cay 


/* and displays them to the user on his or her display screen. ey 
/* */ 
/* Tf the file already exists, the input data is appended to it. ry 
fox Oye 
(ee Tiakesieg — IUIN(OU/ ea fate eH) 
/* Example: INOUT NEWFILE DATA soe 


Guetoj acral EE. 


conwait /* clean up the environment */ 
desbuf 
/* Access input lines and write them to the disk file ar 


say 'Enter lines of data, enter a null line when done' 
parse pull line 
do while line \= ''' 
"execio 1 diskw' fn ft a '(string' line 
shige ate’ = (0) (elaveiol fey Vistevel INC’ hal tesliley Wiweaiieeg” see! 
parse pull line 
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end 
ieakiaskS) ail IEE Gl 


/* Read the file lines back and write them to the user's display. yf 


say 'The following is typed courtesy of EXECIO reads:' 
‘execio 1 diskr' fn ft a 
do while rc = 0 
parse pull line 
say line 
epasxenivoy il yclaieiiere! iEigy SBI eG) 
end 


wie dele: \\S A ielavein Keely? “sree! INC! (igi ies Ike) seveyeyelg Gate! 
ial) ial IEE Gl 


Saale 10) 


The two new lines in this script are those that write and read a disk file via the execio command. Here 
is the write statement: 


"execio 1 diskw' fn ft a '(string' line 
And, here is the statement that reads the lines from the disk: 
‘execio 1 diskr' fn ft a 


In both cases, notice that the script explicitly closes the file after it is done using it through the CMS 
finis command: 


finis fnfta 


Of course, mainframe Rexx for VM supports all the standard Rexx I/O functions and instructions, such as 
chars, charin, charout, lines, linein, and lineout. So, why would one use the execio command? 
In a word: compatibility. Many mainframe scripts are legacy systems, which were written using execio 
and other mainframe-only commands. Some programmers like the way execio fits with mainframe file 
system concepts, such as file allocation with blocking and record length specifications. Too, TSO/E Rexx 
only supports execio,unless your system has the Stream I/O package installed. Either I/O approach 
works fine, so use whichever you feel best fits your needs. 


This concludes the sample mainframe scripts. Please see the mainframe manuals for further information. 
The two IBM user’s guides offer good introductory tutorials for mainframe Rexx scripting. See the 
REXX/VM User’s Guide, SC24-6114 and its equivalent for z/OS, the TSO/E REXX User’s Guide, SC28-1974. 
The section entitled “Further Information” lists some other good sources of information on mainframe 
Rexx programming. 
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Migrating Mainframe Scripts 
to Other Platforms 


Many mainframe shops are rehosting their programs on downsized platforms. Some of the alternatives 
include Windows, Linux, and Unix. The goal is usually to reduce platform costs, although sometimes the 
goal is to redistribute machine resources or migrate to a new platform for strategic reasons. 


To port mainframe Rexx scripts, follow the recommendations in Chapter 13 on portability. Code within the 
Rexx standards. Avoid mainframe Rexx extensions (for instructions and internal and external functions). 
Avoid using nonportable interfaces for databases, screen I/O and the like. Limit the number of operating- 
system-specific commands scripts issue. Isolate OS-specific instructions to their own routines when you 
must code them, or include logic that figures out which platform the script is running on and issue the 
appropriate OS commands based on that. 


Of course, rehosting means working with legacy code. As far as following these portability suggestions, 
it’s often too late— the deed is done, the code already exists. The real question is: how do you port exist- 
ing scripts? 


The first step in porting legacy code is to identify the kinds of machine-specific Rexx code we mention 
here. This can be a slow, manual process, requiring skilled personnel to look through the scripts to rehost. 


Sometimes it is possible to speed the process and increase its accuracy by writing a Rexx script to scan 
the migrating scripts. This script identifies potential problems simply by printing the lines and/or line 
numbers in which nonportable code occurs. The script would scan for the extended language features of 
mainframe Rexx listed above. These would include mainframe-specific: 

Instructions 

Functions 

External functions 


Commands 


Interfaces 


I/O (such as the EXECIO command) 

“Not” symbol = 

Coding that depends on the EBCDIC character encoding scheme 
The Double-Byte Character Set 


COCoovoodoceoutovo oO 


Computer-assisted rehosting through a scanning script can be faster and more accurate than manual 
script rewrites. Different Rexx interpreters offer different degrees of compatibility with mainframe Rexx. 
If you are rehosting mainframe scripts, pick an interpreter that has extensions that support mainframe 
Rexx features. Whatever approach you take, the scope of the porting effort ultimately depends on the 
degree to which the scripts employ mainframe-only Rexx features. 
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Applying Your Rexx Skills to Other Platforms 


Another aspect of migrating to a new platform concerns how much training personnel require to make 
the change. Rexx presents a major benefit. Mainframe professionals almost always know Rexx or are 
familiar with it. The strong Rexx standard and the language’s ease of use give mainframers a tool that 
they can immediately use in their new environment. Instead of learning an entirely new language that 
mainframers most likely do not use (like Perl, the Unix shell languages, or Python), Rexx presents a 
point of commonality between the mainframe and the new platform. Leveraging Rexx lessens training 
needs and reduces the impact of migrating to the new environment. Mainframers who know Rexx can 
be instantly productive on any new platform simply by installing and using free Rexx. 


“Skills portability” works in both directions. Few colleges today teach their computer science students 
about mainframes. Rexx presents a point of commonality whereby those who know it on Windows or 
Linux also know the language of mainframe scripting. Knowing how to script Rexx on Windows or Linux 
provides an immediately usable mainframe skill and provides an “access point” to the mainframe envi- 
ronment for these individuals. 


Further Information 


There are many good sources of additional information on mainframe Rexx scripting. We've already 
mentioned the key IBM manuals in this chapter. You can download them for free from 
www.RexxInfo.org. Appendix A lists some other online sources for further information on 
mainframe Rexx, including Web-based discussion groups where you can post questions and interact 
with peers. 


Most mainframe Rexx books were published years ago, yet they are still quite useful today. You can 
download many of them for free from www. RexxInfo.org. Others can easily be purchased through an 
online used book site, such as www. amazon.com. Some good titles to look for include The Rexx Handbook 
(G. Goldberg, McGraw-Hill, ISBN 0070236828), Programming In REXX (C. Daney, McGraw-Hill, ISBN 0-07- 
015305-1), REXX in the TSO Environment (G. Gargiulo, QED, ISBN 0-89435-354-3), Rexx: Advanced 
Techniques for Programmers (P. Kiesel, McGraw-Hill, ISBN 0070346003), and REXX Tools and Techniques (B. 
Nirmal, QED, ISBN 0894354175). 


Summary 


This chapter summarizes some of the extended features of IBM mainframe Rexx. The goal was to give 
you background in case you need to: 


C1 Transfer your skills across mainframe and other platforms 


Port or rehost scripts between mainframes and other platforms 


U 
LI Assess the differences between free and mainframe Rexx implementations 
U 


Assess the differences between mainframe Rexx and the ANSI Rexx standard 


The chapter concentrates on VM and OS TSO/E Rexx. If you are interested in VSE Rexx, please see the 
resources listed in Appendix A. 
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This chapter also describes a few of the many interfaces with which Rexx interacts in the mainframe 
environment. IBM has long sought to leverage Rexx as its scripting language across all its mainframe 
tools and interfaces. On mainframes Rexx is truly a universal language that interfaces to all tools and 
products. 


Test Your Understanding 


1. What language standards does mainframe Rexx meet? What manual should you obtain if you 
want to know the details of IBM’s SAA command procedure language specification? 


2. What extra instructions does IBM mainframe Rexx add over the ANSI-1996 standard? What 
functions does it add? What features of the ANSI-1996 standard are missing from main- 
frame Rexx? 


3. | What is the Double-Byte Character Set, and why would you use it? Does mainframe Rexx 
support DBCS? 


What are the extensions mainframe Rexx brings to file I/O? What functions support this? 
What are CMS immediate commands, and how are they used when running scripts? 
What are mainframe function packages, and how are they used from within scripts? 
What is the advantage to a Rexx compiler? When do you typically compile a Rexx script? 


What should you encode as the first line of a mainframe Rexx script? 


pe ONO Bp 


What are the VM file types for Rexx scripts? 
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Overview 


NetRexx is an object-oriented Rexx-like language designed to bring the ease of use associated with 
Rexx to the Java environment. It can be used wherever you might otherwise employ Java. This 
includes server-side Java, in the form of servlet programming and dynamic Java Server Pages. You 
can even write Java Beans in NetRexx, components that fit into Java’s reusable component 
architecture. 


NetRexx scripts compile into Java byte code. They seamlessly use Java classes and create classes 
that can be used by either Java or NetRexx programs. NetRexx offers an alternative language 

in the Java environment, one that can be intermixed in any manner and to any degree with 
Java programs. The goal is to bring the ease of use, maintainability, and reliability of Rexx to 
the Java environment. 


NetRexx is not a superset of classic Rexx. In this it differs from object-oriented Rexx interpreters 
like the Rexx Language Association’s Open Object Rexx. But NetRexx is similar enough to classic 
Rexx that programmers can pick it up quickly. To port classic Rexx scripts to NetRexx, use a utility 
like Rexx2Nrx, the free classic Rexx to NetRexx automated conversion tool. 


This chapter briefly summarizes the purpose and highlights of the NetRexx language. 


Why NetRexx? 


NetRexx is very different in its goals as opposed to either classic or object-oriented Rexx inter- 
preters. Let’s look at the language’s key advantages: 


Ol Ease of use and productivity — NetRexx brings the ease of use and productivity 
associated with Rexx to the Java environment. NetRexx is clear, powerful, and simple. 
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Ll Java integration — NetRexx seamlessly integrates into the Java environment. NetRexx scripts 
use Java classes and can be used to create classes used by Java programs. You can write Java 
Beans in NetRexx. NetRexx also supports server-side development. 


C1 Portability — Any platform that runs Java runs NetRexx. Like Java, NetRexx provides 
machine- independence through the Java Virtual Machine, or JVM. 


C1 Scripting — NetRexx supports traditional scripting — quick, low-overhead coding — in Java 
environments. NetRexx automatically creates a class with a main method so that you can code 
simple scripts without overhead. 


C1 = The Java alternative — NetRexx fits into the Java environment and provides a fully 
compatible language alternative. NetRexx requires fewer keystrokes than Java and 
eliminates Java’s C-heritage syntax. NetRexx can generate formatted Java code, including 
original commentary, if desired. 


Ll Easy migration — Whether you're migrating classic Rexx scripts or transferring your 
skills, NetRexx eases migration into the Java environment. 


LC] Flexibility — The NetRexx translator can be used as a compiler or an interpreter. As an inter- 
preter, it allows NetRexx programs to run without needing a compiler or generating 
.class files. NetRexx programs can be both compiled and interpreted in just one 
command. This is easy to do and machine-efficient. 


Do You Have to Know Java to Use NetRexx? 


To install NetRexx, the need for Java background is minimal. It’s quite simple to download and install 
Java on almost any machine, whether or not you know Java. The process is similar to that of any other 
download and install. The package contains complete instructions on how to install NetRexx in the Java 
environment for most major operating systems. 


NetRexx runs in the Java environment and NetRexx programs compile into Java byte code. It helps to 
know the role of components like the Java Runtime Environment, or JRE, and the Java Development 
Kit, or JDK. Java should be installed on the machine in order for NetRexx to compile and run. 


The big question is: are you familiar with the Java class libraries? These are the modules of reusable code 
that come with Java and provide its power. Java and NetRexx are both object-oriented programming 
languages. NetRexx can be used as a simple scripting language, but leveraging the true power of the 
product means becoming familiar with the reusable code supplied in the Java class libraries. NetRexx 
uses Java class libraries; it does not come with its own or supply alternatives. 


For example, if you want to create a NetRexx script with a graphical user interface, you would typically 


use the prebuilt components of the Java class library. NetRexx does not provide its own GUI; it allows 
you to leverage what Java already supplies. 
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Java classes you might use in NetRexx scripts include those for I/O, utilities, GUIs, images, TCP/IP 
connections, and wrappers. Java’s collection classes are especially useful. Similar in function and 
purpose to the collection classes of the object-oriented Rexx interpreters, these provide for lists, maps, 
iterators, sorting and searching algorithms, and the like. 


NetRexx is object-oriented. You need to know or learn object-oriented programming, just as you need to 
learn about the available class libraries. If you are comfortable with object-oriented programming (OOP) 
from Open Object Rexx or roo!, that’s great. Experience with any other object-oriented programming 
language also provides a good background. 


If you know classic Rexx, NetRexx is a good vehicle by which to learn about the Java environment and 
pick up object-oriented programming. For example, if you work on mainframes and your site adopts 
Java, NetRexx presents a nice vehicle by which you can easily segue into the new environment and OOP. 
NetRexx is an easier entry point into the Java environment than Java, due to its simpler syntax and like- 
ness to classic Rexx. 


While one typically thinks of NetRexx programming as object oriented, the latest versions do also offer 
scripting mode for procedural programming. 


Downloading and Installation 


To use NetRexx, you must first install Java on your computer. Java is free and downloadable from many 
sources on the internet. Perhaps the best spots are its official home at Oracle Corporation, at 
www.oracle.com, or the Java website at www. java.com. 


The latest versions of NetRexx come with the Eclipse Java compiler included. But you may find it 
preferable to download a full software development toolkit, like the Java Development Toolkit (or JDK), 
or its open source equivalent, the OpenJDK. We recommend installing the toolkit, if space permits. The 
install is simple, and you'll have all the components you might want. 


You can check to see if Java is already installed on your machine, and also verify its version, by this 
statement: 


java -version 
NetRexx requires an operating system that supports long filenames. 
After installing and verifying that you have a valid Java environment, download and install NetRexx. 
NetRexx is freely downloadable from the Rexx Language Association. Go to their website at 


www.RexxLA.com. Or go directly to the NetRexx website at www. NetRexx.org. 


The download includes a file containing the license terms you agree to by using NetRexx. It also 
contains a file named something like read.me. first that gives simple installation instructions. 


The download comes with all the key NetRexx manuals. Start with the NetRexx QuickStart Guide. This 


contains complete installation instructions, as well as a very simple introduction to the language. Also included 
for further information are the NetRexx Programming Guide and the NetRexx Language Reference. 
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In a nutshell, the steps for installing NetRexx are: 


Decompress the NetRexx download file into an appropriate directory 


2. Make the NetRexx translator visible to the Java Virtual Machine, or JVM, by adding 
the lib\NetRexxC. jar or lib\NetRexxF. jar file to the JVM's CLASSPATH 
environmental variable. Also add the ' .' directory (the current directory). 


3. Update the PATH variable to include the \NetRexx\bin directory. 
Test the install by running these commands exactly as given: 
java COM.ibm.netrexx.process.NetRexxC hello 


java hello 


The first command runs the NetRexx compiler, which translates the NetRexx test script named 
hello.nrx into a Java program hello. java. Then the Java compiler javac automatically compiles 
the Java program into the binary class file named hello.class. The second command runs the pro- 
gram in the hello.class file, which displays: hello world! 


Ways to Run NetRexx Programs 


Once the environment is completely set up, there are several ways you can translate and run NetRexx 
scripts. For example, you can perform the script-translation and execution operations as separate steps, 
or you can run translate, compile, and run a NetRexx script in a single command. To get an understand- 
ing of what the NetRexx translator does, let’s look at the multi-step approach first. From the operating 
system’s command line, perform these actions: 


1. Create a source file containing the NetRexx script (such as hello.nrx), and run the NetRexx 
translator against the NetRexx source script: 


NetRexxC hello 


or 


noe hello 


2. Execute the program: 


java hello 
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As an alternative approach, here is how to translate, compile, and run a NetRexx source script in a single 
command: 


uate acl lovely) 

Keep in mind that Java development is case-sensitive. So this statement: 
nrc -run HELLO 

is not the same as: 
nrc -run hello 


This might come as a surprise to developers used to the Windows operating system and classic Rexx. 
Neither of these environments recognizes case differences. 


Figure 30-1 pictorially summarizes the multi-step process of converting a NetRexx source script into a 
runable module. 


Developing and Running NetRexx Scripts 


Translate NetRexx source 
into a Java program 


Source script Java file Class file 
Eg: hello.nrx Eg: hello.java Eg: hello.class 


Compile Java into bytecode 


Run 


To translate, compile and run in one step enter: nrc -run hello 
Figure 30-1 


Features 


This section describes ways in which NetRexx differs from classic Rexx. This goal is to give you an idea 
of what NetRexx offers and how it extends classic Rexx into the world of JVM-based, object-oriented 
programming. 


Figure 30-2 summarizes what NetRexx adds beyond classic procedural Rexx and indicates some key 
differences between the two. 
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NetRexx Goes Beyond Classic Rexx... 


Classic Rexx 


Java environment integration 


Changed and 
Extended 
with... 


Object orientation 


New instructions 


Data typing ("types") 


Indexed strings 


Special names 


Special methods 


.and much more... 


Figure 30-2 


Let’s discuss how NetRexx differs from classic Rexx in detail. Remember that NetRexx is not a superset 
of classic Rexx, but rather an entirely different, “Rexx-like” language that goes beyond standard Rexx 
and expands it into the world of Java. 


First, NetRexx supports all object-oriented programming principles: 


Qs Inheritance 
QQ Abstraction 
Q Encapsulation 


Q = =Polymorphism 


Methods are named routines or groups of instructions. They are always grouped into classes. Classes can 
be grouped into class libraries called packages. The variable definitions within classes are called properties. 


The name and list of arguments for invoking each method is its signature. Overload operators by invok- 


ing the same method with different signatures. This ability to execute different code when referring to 
the same method name is also referred to as polymorphism. 
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NetRexx adds instructions for object-oriented programming. It also adds new instructions to provide 
“convenience features” beyond what's in classic Rexx. The new or enhanced instructions include: 


New or Enhanced Instruction Use 
class Defines a class 
do Enhanced with several new keywords: 


protect — gives the do loop exclusive access to an 
object 


catch and finally—Java-style exception handling 


import Simplifies references when using classes from other 
packages. 

loop The new instruction for looping. It includes catch 
and finally for Java-style exception handling. 

method Defines a method within a class. 

options New options are introduced, including one for faster 


binary arithmetic. 
package Defines the package to which class(es) belong. 


properties Defines the attributes of property variables, variables 
defined within classes. 


select Enhanced with several new keywords: 


protect — gives the construct exclusive access to an 
object 


catch and finally—Java-style exception handling 


trace Enhanced for OOP by the methods keyword. 


All NetRexx values have associated types. For example, NetRexx strings are of type Rexx, which defines 
string properties and the methods that apply to them. NetRexx provides built-in methods for Rexx 
strings, which largely correspond to the functions of classic Rexx. NetRexx implementations may 

also provide primitive types such as boolean, char, byte, short, int, long, float, and double, 

and dimensioned types, or arrays. NetRexx automates type conversions whenever necessary in order to 
simplify programming. 


In its addition of data typing, NetRexx departs from classic Rexx in order to be more Java-oriented. 
NetRexx is similar to Java in other ways, too. For example, array sizes must be declared in advance, 
and a new feature called the indexed string supports the associative array of classic Rexx. And NetRexx’s 
exception handling is modeled on the Java catch . . . finally construct. Let’s continue with the 
language description, and you'll discover other similarities between NetRexx and Java, as well. 
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Indexed strings are NetRexx strings by which subvalues are identified by an index string. This example 
shows how indexed strings work: 


pname = 'unknown' -- set a default value for the indexed string 
pname['Monica'] = 'Geller' 

shortn = 'Monica' 

say pname[shortn] -- displays: Geller 

say pname['Ross'] -- displays: unknown 


Multiple indexes create a hierarchy of strings. This can be used to create associative arrays or dictionary 
structures. Multiple indexes are referred to using comma notation: 


valu = 'null' -- initialize 

Valui[va";. vb") . “Hit -- set the value of a multiple indexed variable 
say valu['a', ‘'b'] -- displays: Hi 

valu_2 = valu['a'] -- set the value of another variable 


say valu_2['b'] -- displays: Hi 


Arrays are tables of fixed size that must be defined before use. Arrays may index elements of any type, 
and the elements are considered ordered. Arrays can be single or multidimensioned. Elements are refer- 
enced by a bracket notation similar to that of indexed strings. Here’s sample code that defines an array, 
then refers to elements within it: 


my_array = int[5,10] -- defines a 5 by 10 array of INT type objects 
my_array[2,3] = 15 -- sets the value in array position '2, 3! 
subb = my_array[2,3] -- sets variable SUBB to the value of array position '2, 3' 


NetRexx includes a number of special names and special methods for commonly used concepts. For exam- 
ple, the ask special name reads a line from the user and returns it to the script as a string of type Rexx. 
Here are the special names: 


Special Name Use 


ask Reads a line from the default input stream and returns it as a 
string of type Rexx (also called a NetRexx string) 


digits Returns the current setting of numeric digits asa NetRexx 
string 

form Returns the current setting of numeric formas a NetRexx 
string 

length Returns an array’s length (the number of elements) 

null Returns the null value (used in assignments and comparisons) 

source Returns a NetRexx string that identifies the source of the 


current class 


super Used to invoke a method or property overridden in the 
current class 
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Special Name Use 


this Returns a reference to the current object 


trace Returns the current setting as a NetRexx string 


version 


Returns the NetRexx language version as a NetRexx string 


The special methods are used to refer to particular objects: 


Special Method Use 
super Constructor of the superclass 
this Constructor of the current class 


NetRexx introduces back-to-back dashes for comments (--), and the continuation character for coding 
across lines is the single dash (-). By “dash” we mean the same character called a hyphen. 


Sample Programs 


Serious NetRexx scripting is beyond the scope of this book because it explores Java classes and methods 
more deeply than appropriate here. Nevertheless, here are a two very simple sample scripts. These will 
at least help you get started with NetRexx. The first example shows how to create a simple NetRexx 
application, while the second illustrates how to create a class with a few methods. 


The script we named Squared simply prompts the user to enter numbers, which the script squares and 
displays. Here is a sample interaction with the squared.nrx script: 


babcock@delll:~/Desktop/nrx/examples$ nrc -run squared 
NetRexx portable processor 4.06-GA build 152-20240304-0612 
Copyright (c) RexxLA, 2011,2024. All rights reserved. 
PUES Cejrwaeieinic (CG) We Comporccilom, 1995, 2008. 

Program squared.nrx 

Compilation of 'squared.nrx' successful 

Running squared... 

Please enter a number to square... 

2 

4 

Please enter a number to square... 

Bed) 

Bo29 

Please enter a number to square... 

exit 


The following command translates, compiles, and runs the squared.nrx script. 


nrc -run squared 
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The first line the script displays is its prompt: 
Please enter a number to square... 


The script continues prompting the user and displaying the squares of the numbers he or she enters 
until the user enters the keyword: 


exit 


Here is the code of the script: 


[RK RR RK KI A A AAR A AA A AAA AAA AA I He ke A / 


/* NetRexx - squared ee 
ie ey 
/* Squares any number the user enters if 


[8 RK KR KK KK I A AA AAA AAA AR AAA AAA He ke A / 


loop label square it forever 
Say PLSISS Sunes El iniulilgeie ie) Seeds. . 6" 
the number = ask 


select 
when the number.datatype('n') then say the number * the number 
when the number = 'EXIT!' then leave square it 
otherwise say 'Please enter a number!' 

end 


end square it 
The first line of the script illustrates the new NetRexx loop instruction: 

loop label square it forever 
loop is very similar to the do instruction in classic Rexx. It has many of the same keywords including 
while, until, for, to, by, and forever. It also has some new keywords, such as catch and finally, 


which implement Java-like error catching. 


loop refers toa label name, which matches the label on the matching end keyword. In this code, the 
label’s name is square_it: 


loop label square it forever 


end square it 


The prompt in this script employs the new ask special name. ask reads a line from the default input 
stream and returns it as a string of type Rexx (also called a NetRexx string): 


say 'Please enter a number to square...' 
the number = ask 
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As the number is an instance of the NetRexx string object, it has many methods that correspond to 
the string-related built-in functions of classic Rexx, such as the dataype function. This statement 
invokes the datatype method on the number to check if the_ number is numeric, and squares the 
value if so: 


when the number.datatype('n') then say the number * the number 


This statement compares the NetRexx string to a literal value and terminates the script when the user 
inputs the string exit: 


when the number = 'EXIT! then leave square_it 


This simple script shows that NetRexx includes new instructions that are incompatible with classic Rexx, 
yet are quite as simple to use. NetRexx retains the spirit of classic Rexx, but it is not upwardly 
compatible. To port classic Rexx scripts to NetRexx, use a utility like Rexx2Nrx, the free classic Rexx to 
NetRexx automated conversion tool. 


Creating a Class 


Here's a simple program called Oblong which is distributed with NetRexx as an example. The 
program displays the size of an oblong shape, then resizes it. Here's the driving NetRexx program, 
followed by its output: 


/* tryOblong.nrx -- try the Oblong class */ 
first=Oblong (5,3) -- make an oblong 

IE ILIESHE . OvealiMie -- show it 
first.relsize(1,1).print -- enlarge and print again 
second=Oblong (1,2) -- make another oblong 
second.print == gimel joienmic sie 


bobs@dell1:~/Desktop/nrx/examples/quicktour$ nre -run tryOblong 
NetRexx portable processor 4.06-GA build 152-20240304-0612 
Copyright (c) RexxLA, 2011,2024. All rights reserved. 
Parts Copyright (c) IBM Corporation, 1995,2008. 

Program tryOblong.nrx 

Compilation of 'tryOblong.nrx' successful 

Running tryOblong... 

Oblong 

Oblong 6 x 4 

©blong ix 2 

bobs@dell1l:~/Desktop/nrx/examples/quicktour$ 
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Here's the code of the Oblong class. You can see its constructor method named Oblong, which is used to 
create a new oblong shape to work with. Methods size and relsize manipulate the sizing of the oblong 
object. And the print method simply displays it to the user: 


/* Oblong.nrx -- simple oblong class */ 
class Oblong 


width -- size (X dimension) 
height -- size (Y dimension) 


/* Constructor method to make a new oblong */ 

method Oblong(new_width, new height) 
-- when we get here, a new (uninitialized) object has been 
-- created. Copy the parameters we have been given to the 
-- four properties of the object: 
width=new width; height=new height 


/* Change the size of a Oblong */ 

method size(new width, new height) returns Oblong 
width=new width; height=new height 
return this -- return the resized object 


/* Change the size of a Oblong, relatively */ 
method relsize(rel width, rel height) returns Oblong 
width=widthtrel width; height=height+rel height 

return this 


/* 'Print' what we know about the oblong */ 
method print () 
say ‘Oblong’ width 'x' height 


Summary 


This chapter describes the purpose and features of NetRexx, a free Rexx-like language for 
developing applications, Java Beans, and servlets that run in Java environments. Rely on 
NetRexx to any degree you like in intermixing its classes with those of Java. Invoke Java class 
libraries from NetRexx scripts, and write class libraries and Java Beans in NetRexx. NetRexx 
fully integrates into the Java environment and offers a fully compatible language alternative. 


We reviewed at a couple simple scripts that used NetRexx instructions like loop, 
class, and method, and the special name ask, as well as how to create a class you 
could use from either NetRexx or Java. 


The major benefit of NetRexx is that it makes available Rexx’s ease of use and high 

productivity in Java environments. Those who know Rexx can learn NetRexx quickly. 
NetRexx eases the transition into the Java universe and makes you more productive 

once you get there. 
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Test Your Understanding 


1. 


Why use NetRexx instead of Java? What are its advantages? Can you intermix NetRexx 
and Java classes within a single application? 


What are the NetRexx translator’s interpreter and compiler functions? Why is it useful to 
have both? Can you compile and run a NetRexx script in one command? Is it always 
necessary to have the Java Virtual Machine available to run NetRexx scripts? 


Are NetRexx scripts portable? What is required to run them on different machines? 


What are indexed strings and arrays? Describe how they differ. If you wanted to define the 
equivalent of an Open Object Rexx dictionary collection class in NetRexx, how could you do 
it? 


How does NetRexx capitalize on the Java class library? Where can you learn what classes 
and methods are available in that library? 


What are the roles of files with these extensions: * .nrx, *.java, *.class. 
What are special names and special methods? 


How do you migrate classic Rexx scripts to NetRexx? 
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Resources 


RexxInfo.org 


The website www.RexxInfo.org is your one-stop shop for all things Rexx. It is an open source 
website that offers all free resources including: 


Downloads of all Rexx interpreters 

Downloads of hundreds of free tools 

Sample code (including the scripts in this book) 

All Rexx manuals (including IBM manuals) 

Quick look-up for functions, instructions, classes, and methods 
How-to’s and articles 


Free downloads of many Rexx books 


OoOoododaoodo 


Links to all other sources for Rexx information 


Rexx Language Association 


The primary user group that addresses Rexx in all its forms is the Rexx Language Association. The 
“Rexx LA” is a nonprofit international organization with worldwide membership and is open to 
everyone. At the time of writing, membership is free. 


The Rexx LA home page is at www. rexxla.org. The website provides much information on the 
Rexx language, including standards, FAQs, interpreters, tools, and the annual Rexx symposium. 
The Rexx Language Association supports a forum at https: //groups.io/g/rexxla- 
members, which is a great place to ask questions and get answers from Rexx users worldwide. 


The IBM users group SHARE also covers Rexx scripting and related topics. Find it at www. share. 
org. Branches of SHARE/GUIDE in Europe also cover Rexx. 


Appendix A 


Web Forums 


Rexx supports several active forums and emailing lists. These allow you to post any questions you 
might have and also learn from the comments of others. 


Ll The Rexx Language Association’s forum is at https: //groups.io/g/rexxla- 
members 


CL] The IBM Mainframe’s Expert Forum section on Rexx is at 
https://ibmmainframes.com/forum-41.html 


CL] The ooRexx Developers Mail Archive is at 
https: //www.mail-archive.com/oorexx-devel@lists.sourceforge.net/ 


LI] Ask questions on ooRexx on SourceForge at its discussion group at 
https://sourceforge.net/p/oorexx/discussion/408478/ 


Ll The NetRexx Group forum is at https://groups.io/g/netrexx 


C1 Ask questions on Regina Rexx at SourceForge at 
https://sourceforge.net/p/regina-rexx/discussion/88574/ 


Cl Tek-Tips Rexx Forum is at www.tek-tips.com/threadminder.cfm?pid=277 or just 
access their home page at www. tek-tips.com and search on the keyword Rexx. 


(| The searchable Mail Archive is at https://www.mail-archive.com/ 


The Rexx Standards 


The Rexx Language, second edition, by Michael Cowlishaw (Prentice-Hall, 1990) is known as TRL-2, 
and it defines the TRL-2 standard. The first edition is known as TRL-1, and it defines the TRL-1 
standard. You can download TRL-2 for free at www. RexxInfo.org. 


The ANSI standard is entitled Programming Language Rexx Standard X3.274-1996, and is from the 
American National Standards Institute (X3J18 Technical Committee). It is available in draft form as a 


free download from www.RexxInfo.org. The final document is available for purchase from ANSI at 
their Web site www.ansi.org. 


Rexx Home Page at IBM 


The Rexx home page for IBM is at 
https://www.ibm.com/docs/en/zos/3.1.0?topic=programming-rexx-language. 
Or just search for “Rexx” at www. IBM. com. 


All IBM Rexx manuals can be downloaded either through IBM’s website, or from www. RexxInfo.org. 
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Free Rexx Books 


You can freely download any number of Rexx books from the www.RexxInfo.org website. Here is just a 
sampling of what’s available: 


1 The definitive book on Rexx by its inventor, Michael Cowlishaw, The Rexx Language (2™ 
Edition), aka TRL-2. 


The book you are reading, Rexx Programmer’s Reference, 2" Edition by Howard Fosdick 
Programming In Rexx by Charles Daney 

The Rexx Handbook by Gabriel Goldberg and Philip H. Smith 

Rexx Quick Reference Guide by Gabriel Gargiulo 

NetRexx 2 by its inventor, Michael Cowlishaw 

Learn Rexx in 56,479 Easy Steps by Jeff Glatt 


All manuals for all Rexx interpreters 


OoOoOodoo odo wu 


All IBM Rexx and Rexx-related manuals 


New Rexx Books 


The Rexx Language Association is publishing several new Rexx books including: 


| Introduction to Rexx and ooRexx, by Dr Rony G. Flatscher 


C1 Current Rexx LA President René Jansen is writing a new Rexx book yet to be titled 


533 


Instructions 


This appendix provides a reference to all Rexx instructions, as defined by the ANSI-1996 standard. 
It also points out the major differences in the instructions between the ANSI-1996 standard and the 
earlier standard defined by TRL-2. This appendix is intended as a quick reference guide for devel- 
opers, so please see the full ANSI-1996 and TRL-2 standards if more detailed information is 
required. Appendix A tells where to obtain the two standards. 


Each entry is in this appendix identified by the instruction name. Entries contain the template for 
the instruction, which shows its operands, if any. The template is followed by a description of the 
instruction and its use, as well as an explanation of the operands. Coding examples show how to 
code each instruction. 


In reading the instruction formats, operands that may optionally be encoded are surrounded by 
brackets ([ ]). The “or” bar (|) represents situations where you should encode either one set of 
operands or the other. Let’s look at the address instruction template as an example: 


ADDRESS | environment [ command ] | 
| [ VALUE ] expression | 


Brackets surround the command operand, so this means that its encoding on the instruction is 
optional. The same pertains to the VALUE keyword. Note that as a hardcoded keyword, VALUE 
appears in capital letters. The “or” bars vertically surround each of the two lines above, so you 
would code either one group of operands or the other. In this example, you would choose either 
one of these two basic formats in which to encode the address instruction: 


ADDRESS environment [ command ] 
ADDRESS VALUE expression 


ADDRESS 


ADDRESS | environment [ command ] | 
| [ VALUE ] expression | 


address directs commands to the proper external environments for execution. 


Appendix B 


An address instruction with both environment and command coded specifies to which external 
environment that command is sent. An address instruction with an environment but no command 
specifies the default external environment for subsequent commands. An address instruction with 
neither environment nor command coded toggles the target environment between the last two speci- 
fied or used. 


The value format defines the target environment by way of the resolved expression for subsequent 
commands. value and command cannot be coded in the same statement. The purpose of the value for- 
mat is to provide for programmability in determining the target environment for subsequent commands. 


The environments that may be specified for command execution are system-dependent. You may use the 
address () function to find out what the current environment is. 


Example 
say address () /* displays the current command environment ee 
address system dir /* send DIR command to the SYSTEM environment oe 
address command /* send all subsequent commands to the COMMAND 
environment ee 
Vehise" /* 'dir' is sent to the COMMAND environment yf 


The ANSI-1996 standard added a new format for the address instruction. Here is the template for this 
new format: 


ADDRESS | [ environment ] [ command ] [ redirection ] ] | 
| [ [ VALUE ] expression redirection ] ] | 

redirection is: WITH INPUT input_redirection 

and/or: WITH OUTPUT output_redirection 

and/or: WITH ERROR output_rediection 
input_redirection is: [ NORMAL | STREAM | STEM ]_ symbol 
output_redirection is: [ APPEND | REPLACE ] 

plus a destination: [ NORMAL | STREAM | STEM ]_ symbol 


Optional extensions for the ANSI standard are fifo and 1ifo for the with input, with output and 
with error options. 


Any, all or none of the three clauses with input,with output,and with error may be specified. 
They may be specified in any order. append or replace specify whether an output or error file will 
be appended to or over-written. replace is the default. 


stream or stem specify whether an I/O stream or compound variable stem (an array) will provide the 
input or be written to as output or error. When using an array, element 0 should state the number of 
elements for input. Element 0 tells how many lines of output there are for output or error. 


Example 


/* First, send an operating system SORT command to the SYSTEM environment. 
Use file sortin.txt for input with output going to file sortout.txt. */ 
address SYSTEM sort WITH INPUT STREAM 'sortin.txt' , 
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OUTPUT 


/* Now send the SORT command to the 
but use arrays for input and ou 
variable stems (include the per 


Instructions 


STREAM 'sortout.txt' 


SYSTEM environment, 
tput. Specify both arrays as compound 
iod after the array name). Before issuing 


the command, you must set Element 0 in the input array to the number 


of items in the input array. Af 
in the output array will be in 

27, 
in_array.0 = 10 /* 10 items 
/* They are 


ter the command, the number of elements 


Element 0 of that array. 


are in the input array called in_array. */ 
ilial GucieEhY? JNOSsNEMeraS! alia Sueicehy tl “ielehei, IO, *=/ 


address SYSTEM sort WITH INPUT STEM sigh GWEN Op 
OUTPUT STEM Bortout.. 
say 'Number of output elements:' sortout.0 


ARG 


ARG [ template ] 


This instruction parses arguments in the template in the same manner as: parse upper arg 


[ template ]. 


arg automatically translates all input arguments to uppercase. 


Example 


/* function invoked by: testsub('a' 


arg string_1, number_1, string_2 


fe seremne i Comcasias MA",  saybiilersse il 


CALL 


| name [ expression ] le 


p25 "CO" )) a 


Cormeen) "2, Sievesligve; % Ciofalleulieis) WC) / 


[ expression ] ] ... | 


CALL | ON condition [ NAME trapname |] | 


| OFF condition 


call either invokes a routine or enables an error condition. If on is specified, cal1 enables the error 
condition and optionally specifies the name of the exception routine that will be invoked when it is 
raised. The condition must be one of error, failure, halt, and notready. Specifying of £ disables 


an error condition. 


If neither on nor of £ is specified, cal1 invokes an internal, built-in or external routine. Coding the routine 
name in quotes prevents searching for an internal routine. Zero, one, or more expression arguments may 


be passed to the routine. 


If the routine returns a result, the special variable result is set to that value. Otherwise result is set to 


uninitialized. 
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Example 


call on error /* enables ERROR trap with routine of ERROR: ar 

call on error name error_handler /* enables ERROR to ERROR_HANDLER: wf 

call off error /* dis-ables ERROR trap ug 

call my_routine parm_1l , parm_2 /* call routine my_routine with 2 parameters*/ 
/* if a result was returned, display it... */ 

if result <> 'RESULT' then say 'The returned result was:' result 

DO [ repetitor ] [ conditional ] 


i the tructionll ise «| 


END [ symbol ] 


repetitor is: symbol = expression_i [ TO expression_t ] 
[ BY expression_b ] [ FOR expression_f ] 
expression_r 
FOREVER 


condition is: WHILE expression_w 
UNTIL expression_u 


The do-end instruction groups multiple instructions together and executes them 0, 1, or more times. to, 
by, and for are optional and can be coded in any order. by expression_b is an increment that defaults 
to 1. for expression_f sets a limit for loop iterations if not terminated by some other constraint. 
forever defines an endless loop that must be terminated or exited by some internal instruction. while 
is a top-driven structured loop, while until defines a bottom-driven unstructured loop. Loop control 
variables can be altered from within the loop and the leave, iterate, signal, return, and exit 
instructions may also modify loop behavior. 


Example 


aig el = 2 ielneial Clo /* a simple do-end pair to group multiple ey 
Sei Vel suey 2" /* instructions into one for the IF instruction neh 
say 'Why?' 

end 


/* we assume all DOs below have a body and END. We just show the DO here. */ 


do 40 /* executes a loop 40 times Afi 
Glo 3) = iL co 40) /* executes a loop 40 times (BY 1 is implied) ay 
do while counter < 30 /* do-while with a condition specified wf, 
do while (counter < 30 & flag = 'NO') /* multiple conditions specified */ 
do forever /* codes an endless loop... better have an 
unstructured exit inside the loop ! bl 
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DROP 


DROP symbol) | symbol 3] 


drop “unassigns” one or more variables or stems by setting them to uninitialized. 


Example 


a= 55 
drop a 
saya /* writes 'A' because this symbol is uninitialized */ 


EXIT 


EXIT [ expression ] 


exit unconditionally terminates a program and optionally returns the single value defined by expression 
to the caller. 


Example 
exit 1 /* unconditional termination, sends '1' to environment */ 
exit /* unconditional termination with no return code ff 


IF 


ie Saosssad@ia [pi] Wala [fel] aosiewietesei || iaSia [pl] alasiteiewyeiesein | 


if conditionally executes a “branch” of instruction(s). The expression must evaluate to either 0 or 1. 
The else always matches to the nearest unmatched i£. To execute more than one instruction after the 
then or else, use a do-end pair: then do . . . endorelse do . . . end. Tocodea branch with 
no instructions, use the nop instruction. 


Example 
HE ley SL ielavein Steyr NE, as) LY /* a simple IF instruction er / 
else say 'B is not 1' 

if b = 1 then do /* THEN DO and ELSE DO are required </, 
Gey 13) as) ALY /* to execute more than 1 instruction */ 
say 'TRUE branch taken' fe alin. ek dopetetavelay,, Poe 
end /* END terminates a logical branch. yf 

else do 


yey TIE} sks) aayoje iL? 
say 'FALSE branch taken' 
end 
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INTERPRET 


INTERPRET expression 


interpret executes instructions that may be built dynamically within the expression. The expres- 
sion is evaluated, then executed. The expression must be syntactically complete; for example, a do must 
include a matched end. interpret is useful for creating self-modifying scripts. Set trace rortrace iif 
experiencing problems with interpret. 


Example 


interpret say 'Hi there' /* interprets (executes) the SAY instruction */ 


ITERATE 


ITERATE { symbol ] 


iterate alters the flow of control within a do loop by passing control directly back to the do instruction 


of that loop. This skips any subsequent instructions encoded south of the iterate instruction within 
that execution of the do loop. 


Example 
cle: 3) = I ly 1 ico 8 fo Wass cligiileyye} ik eheysl 3}, lowbie, invore 2 a, 
ie 3] = A ielaveyal Sheree ies /* The ITERATE instruction skips displaying 2. */ 
say j 
end 


LEAVE 


LEAVE [ symbol ] 


leave alters the flow of control within a do loop by immediately passing control directly to the instruc- 
tion following the end clause. This causes an unstructured exit from the do loop. Whereas iterate sets 
the loop to start on a new iteration, leave exits the loop. 


Example 
Glo) 37 = il ley Lh ce 3 /* This displays 1, then 'Hello.' The LEAVE yf 
if j =2 then leave /* instruction exits the loop when j = 2. ey 
say j 
end 
say 'Hello' 
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NOP 


NOP 


nop means no operation. It can be used within an if statement to code a branch with no action taken. 


Example 


aE sellevej Se AS" 
then nop /* no action taken when FLAG = 'YES' iff 
else say 'flag is NO' 


NUMERIC 


NUMERIC DIGITS [ expression ] 
FORM [ SCIENTIFIC | ENGINEERING | [ VALUE ] expression ] 
FUZZ [ expression ] 


The numeric instruction controls various aspects of numeric calculation. digits set the number of sig- 
nificant digits; it defaults to 9. form sets the form in which exponential numbers are written; it defaults 
to scientific. fuzz controls how many digits will be ignored during comparisons; it defaults to 0. 


Use the digits (),form() and fuzz () functions to find out the current values for these numeric settings. 


Example 
numeric digits 12 /* Set precision to 12 significant digits. ey 
say digits() /* This will now display: 12. =f 
numeric form engineering /* Display exponential numbers in engineering format. */ 
say form() /* This will now display: ENGINEERING. ey 
numeric fuzz 1 /* 1 digit will be ignored during comparisons. yf 
say fuzz() f= Syalllll saver Chigjoilleyye iL ce 


Note that the example code is run in sequence. 


OPTIONS 


OPTIONS expression 


options passes commands to the interpreter. It can be used to alter the behavior of the Rexx interpreter 
or its defaults. The options allowable are strictly implementation-dependent. Interpreters ignore any options 
they do not recognize. This is good because it means implementation-dependent coding on this state- 
ment runs under other interpreters. But it also means that you must check to see whether the options 
you coded were implemented or ignored. 
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Example 
options 4.00 vm_compatible /* The two options '4.00' and 'vm_compatible' */ 
/* may each be set, or ignored, depending aif 
/* on whether the Rexx interpreter we are /: 
/* using recognizes them. Bie 
PARSE [ UPPER ] type [ template ] 
type is: [ ARG | LINEIN | PULL | SOURCE | VERSION ] 
VALUE [ expression ] WITH 


VAR symbol 


parse assigns values to one or more variables from various data sources according to parsing rules and 
its template. If upper is specified, all input values are translated to uppercase. 


OQ) ARG—Parses input values to this routine 


(1 LINEIN— Reads a line from the default input stream and parses it into ariable(s) 


Q) PpuLL— Reads a line from the stack, or it is empty, from the default input stream and parses this 
string into variable(s) 


Q SOURCE — Reads three words of system-dependent information: 
system how_the_script_was_invoked filename_of_the_script 


C1 VERSION—Reads five words of system-dependent information: 
language level date month year 


G 


C1 VALUE expression WITH — Evaluates the expression and then parses it 


OQ) VAR symbol —Parses the string in symbol 


Example 
parse arg a, b /* internal routine reads its parameters “ah 
parse linein /* reads a line from default input stream i) 
parse pull a /* reads A from the stack or input stream ‘ay 


/* parse the return from the DATE function */ 
parse value date() with dd mmm yyyy 


say dd mmm yyyy /* displays something like: 15 Jun 2005 ey 
Sisk eae On /* parses STRING, displays: a b H/ 
parse var string c d 

say co xd 


/* retrieve and display system information */ 
parse source system how_called filename 
say system how_called filename 
parse version language level date month year 
say language level date month year 
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PROCEDURE 


PROCEDURE [ EXPOSE variable_list ] 


The procedure instruction makes all variables of the caller unavailable to this one. If it is not coded, all 
the caller’s variables are available to this routine (they are global). If procedure is coded with the 
expose keyword, only the variables listed after the expose keyword are available to this routine. 
Exposed variables are accessible for both reading and updating by the routine. 


Example 
my_sub: procedure /* No caller variables are available to my_sub. */ 
my_sub: /* ALL caller variables are available to my_sub. */ 
my_sub: procedure expose a b /* a and b only are available to my_sub. yf 


PULL 


PULL [ template ] 


pull reads a line from the stack, or if none is available, reads a line from the default input stream. pull 
parses the input according to the template and always translates all arguments to uppercase. pul1 is 


equivalent to: parse upper pull [ template ]. 
Example 
pull input /* reads one line from the stack, or reads wy 
/* input from the user if the stack is empty. yf 
/* waits for input to read if necessary. Se 
/* always translates to all uppercase letters iL 


PUSH 


PUSH [ expression ] 


Adds a line to the external data queue or stack, in the order last-in, first-out (LIFO). Use the queued () 
function to determine how many elements are on the stack at any time. 


Example 


push line /* pushes LINE onto the stack LIFO */ 


QUEUE 


QUEUE [ expression ] 
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Adds a line to the external data queue or stack, in the order first-in, first-out (FIFO). Use the queued () 
function to determine how many elements are on the stack at any time. 


Example 


queue line /* places LINE onto the stack FIFO */ 


RETURN 


RETURN [ expression ] 


Returns control from a program or internal routine to its caller, optionally passing the single result of 


expression. 
Example 
return /* return with no result ei 
return 4 ro seSrevian ywalicia Tassie, ©1s AL y/ 


SAY 


SAY [ expression ] 


Writes a line to the default output stream, after evaluating expression. Using say is the same as cod- 


ing:call lineout , [expression]. 
Example 
Saby all! /* displays: Hi ey 
say 'Hi' ‘'there' /* displays: Hi there */ 


SELECT 


SELECT ; when_part [ when_part ] [ OTHERWISE [;] 


[ statement 


when_part is: WHEN expression Le] THEN [;] statement 


select implements the Case construct for determining the flow of control. Only the first when condi- 
tion that evaluates to true (1) executes. otherwise executes if none of the when conditions are true. If 
no otherwise is provided and none of the when conditions is true, a syntax error results. We recom- 


mend always coding an otherwise clause. 
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Example 
select 
when input = 'yes' then do 
Seay Taoist! 
say ‘branch 1' 
end 
when input = 'no' then do 
say 'NO!' 
say “branch 2° 
end 
otherwise 
say 'user is crazy' 
exit 99 


end /* select */ 


SIGNAL 


SIGNAL 


label_name 
[ VALUE ] 


| 
| 
| ON condition 
| 


OFF conditi 


expression 
[ NAME trapname ]J 


on 


Instructions 


signal either causes an immediate unstructured transfer of control to the label at labe1l_name, or enables 
or disables an error condition. If on is specified, signal enables the error condition and optionally specifies 
the name of the routine invoked when it is raised. The condition must be one of error, failure, halt, 
novalue, notready, or syntax. The ANSI-1996 standard adds the new condition lostdigits. Specifying 
off disables an error condition. 


If neither on nor of £ is specified, signal directly transfers control to the label of labe1_name, rather 
like the goto of other computer languages. Any active do, if, select, and interpret instructions are 
terminated. The value keyword allows transfer of control to a label whose name is determined at execu- 


tion time. 


Example 


signal 
signal 
signal 


signal 


TRACE 


TRACE 


on error 
on error 
off error 


name 


goto_place 


trace_setting 


/* enables ERROR trap with routine 


error_handler 


/* enables ERROR to 


/* disables ERROR trap 


/* immediately goes to the label go 


| [ VALUE ] 


expression 


of ERROR: ei 
ERROR_HANDLER: */ 

| 
to_place: oe 
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trace_setting is any of these flags: 


2? — Toggles interactive tracing on or off; can be followed by any letter in this list only. 


A positive whole number — If in interactive trace, skips the number of pauses specified 


Q a—All 

Q = c—Commands 
Q) &—Errors 

Q) #F—Failure 

OQ) 1—lIntermediates 
QO) u—Labels 

Q wn—Normal 

Q o—Off 

Q R—Results 

Q 

Q 

Q 


A negative whole number — Inhibits tracing for the number of clauses specified 
Sets the trace level for debugging. Multiple trace instructions may be placed within a script, altering the 
trace level at will. Setting it to a positive or negative whole number during interactive tracing skips or 


inhibits tracing for that number of pauses or clauses. 


Use the trace () function to retrieve the current setting for the trace level. 


Example 
say trace() /* displays the current trace setting | 
trace a /* turn on TRACE ALL rd 
trace ?1 /* turn on interactive trace with setting of I */ 
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Functions 


This appendix provides a reference to all Rexx functions, as defined by the ANSI-1996 standard. It 
also points out the important differences between the ANSI-1996 standard and the earlier standard 
defined by TRL-2. As this appendix is intended as a quick reference guide for developers, please 
see the full ANSI-1996 and TRL-2 standards if more detailed information is required. Appendix A 
tells where to obtain the two standards. 


Each entry is identified by the name of the function. Entries contain a template of the function, 
showing its arguments, if any. Optional arguments are enclosed in brackets ([ ]). The template is 
followed by a description of the function and its use, the function’s arguments, and possible return 
codes. Coding examples show how to code each function. 


ABBREV 


ABBREV(information, info [,length] ) 


Returns 1 if info is equal to the leading characters of information and info is not less than the 
minimum length. Otherwise returns 0. If not specified, length defaults to the length of info. 


Example 


abbrev('Hello', 'He') =- le 
abbrev('Hello','Hi') 


abbrev('Hello','Hi',3) 0 /* INFO does not meet minimum LENGTH. */ 


ABS 


ABS (number) 


Returns the absolute value of number, formatted according to the current setting of numeric 
digits and without a leading sign. 


Appendix C 


Example 
absi(=0,47) == re ee 
abs (0) =e 0 


ADDRESS 


ADDRESS () 
Returns the name of the environment to which commands are currently directed. 
The ANSI-1996 standard allows a new format for this function that specifies an option. The option 
returns information on the targets of command output and the sources of command input. Here is the 
coding template with the option specified: 


ADDRESS ( [option] ) 


option may be any one of the following: 


Q) wN(Normal)— Returns the current default environment 
Q) I (Input) — Returns the target details for input as three words: position type resource 
Qo (Output) — Returns the target details for output as three words: position type resource 
OQ) (Error) — Returns the target details for errors as three words: position type resource 
Example 

address () oe SYSTEM 7* tor exanple *7 

address () oe UNIX /* for example */ 

address('I') == INPUT NORMAL /* for example */ 

address ('E') a= REPLACE NORMAL /* for example */ 


ARG 


ARG([argnum [,option]]) 


If argnum and option are not specified, returns the number of arguments passed to the program or 
internal routine. If only argnum is specified, returns the nth argument string, or the null string if the 
argument does not exist. The option may be either: 


QE or e (Exists) — Returns 1 if the nth argument exists. 


QQ = oor o (Omitted) — Returns 1 if the nth argument was omitted. 
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Example 


/* If issued from a routine invoked by: call routine 1, 2 any 
arg == 2 

arg(1) == 
Bro te) S23 
Sarado) = 
arg(1,'e' 
arg(1,'E 
ange (iL, "© 
aro (37 "o 


Il 
i 
POPP -NPB 


f° tele iayllil ssyeseuliayey > // 


BITAND 


BITAND(stringl [,[string2] [,pad]]) 
Returns a string derived from logically ANDing two input strings, bit by bit. 
If pad is omitted, ANDing terminates when the shorter string ends, and the remaining portion of the 


longer string is appended to the result. If pad is specified, the shorter string is padded on the right prior 
to the ANDing. 


Example 


bitand('00110011','00001111') == 00000011 


BITOR 


BITOR(stringl [,[string2] [,pad]]) 
Returns a string derived from logically ORing two strings, bit by bit. 
If pad is omitted, ORing terminates when the shorter string ends, and the remaining portion of the 
longer string is appended to the result. If pad is specified, the shorter string is padded on the right prior 
to the ORing. 


Examples: -- losbie@ne (( POO LILOGLAL OXON )) = S(O) aL aL aL Lal 


BITXOR 


BITXOR(stringl [,[string2] [,pad]]) 


Returns a string derived from logically EXCLUSIVE ORing two strings, bit by bit. 
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If pad is omitted, EXCLUSIVE ORing terminates when the shorter string ends, and the remaining por- 
tion of the longer string is appended to the result. If pad is specified, the shorter string is padded on the 
right prior to the EXCLUSIVE ORing. 


Example 


Sito GAG ie ASG Sas 2 G6e aba 
See this result on the display screen by entering: 


SEWY CPr<(lonliendone( MIDS Ye, S\AlISY6) 5:2) )) 


B2X 


B2X (binary_string) 


Converts a binary string to its hexadecimal (base 16) equivalent. The hex string will consist of digits 0 to 
9 and uppercase letters A through F. 


Example 
b2se(* LTOQ001 9." } Sa en 
loys (ALLA )) == 7 


CENTER or CENTRE 


CENTER(string, length [,pad]) 
a ehee 
CENTRE(string, length [,pad]) 


Returns a string of the length specified by length with the string centered within it. Characters of type 
pad are added to achieve the required length. pad defaults to blanks. 


Example 
center ('HELP!',9) S542 CHEE? /* 2 spaces are on each side of HELP! */ 
center('HELP!',9,'x') == 'xxHELP!xx' /* 2 x's are added on each side. mh 


CHANGESTR 


CHANGESTR (needle, haystack, newneedle) 


This function was added by the ANSI-1996 standard. It replaces all occurrences of string needle in 
string haystack with string newneed1e. Returns the haystack if needle is not found. 
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Example 
Changes nt sco abc ay em ae 
enangestrisch,. “aboe, "G")}) “== vahce /* needle was not found in haystack ae 


CHARIN 


CHARIN([name] [, [start] [,length]]) 


Returns up to length characters from the character input stream name. The default length is 1, and the 
default character stream is the default input stream. 


start may be coded to move the read pointer of a persistent stream and explicitly specify where to start 
the read. A start position of 1 is the first character in the persistent stream. To move the read pointer for a 
persistent stream without reading any input, specify a read length of 0. 


If length number of characters cannot be returned, the program waits until they become available, or 
else the NOTREADY condition is raised and charin returns with fewer characters than requested. 


Example 
Clovelaastin (( “erepicie_iesk ile)” ;, 5))) /* reads the next five characters from file text_file */ 
charin('text_file',1,5) /* reads first five characters from file text_file a 
charin('text_file',1,0) /* positions the read pointer to the start of text_file 
and does not read in any characters e/: 
CHAROUT([name] [,[string] [,start]]) 


Writes the characters of string to the output stream specified by name, starting at position start. Returns 
the number of characters remaining after the output attempt; a return of 0 means a successful write. 


If start is omitted, characters are written at the current write pointer position (for example, appended 
to the end of the persistent stream or output file). If name is omitted, characters are written to the 
default output stream (normally the display screen). 


To position the write pointer, specify start and omit string. A start value of 1 is the beginning of an 
output file. 


The NOTREADY condition is raised if all characters cannot be written. 


Example 
charout ('text_file','Hello') /* writes 'Hello' to text_file and returns 0 Ea 
charout(,'Hello') /* writes 'Hello' to default output, the display */ 
charout ('text_file',,1) /* positions the write file pointer to start of 


the text_file (and does not write anything) ey 
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CHARS 


CHARS ( [name] ) 


Returns the number of characters remaining to be read in stream name. In the ANSI-1996 standard, 
chars may alternatively return 1 when any number of characters remain to be read. Always returns 0 if 
there are no characters left to read. If name is omitted, the function applies to the default input stream. 


Example 
chars('text_file') == 90 /* 90 characters left to read from text_file. */ 
chars('text_file') == (0 /* end of file on text_file ei 
chars ('text_file') wil /* Either there is exactly 1 character left to */ 
/* read from text_file, or this is ANSI-1996, */ 
/* and there may be 1 or more left to read. af, 


COMPARE 


COMPARE(stringl, string2 [,pad]) 


Returns 0 if the strings are the same. Otherwise, it returns the position of the first character that is not the 
same in both strings. If one string is shorter, pad is used to pad it for comparison. pad defaults to blanks. 


Example 
(Clouinoyeluc'ss(( ‘Msked ey! , Visieililey” )) == 0 
compare ('Hello','He') == 3 
compare('Hello','He','x') == 3 


CONDITION 


CONDITION ( [option] ) 


Returns condition information concerning the current trapped condition, or the null string if no condi- 
tion has been trapped. The option may be coded as follows: 


Qc (Condition name) — Name of the currently trapped condition 
Q =p (Description) — Descriptive string for the condition 


QI (Instruction) — Returns the invoking instruction, either call or signal. This is the default if 
no option is specified. 


Qs (State) — Returns state of the trapped condition, either ON, OFF, or DELAY. 
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Example 
condition () == CALL /* if the trap was enabled by CALL oy 
condition('C') == FAILURE /* if the condition trapped was FAILURE */ 
GCiopayelieaieya(( Ic" )) Se (CPA: /* if the trap was enabled by CALL coy} 
Conca On (Gl Sus) a —— sm ObE /* if the state is now OFF 7, 


COPIES 


COPIES (string, times) 


Returns a string copied the number of times specified by times. 


Example 


copies ('Hello',3) == HelloHelloHello 


COUNTSTR 


COUNTSTR (needle, haystack) 


This function was added by the ANSI-1996 standard. It returns the count of the number of times needle 
occurs within haystack. Returns 0 if the needle is not found. 


Example 


countstr('a', 'abracadabra' ) 


I 
Ul 
ol 


C2D 


C2D(string [, length] ) 


Character to decimal conversion. Returns the decimal representation of a character string. Optional 
length specifies the number of characters of string to be converted. length defaults to the full string 
length, and string is considered an unsigned number. 


Example 
EAel( VIA Ss) S= Bid) /* hexadecimal 14 converted to decimal is 20 */ 
ACI Mai" )) Se oy Ad /* on ASCII machines only */ 
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C2X 


C2X (string) 


Character to hexadecimal conversion. Returns the string of hex digits that represent string. 


Example 
Cx("123 se) == W123 
o2sc abo’) Se SO h6264 /* on ASCII machines only */ 


DATATYPE 


DATATYPE (string [,type] ) 
If type is omitted, returns NUM if string is a valid Rexx number; returns CHAR otherwise. 


If type is specified, returns 1 if the string matches the type; returns 0 otherwise. Allowable type 
specifications are: 


OQ a(Alphanumeric) —Returns 1 if string consists solely of alphanumeric characters 0-9, a-z, 
and A-Z 


B (Binary) — Returns 1 if string contains only 0’s and 1’s 

L (Lowercase) — Returns 1 if string consists solely of characters a—z 

M (Mixed case) — Returns 1 if string consists of characters a—z and A-Z 
N (Number) — Returns 1 if string is a valid Rexx number 


s (Symbol) — Returns 1 if string consists of characters valid in Rexx symbols 


u (Uppercase) — Returns 1 if string consists of characters A-Z 


w (Whole number) — Returns 1 if string is a Rexx whole number 


COCovoovceovodeo d 


X (HeXadecimal) — Returns 1 if string is a hex number, containing only characters a-f, A-F, 
and digits 0-9 


Example 


datatype 
datatype 
datatype 
datatype 


aS) 
2 au Niet) 
HOKOEAL Vis") 
'2f4a','x') 


= 


/* blanks are allowed within Rexx numbers */ 
/* same test as omitting the 'N' nip 
/* yes, the string is binary dy 
/* yes, the string is hex Lay 


( 
( 
( 
( 


Pin ee 
Ss 


554 


Functions 


DATE 


DATE( [option_out [,date [,option_in]]] ) 


If all options are omitted, returns the date in the format dd Mmm yyyy,forexample: 14 Jun 2005. 


If the first argument is supplied, it defines the format of the return string. The list below shows possible 
encodings for the option_out parameter: 

QB (Base) — Returns the number of complete days since the base date of January 1, 0001. 

Q = vD(Days)— Returns the number of days so far in the year (includes the current day) 
E (European) — Returns the date in EU format, dd/mm/yy 


mM (Month) — Returns the full English name of the current month, for example: June 


N (Normal) — Returns the date in the default format (see above) 
o (Ordered) — Returns the date in a sort-friendly format yy/mm/dd 


s (Standard) — Returns the date in the sort-friendly format yyyymmdd 


Oocovcevoo Oo 


u (USA) — Returns the date in American format, mm/dd/yy 
OQ) w(Weekday) — Returns the English name for the day of the week, for example: Monday 


If the date option is encoded, the function converts that date. The parameter opt ion_in specifies the 
format in which the date is supplied and option_out is the target format to which the date is converted. 


The TRL-2 form of this function only allows for coding the first argument. ANSI-1996 adds the other two 
arguments. 


Example 
date('d') == 166 /* This is the 166th day of the year, including today. */ 
date('u') == 06/14/05 /* today's date in USA format ae 
date('s') == 20050614 /* today's date in standard format */ 


DELSTR 


DELSTR(string, start [,length] ) 


Deletes the substring of string that starts at position start for the specified length. If length is 
omitted, the rest of the string is deleted from position start to the end. 


Example 
delstr('abcd',2) == a 
delstr('abcd',2,1) == acd 
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DELWORD 


DELWORD (string, start [,length] ) 


Deletes the substring of string that starts at position start and is of length length blank-delimited 
words. If length is omitted, it defaults to removing the rest of the words in string. 


Example 
delword('Roses are Red',2) == Roses /* deletes from word 2 to end Pay: 
delword('Roses are Red',2,1) == Roses Red /* deletes 1 word at position 2 */ 


DIGITS 


DIGITS () 


Returns the current setting of numeric digits (which dictates the precision of calculations). 


Gigalies(}) == 8) /* the default if NUMERIC DIGITS has not been altered */ 


D2C 


D2C(integer [,length] ) 


Decimal-to-character conversion. Returns the character string representation of integer. If length is 
specified, the returned string will be length bytes long with sign extension. 


Example 
CMC(IA) == VSAM Se jf sey clicjolleny gi itecinilic Cisiceree Sten b<((CMe (1127) )) oy 
d2c(0) == /* returns the null string */ 


D2X 


D2X(integer [, length] ) 


Decimal-to-hexadecimal conversion. Returns the hex representation of integer. length specifies the 
length of the resulting string. 


Example 
6as<(I27)) SS 7F 
d2x (0) == 0 
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ERRORTEXT 


ERRORTEXT (error_no) 


Returns the textual error message associated with the given error number, error_no. The ANSI-1996 
standard adds the ability to retrieve the text from error submessages. For example, you could retrieve 
the textual equivalent of error submessage 14.1. 


Example 


say errortext (14) = Incomplete DO/SELECT/IF 


FORM 


FORM () 


Returns the current form in which numbers are exponentially represented, either scientific or 
engineering. 


Example 


say form() == SCIENTIFIC /* this is the default if not altered by NUMERIC FORM */ 


FORMAT 


FORMAT (number [, [before] [, [after]]]) 


Rounds and formats a number. before and after control the number of characters used for the integer 
and decimal parts, respectively. 


Example 
format ('1',4) == 7 A /* 3 blanks precede the 1. */ 
format( 1 ea Oy == S ee /* 3 blanks precede the 1. */ 
wonansie (TL, 2) A) es 4 1.22' /* 3 blanks precede the 1. */ 
format ('00.00') == '0' 
FORMAT (number [, [before] [,[after] [,[expp] [,expt]]]]) 


In this version of the format function, expp and expt control the formatting of the exponential part of 
the result. expp is the number of digits used for the exponential part, while expt sets the trigger for the 
use of exponential notation. 
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Example 
orginatie (VASA. GW opp Be SD) == 1 23456 7aoa 
format(’123945.67", 44,4) S> 72 2s456 7b 0004" 
imonamisye (TAZA O71) 2 Ay 7 0) ee, “IZ oheae 
1e@paintenc (ALAS) (79, yy, yO) SS 2 23S ne 


FUZZ 


FUZZ () 


Returns the current setting of numeric fuzz. 


Example 


Lue e te a /* if the default of NUMERIC FUZZ was not altered */ 


INSERT 


INSERT(string, target [,[position] [,length] [,pad]]) 


Returns the result of inserting string into the target string. position specifies where the insertion 
occurs, with a default of 0 (prior to any characters of the target string). length pads with the pad 
character or truncates string before it is inserted into the target string, as necessary. 


Example 
inseicie (oy, " 4 Silaixe Wialeeie! 6, 3)) = Vinellaixe oF, Wiaoyeue" 
insert ('Happy!','I am',5) == 'I am Happy!' 


LASTPOS 


LASTPOS (needle, haystack [,start]) 


Returns the last occurrence of one string, the needle, within another, the haystack. The search starts at 
the last position within the haystack, or may be set by start. Returns 0 if the need1e string is not 
found in the haystack. 


Example 


lastpos('abc', 'abcdef') 
lastpos('abc', 'abcabcabc' ) 
lastpos('abcd',abcabcabc') == 


iL 
HT 
0 /* The needle was not found in the haystack. */ 
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LEFT 
LEFT (string, length [,pad]) 


Returns the length leftmost characters in string. Pads with the pad character if length is greater than 
the length of string. 


Example 
left ('Hi there',2) aay 
left ('Hi there',10) == ‘isl jelaeices © fe B Joilewalles: (eseelsitl 59// 
eth ends trends his sc), == ‘Hi théerexx 


LENGTH 


LENGTH (string) 


Returns the length of string. 


Example 
length('Me first!') == @ 
ilesayejiclai((" ")) == 0 /* length of the null string is 0 */ 


LINEIN 


LINEIN([name] [, [line] [,count]]) 


Returns lines from the input stream name. count may be 0 or 1, and it defaults to 1. name defaults to the 
default input stream. line positions to the given line number prior to the read. count may be specified 
as 0 with a 1ine number to position the read pointer to a particular line in a persistent input file without 
reading data. 


Example 
linein('text_file') /* reads the next line from the input file TEXT_FILE */ 
linein() /* reads the next line from the default input stream */ 
linein('text_file',5,0) /* positions read pointer to the 5th line in the file */ 
/* and reads no data due to the count of 0 aif 
LINEOUT([name] [, [string] [,line]]) 


Writes string to output stream name and returns either 0 on a successful write or 1 on failure. 


559 


Appendix C 


May be used to position the write pointer before a specified 1ine number on persistent streams or files. 
If string and line are omitted, the write position is set to the end of stream. In most Rexxes, this closes 
the file specified by name. 


Example 
lineout (,'Hi!') /* writes Hi! to default output stream, normally returns 0 */ 
lineout ('text_file','Hi!') /* writes Hi! to text_file, normally returns 0 */ 
lineout ('text_file') /* positions write pointer to end of file, yf 


/* and closes the file in most Rexxes adh 


LINES 


LINES ( [name] ) 


Returns 0 if no lines remain to be read from the name input stream. Otherwise, it returns 1 or the actual 
number of lines in the input stream. 


Example 
lines ('text_file') == 0 /* end of file, no lines left to read */ 
lines ('text_file') == 127 /* 127 lines left to read on input aie 
lines ('text_file') I 1 /* 1 (or more) lines left to read aye 


This is a new format for the lines function added by the ANSI-1996 standard. This new format adds an 
option to control whether or not the user wants the interpreter to return an exact line count at the cost 
of performance overhead: 

LINES ([name] [,option]) 


In this format, the option may be either: 


Qc (Count) — Returns the exact number of lines left in the input stream 


OQ = w(Normal)— Default. Returns 1 if there are one or more lines left in input stream 


Example 
lines ('text_file') a= 1 /* 1 (or more) lines left to read */ 
Lites Rexel ONY Ss il /* 1 (or more) lines left to read */ 
ieee test Pike er). Se il /* EXACTLY 1 line left to read wf 


MAX 


MAX (numberl [,number2]...) 


Returns the largest number from the list of numbers. 
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Example 


max(-9,14,0) == 14 


MIN 


MIN(numberl [,number2]...) 


Returns the smallest number from the list of numbers. 


Example 


min(-9,14,0) == -9 


OVERLAY 


OVERLAY (stringl, string2 [, [start] [,[length] [,pad]]]) 


Returns a copy of string2, partially or fully overwritten by string1. start specifies the starting posi- 
tion of the overlay, and defaults to the first position, 1. length truncates or pads string] prior to the 
operation, using pad as the pad character. 


Example 
Oweiclkeny( Mave”, Vielaais, sist seeeulilyy seiGine” ,9,6,°>")) SS Melaste) aS) woe, o 4 Tease,” 
overlay('eous','this is right',14) = eh Secure lgiitcoucs! 


POS 


POS (needle, haystack [,start]) 


Returns the first position of the string needle within the string haystack. The scan starts at the first 
position in the haystack, unless start is coded as some number other than 1. Returns 0 if needle does 
not occur within haystack. 


Example 
pos('abc', 'abcdef') == 1 
pos('ab', 'abracadabra' ) == 1 
pos('abd', 'abracadabra') == 0 y* needle wae not found in the haystack */ 
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QUALIFY 


QUALIFY ([streamid] ) 


This function was added by the ANSI-1996 standard. It returns a name for the streamid that will be 
associated with the persistent stream or file and can be used in future references to that resource. 


Example 
qualify('text_file') == C:\regina\pgms\text_file 
/* Text_file was located and its fully */ 
/* qualified path name was returned. Bef) 


QUEUED 


QUEUED ( ) 


Returns the number of lines remaining in the external data queue (the stack). 


Example 


queued () ae 5 /* five reads will process the stack */ 


RANDOM 


RANDOM (max) or RANDOM([min] [, [max] [,seed]]) 


Returns a pseudo-random integer. In the first format, this number will be between 0 and max. The sec- 
ond format allows the dictating of the eligible range of numbers and the seeding of the operation. 


Example 
random (5) /* returns a pseudo-random number between 0 and 5 */ 
random(1, 6) /* simulate the roll of one die ea 


REVERSE 


REVERSE (string) 


Returns a copy of a string with its characters reversed. 


Example 


reverse('abc') == "cba' 
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RIGHT 


RIGHT(string, length [,pad]) 


Returns a string of length Length containing the rightmost characters of string, padded with the pad 
character or truncated to fit the length. 


Example 


iealrejlaie (( “elloye’" ,.'7/)) == : abc' /* 4 spaces precede: abc */ 
iealepaye( “elloye:” 7, Toe? )) sora DC” /* 4 x's precede: abc uA 


SIGN 


SIGN (number) 


Returns 1 if the number is positive, 0 if the number is 0, and -1 if the number is negative. 


Example 


sign(-88) == -1 
sign (88) == 
sign (+0) = 0 


SOURCELINE 


SOURCELINE ( [line_number] ) 


With no argument, sourceline returns the number of lines in the script. If 1ine_number is given, that 
specific line is returned from the script. 


Example 
sourceline (2) /* returns the second line in the script */ 
sourceline() /* returns the line number of the last line in the script */ 


SPACE 


SPACE(string [, [length] [,pad]]) 
Formats a string by replacing internal blanks with length occurrences of the pad character. The default 


pad character is blank and the default length is 1. Leading and trailing blanks are always removed. If 
length is 0, all blanks are removed. 
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Example 
space ('abc aba") == 'abc abc' /* reduces 3 internal spaces to 1 sae 
space('abc abc',1,'x') == 'abcxabc' /* reduces 3 internal spaces to one x */ 
space('abc abc',0) == apcand* /* LENGTH of 0 removes spaces inet 


STREAM 


STREAM(name [,option [,command] ] ) 
name is the stream to which to apply an option and optionally a command. The options are: 


Qc (Command) — Issues the command (implementation-dependent) 


Q) =p (Description) — Returns textual description of the stream’s state 


QO) S (State) — Returns the stream’s state, which will be either: ERROR, NOTREADY, READY, or UNKNOWN. 


The commands that can be encoded on the stream function depend on the interpreter. See your inter- 
preter’s reference guide to see what commands it supports. Many interpreters permit such operations as 
explicitly opening, closing, and flushing files; moving the file position pointers; returning detailed stream 
information; and setting and/or changing the file’s processing mode. 


Example 
stream('text_file','s') == READY /* stream state is good for I/O care 
stream('text_file','c','open read') /* issues a COMMAND on the stream “aif 


/* The allowable commands are implementation-dependent */ 


STRIP 


STRIP(string [,option] [,char]]) 


Returns string stripped of leading and/or trailing blanks or any other char specified. Option values 
determine the action: 


Q 1 (Leading) —Strip off leading blanks or char if specified. 
Q = 1 (Trailing) — Strip off trailing blanks or char if specified. 


QB (Both) — Strip off both leading and trailing blanks or char if specified. This is the default. 


Example 
Sierealjoy( ? abc vy) == 'abc' /* strip off both leading & trailing blanks */ 
Sicigalioy( Txoioellorchiorce” 5, Uae )) == Vale! fo Gicsesljo) IEE loyoncla Ileyevclsisaysp ( iexerelsh iL aiievey 2x) ave 
Sieiealjo)(( "Hoieallorebiowc? Tie, "xe Sei VSerelore!! fe Siciealjo) Cueie royally? ieieerlilshayey S045) zy 
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SUBSTR 


SUBSTR(string, start [,[length] [,pad]]) 


Returns a substring from string. start is the starting character position in string, defaulting to 1. 
length is how many characters to take, defaulting to the remainder of the string from start. If length 
is longer than the string, padding occurs with the pad character, which defaults to the blank. 


Example 
substr('Roses are Red',7,3) == 'are' 


substr('Roses are Red',55) oe tat fe soellil esestiaie;, SIVA ahs) ie@@ loslg *// 
Sloss (MINS iis) ryerolY Wil 5), "xe )) SS Mekechec! //* joyevelclevol (yaticlal Se “/ 


SUBWORD 


SUBWORD (string, start [,length] ) 


Returns the substring that begins at blank-delimited word start. If length is omitted, it defaults to the 
remainder of the string. 


Example 
subword('Violets are due',3) == ‘clue’ 
subword('Violets are due',4) ss tt fs ‘ayGUlil ssiercaliaye;, iaYo) ize WIE yionecl + / 


SYMBOL 


SYMBOL (name) 
Returns the state of symbol name. Returns: 


Q) BAD—name is not a valid symbol. 
OQ) = VAR—name is a symbol and has been assigned a value. 


Qo =LIT—name is valid symbol but is assigned no value (or it is a constant symbol). 


Example 
@ = VWvyeulael |)" 
symbol ('a') a= VAR 
symbol ('b') Ss iL? /* b has not been assigned. */ 


565 


Appendix C 
TIME 


TIME( [option_out [,time [option_in]] ] ) 


The TRL-2 form of this function allows for coding the first argument only. ANSI-1996 adds the other two 
arguments. 


If only the first parameter is encoded, the function returns the system time in 24-hour clock format: 
hh:mm:ss, for example: 19:19:50. Options include: 


Qc (Civil) — Returns hh:mmxx civil-format time. xx is am or pm. 


OQ) (Elapsed) — Returns elapsed time since the clock was started or reset, in the format 
sssssssss.uuuUuUU 


Q)  H(Hours)— Returns the number of completed hours since midnight in the format hh. Values 
range from 0 to 23. 


L (Long) — Returns the time in long format: hh:mm:ss.uuuuuu 
m (Minutes)—Returns the number of completed minutes since midnight in the format mmmm 
N (Normal) — Returns the time in the default format (hh:mm:ss) 


R (Reset) — Returns elapsed time since the clock was started or reset in the format sssssssss.uuuuuU 


Oooo do 


S (Seconds) — Returns the number of complete seconds since midnight 


Example 


time('C') == 7:25pm /* for example */ 
time ('m') == 1166 /* for example */ 


To use the elapsed timer, make a first call to time('e') or time('r'). This returns 0. Subsequent calls 


to time('e') and time('r') will return the elapsed interval since the first call or since the last call to 
time('r'). 


Example 


1) == 0 /* first call always returns 0 me 
ry == 46.172000 /* time elapsed since first call ay 


In the ANSI-1996 version of this function, if the time option is encoded, the function converts that time. 
The parameter option_in specifies the format in which the time is supplied and option_out is the tar- 
get format to which the time is converted. 


TRACE 


TRACE ( [setting] ) 
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Returns the trace setting. If setting is specified, it sets the trace to that level (and returns the old trace 
value). The settings are: 


U 


A (All) — Trace all clauses before execution. 


c (Commands) — Trace all host commands before execution. 


E (Errors) — Trace host commands that result in error or failure. 

F (Failure) — Trace host commands that fail. 

I (Intermediates) — Trace all clauses before execution, with intermediate results. 
L (Labels) — Trace labels. 

N (Normal) — Default, trace only host commands that fail. 


o (Off) — Trace nothing. 


oocooooo 


R (Results) — Trace clauses before execution and expression results. 


OU 


? (interactive) — Toggles the interactive trace on or off. May precede any of the preceding letters. 


Unlike the trace instruction, whole numbers may not be coded on the trace function. 


Example 
trace () /* returns current trace setting yf 
traces) /* turns on the Intermediate-level trace sy 


TRANSLATE 


TRANSLATE (string [,[tableout] [,[tablein] [,pad]]]) 


Returns a translated copy of string. Characters are translated according to the input translation table 
tablein and its output equivalent, tableout. If tablein and tableout are not coded, all characters in 
string are translated to uppercase. If tableout is shorter than tablein, it is padded with the pad 
character or its default, blanks. 


Example 
translate('abc') == 'ABC' /* translates to uppercase */ 
translate('abc','xy','ab') == ‘xyc' /* a and b were translated */ 


TRUNC 


TRUNC (number [, length] ) 


Returns number truncated to length decimal places. If not specified, length is 0, meaning that a whole 
number is returned. 
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Example 
brine. 33) aed | /* returns a whole number re 
jerebnave! (AY AS}, AL)) S= 2752 /* truncated to 1 decimal place */ 


eiciwnane! (275233), 3) 


= BI 230 /* 3 places past decimal place */ 


VALUE 


VALUE(symbol [, [newvalue] [,pool]]) 


Returns the value of the variable specified by symbol. If newvalue is specified, this value is assigned to 
the named variable. pool references an implementation-dependent variable collection or pool to search 
for the symbol. This function performs an extra level of variable interpretation. 


Example 


/* assume these statements are executed in sequence */ 
a Sek 

b — Ups i! 

value{(b'} == 6 7* Jeoks up ib: 7 

value (b) == (Tooke tip saaiy 


/* this second example shows updating an environmental variable via VALUE */ 
/* The variable to update is called REXXPATH, and the value it will be ay 
/* assigned is in the second argument. ENVIRONMENT is the pool name. ah 


call value 'REXXPATH', '/afs/slac/www/slac/www/tool/cgi-rexx', 'ENVIRONMENT' 


VERIFY 


VERIFY (string, reference [,[option] [,start]]) 


Verifies that all characters in string are members of the reference string. Returns the position of the 
first character in string that is not in reference, or 0 if all characters in string are in reference. 


start specifies where in string to start the search, the default is 1. The option may be: 


QQ w(Nomatch)— Default. Works as described earlier. 


(1 m(Match)— Returns the position of the first character in string that is in reference. 


Example 
verify('ab12', 'abcdefgh') == 3 /* 1 is the first character not in REFERENCE */ 
verify('dg', 'abcdefgh' ) == 0 /* all STRING characters are in REFERENCE ae 
verify('dg','abcdefgh','m') == 1 /* dis first character found in REFERENCE ey 


568 


Functions 


WORD 


WORD(string, wordno) 


Returns the blank-delimited word number wordno from the string string, or the null string, if the word 
does not exist in string. 


Example 
word('tis the time',2) == 'the' 
word('tis the time, 4) Se thy /* The null string is returned. */ 


WORD 


WORDINDEX (string, wordno) 


Returns the character position of the first character of the blank-delimited word given by word number 
wordno within string. Returns 0 if the word numbered wordno does not exist in the string. 


Example 


wordindex('tis the time',2) s= 5 fe Viele? Siegucices aya) joyoysalieaeial ) =)/ 


WORDLENGTH 


WORDLENGTH (string, wordno) 


Returns the length of blank-delimited word wordno within the string. Returns 0 for a nonexistent word. 


Example 


wordlength('tis the time',2) == 3 /* 'the' has three characters */ 


WORDPOS 


WORDPOS (phrase, string [,start]) 


If phrase is a substring of string, returns the word number position at which it begins. Otherwise 
returns 0. start is an optional word number within string at which the search starts. It defaults to 1. 


Example 
wordpos('time of','tis the time of the season') == 3 
wordpos('never','tis the time of the season') == 0 /* phrase not found */ 
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WORDS 


WORDS (string) 


Returns the number of blank-delimited words within the string. 


Example 
words('tis the time of the season for love') == § 
words ('tis the time of the season for lowe") s= 8 


XRANGE 


XRANGE([start] [,end]) 


Returns a string composed of all the characters between start and end inclusive. start defaults to 
‘00’x, and end defaults to ‘FF’x. 


Example 
xrange('a','d') == ‘abcd' 
xrange () /* returns the entire character set from '00'x thru 'FF'x */ 


X2B 


X2B (hexstring) 


Hexadecimal to binary string conversion. 


Example 
xO tee} == Milian al? 
See had SS MHD" 
sob dda") se “OOOOTLOTODOOLUIU* 


X2C 


X2C (hexstring) 


Hexadecimal-to--character string conversion. 
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cas He Los) == 48655C6C6F 
x2c (48656C6C6F) == Hello 


X2D 


X2D(hexstring [,length] ) 


Functions 


/* verify the result by inverting back */ 


Hexadecimal-to-decimal conversion. Returns the whole number string that is the decimal representation 
of hexstring. Omitting Length means hexstring will be interpreted as an unsigned number. Coding 
length means the leftmost bit of hexstring determines the sign. 


Example 
X2d('FFFF') == 65535 
seyel( Cima al) ae il /* LENGTH means signed interpretation */ 
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Regina Extended Functions 


This appendix provides a reference to all functions Regina Rexx provides beyond the ANSI-1996 
and TRL-2 standards. This appendix as intended as a quick reference guide for developers, so 
please see the Regina documentation if more detailed information is required. The Regina docu- 
mentation is easily downloaded with the product itself, as described in Chapter 20. 

Each of the following entries is identified by the name of the function. Entries contain a template 
of the function, showing its arguments, if any. Optional arguments are enclosed in brackets ([ ]). 
The vertical “or” bar (|) means to choose exactly one option from among the choices listed. The 
template is followed by a description of the function and its use, the function’s arguments, and 
possible return codes. Coding examples show how to code each function. 


To make some of the extended functions available, you must issue the options instruction with 
appropriate operands. Here are a few key examples. 


To enable the VM buffer functions buftype, desbuf, dropbuf, and makebuf, encode: 
options buffers 


To enable the Amiga Rexx (AREXX) functions, encode this instruction. Note that bifs is a popular 
acronym that stands for “built-in functions:” 


options arexx_bifs 


If you want the open, close, and eof functions to use AREXX semantics instead of standard 
Regina semantics encode: 


options arexx_semantics 


B2C 


B2C (binstring) 


Converts a binary string of Os and 1s into its corresponding character representation. 


Appendix D 


Example 
oe ( MIL WOO) OLA ¥ )) == ©€ /* displays the character the bitstring represents */ 
IAS (( "OOO OLal © )) == 3 


BEEP 


BEEP (frequency [,duration] ) 


Sounds a tone through the default speaker. The duration is in milliseconds. 


Example 
beep (40,1000) /* generates a brief tone through the system speaker */ 
beep(70,1000) /* generates a higher pitched tone than example 1 ca/| 
beep (70,2000) /* generates a tone for twice as long Le 


BITCHG 


BITCHG(string, bit) 


Toggles (reverses) the state of the specified bit in the string. Bit 0 is the low-order bit of the rightmost 
byte of the string. 


Example 


lopbieclayer (MO SLS "se, a) == MOOS) xe 
To display this result, encode: 


Gieny Coe (Josl ieelaye; (( "O)Sil 3)", 44) }) 


BITCLR 


BITCLR(string, bit) 


Sets the specified bit in the string to 0. Bit 0 is the low-order bit of the rightmost byte of the string. 
This is the inverse of the bitset (bit set) function. 


Example 


bitclr('0313'x,4) == '0303'x 


574 


Regina Extended Functions 


To display this result, encode: 


yen CMse(loslicellio( “ OSi3) "se, 44) )) 


BITCOMP 


BITCOMP(stringl, string2, bit [,pad] ) 


Bit-compares the two strings, starting at bit 0. Bit 0 is the low-order bit of the rightmost byte of the 
string. Returns the bit number of the first bit by which the two strings differ, or -1 if the two strings are 
identical. 


Example 
loubicictoinjoy(( IE Se, WaEE” 5:6) == =i 
bitcomp('aa'x, 'ab'x) == 0 
bitcomp('aa'x, 'ba'x) == 4 
bitcomp('FF'x, 'F7'x) == 3 
IouLiereronnyoy (Minis! <9 7s) —— 7 


BITSET 


BITSET(string, bit) 


Sets the specified bit in the string to 1. Bit 0 is the low-order bit of the rightmost byte of the string. 
This is the inverse of the bitclr (bit clear) function. 


Example 


lopbiesiete ("OSI "se, 2)) S= VOB xe 
To display this result, encode: 


say c2x(bitset('0313'x,2)) 


BITTST 


BOP ININSIO (SK ereabiaKe},, Joy ie)) 


Returns a Boolean value of 0 or 1 to indicate the setting of the specified bit in the string. Bit 0 is the 
low-order bit of the rightmost byte of the string. 
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Example 
lomiciesic ("OSs "se, == Al 
lopctesie ("OSI 2) c= 0 
loniiciesic (7 OOOO"ss, 1) <= 0 


BUFTYPE 


BUFTYPE () 


Displays stack contents (usually used for debugging). 


Example 


say buftype() /* displays number of lines and stack buffers */ 


C2B 


C2B(string) 


Converts the character string into a binary string (of 0s and 1s). 


Example 
Say -czbd a") ==) OP LOOOOR 
Say “C2 oe) Ss OLTUO0 LO 
Say e2oCe ) == O1OU00CT 


CD or CHDIR 


CD(directory) or CHDIR(directory) 


Changes the current directory to the one specified. Return code is 0 if successful; otherwise, the current 
directory is unchanged and the return code is 1. 


Example 
Giel( "Gig" )} /* changes to C:\ directory under Windows “yf 
ie = Glel(( “seoesx" ) /* assuming directory 'xxxxx' does not exist, displays */ 
say rc /* the return code of 1. Current directory not changed */ 
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CLOSE 


CLOSE (file) 


Closes the file specified by the logical name file. Returns 1 if successful, 0 otherwise (for example, if the 
file was not open). 


Example 
close('infile') == 1 /* closes the open file */ 
close('infile') == 0 /* The file was not open when CLOSE was issued. */ 


COMPRESS 


COMPRESS (string [,list] ) 
Removes all occurrences of the characters specified by list from the string. 


If list is omitted, removes all blanks from the string. 


Example 
compress(' a bc oy == '‘abcd' 
compress ('12a3b45c6712d','1234567') == '‘abcd' 


CRYPT 


CRYPT(string, salt) 


Returns string as encrypted according to the first two characters of salt. Not supported under all 
operating systems — in this case, the original string is returned unchanged. The encrypted string is not 
portable across platforms. 


Example 
say crypt('ABCD','fg') /* displays string ABCD encrypted as per seed: fg tee) 
/* Tf ABCD is returned, your operating system does not */ 
fe support encryption. tf 


DESBUF 


DESBUF () 


Clears the entire stack by removing both lines and buffers. Returns the number of buffers on the stack 
after the function executes, which should always be 0. 
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Example 


say desbuf () /* all buffers are removed and 0 is returned */ 


DIRECTORY 


DIRECTORY( [new_directory] ) 


If issued without an input parameter, this function returns the current working directory. 
If the new_directory is specified, the current directory of the process is changed to it and the 


new_directory is returned. If the new_directory does not exist, the current directory is unchanged 
and the null string is returned. 


Example 
/* assume these commands are run in sequence "oad 
say directory () == c:\regina /* displays the current directory af 
Sawy chuseeworny ("Ge \!)) Se ©>2\ /* changes current directory to c:\ ef 
say directory('xxx') == /* null string returns because there if 
/* is no such directory to change to yf 
say directory () == © /* directory was unchanged by prior call*/ 


DROPBUF 


DROPBUF( [number] ) 


If called without a parameter, this removes the topmost buffer from the stack. If no buffers were in the 
stack, it removes all strings from the stack. 


If called with a number that identifies a valid buffer number, that buffer and all strings and buffers above 
it are removed. Strings and buffers below the buffer number are not changed. 


If called with a number that does not identify a valid buffer number, no strings or buffers in the stack are 
changed. 


Returns the number of buffers on the stack, after any removal it performs. (This differs from CMS, where 
the return code is always 0). 


Example 
say dropbuf(3) == 2 /* assuming the highest buffer is numbered 4, aif 
/* this would remove buffers 3 and 4 my 
say dropbuf () == 1 /* assuming there were 2 buffers prior to this call ue) 
say dropbuf () == 0 /* assuming no buffers existed ray 
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EOF 


EOF (file) 


Returns 1 if the file is at end of file, 0 otherwise. £i1e is the logical filename assigned at open. 


Example 


say eof('infile') 
say eof('infile') 


1 /* file is open and at EOF */ 
0 fe THIS aS EE iNOE EVE GOIE, xe iaole Ojon, Gee “/ 


EXISTS 


EXISTS (filename) 


Tests to see whether the file specified by £ilename exists. Returns 1 is it does, 0 otherwise. 


Example 
say exists('input.txt') ss il fe Uda teks craigs, 3 / 
say exists('none_such.txt') == 0 /* The file does not exist. */ 


EXPORT 


EXPORT(address, [string] , [length] [,pad] ) 


Overwrites the memory beginning at the 4-byte address in a previously allocated memory area with 
the string. Returns the number of characters copied. 


If length is omitted, the number of characters copied will be the length of string. If length is speci- 
fied, it determines the number of characters copied. If length is less than the string length, pad is used 
to specify the pad characters copied. 


Be aware that this function attempts to directly overwrite memory at direct addresses. If used improp- 
erly it could cause unpredictable effects including program or even operating system failure (depending 
on the operating system). 


WARNING — this function could overwrite and destroy memory contents if improp- 


erly used! 
Example 
export ('0004 0000'x, 'new string') == 10 
/* The 10 bytes beginning at address '0004 0000'x are now set to: 'new string'. */ 


579 


Appendix D 
FIND 


FIND(string, phrase) 


Returns the word number of the first occurrence of phrase in string. Returns 0 if phrase is not found. 
Multiple blanks between words are treated as one in comparisons. The standard function wordpos per- 
forms the same work and should be used instead if possible. 


Example 
find('now is the time', 'the') == 3 
find('now is the time', 'xxx') == 0 
find('now is the (eae? , Mela tess") SS 3 


FORK 


FORK () 
Spawns a new child process, which then runs in parallel to the parent. 


If successful, it returns the child process ID to the parent and 0 to the child process. If unsuccessful or 
unsupported on your operating system, it returns 1 to the parent. 


Example 
Porky = /* unsupported on your operating system or failed yf 
fork() == 22287 /* This is the child process ID returned to the parent */ 
/* (the actual number will differ from this example). */ 
/* 0 will be returned to the child process. oy, 


FREESPACE 


FREESPACE (address, length) 


getspace allocates a block of memory from the interpreter’s internal memory pool. freespace returns 
that space to the system. Returns 1 if successful, 0 otherwise. 


Example 
/* this example assumes these two statements are run in sequence */ 
addr = getspace(12) /* get a block of 12 bytes of space */ 
re = freespace(addr,12) /* free the 12 bytes of memory Eg 
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GETENV 


GETENV (environment_variable) 


Returns the value of the environment_variable or the null string if the variable is not set. This func- 
tion is obsolete, use the equivalent value function instead. Here is its template: 


VALUE (environmental_variable,,'SYSTEM') 


Example 
/* these two examples retrieve and display the values of the PROMPT and ise) 
/* SYSTEMDRIVE environmental variables, respectively wey 
say value(PROMPT,, 'SYSTEM' ) == SPSG /* for example 3 if 
say value(SYSTEMDRIVE,,'SYSTEM') == C /* for example eee 


The value function has some operating system dependencies. See system-specific documentation for 
any differences from the operation shown here. 


GETPID 


GETPID() 


Returns the process id or PID of the currently running process. 


Example 


say getpid() == 588 /* displays the script's PID, whatever it might be */ 


GETSPACE 


GETSPACE (length) 


getspace allocates a block of memory of the given length from the interpreter’s internal memory pool. 
It returns the address of the memory block. freespace returns that space to the system. 


Example 
addr = getspace(12) /* get a block of 12 bytes of space */ 
re = freespace(addr,12) /* free the 12 bytes of memory Saft 


581 


Appendix D 
GETTID 


GETTID() 


Returns the thread id or TID of the currently running process. 


Example 


say gettid() == 1756 /* displays the script's TID, whatever it might be */ 


HASH 


HASH (string) 


Returns the hash value of the string as a decimal number. 


Example 
say hashi{*abe") ‘s== 38 
soy heash( "abe" -S= 939 


IMPORT 


IMPORT(address [,length] ) 


Returns a string of the given length by copying data from the 4-byte address. If length is omitted, 
copies until the null byte is encountered. Coding the Length is highly recommended. 


Example 


import ('0004 0000'x,8) /* returns the 8-byte string at address '0004 0000'x */ 


INDEX 


INDEX (haystack, needle [,start]) 
Returns the character position of needle within string haystack. Returns 0 if needle is not found. 
If specified, start tells where in haystack to initiate the search. It defaults to 1 if not specified. 


The standard pos function should be used instead of index if possible. 
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sliayekeps ( “jeloialss" , "5:2" )) 
inex (hii) 1) 
Meer ERT sthi etnies) 


Il 
ll 
NNO 


JUSTIFY 


JUSTIFY (string, length [,pad]) 


/* not found 


/* found at position 2 


Regina Extended Functions 


oY, 
ef 


/? APiesie IEC\WbAICl Elie jooRaicsoi LQ %/ 


Evenly justifies words within a string. The length specifies the length of the returned string, while 
pad specifies what padding to insert (if necessary). pad defaults to blank. 


Example 
SRBISRE LIEW ((Meleskss ale aie,” iL/3})) 
SRUUSHESLIEWe ((Oieletalsey alse aie, ilfs},, “sre'")) 
justify(' (Clasiey absp aie, abs Use")) 
quiSicsliay (Melis ale: ale" 5 3)ps— Vela! 


MAKEBUF 


MAKEBUF () 


‘this 
'thisxxxxxisxxxxxit' 
'thisxxxxxisxxxxxit' 
/* ignores leading/trailing blanks 

/* truncation occurs due to the LENGTH 


is 


ar 
Hf 
sso 
salt 
ay 


it' /* 5 blanks between words 
/* 5 x's between words 


/* 5 x's between words 


Creates a new buffer at the top of the current stack. Buffers are assigned numbers as created, starting 
at 1. Returns the number of the newly created buffer. 


Example 
/* assume these two commands are executed in sequence yf 
makebuf() == /* if there were no buffers before this call | 
makebuf() == 2 /* creates the next (second) buffer ay), 
fs and returns its buffer number 2) 
OPEN(file, filename, ['Append' | 'Read' | 'Write'] ) 


Opens the filename for the specified processing type. Returns 1 if successful, 0 otherwise. 


file is a logical name by which the opened file will be referenced in subsequent functions (for example, 
readch, read1n, writech, writeln, seek, and close). 
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Example 
(ojovetal(( Malinnesbike”, Valigjoybiie cade", 154?) /* open an input file for reading */ 
open('outfile','output.txt','A') /* append to the output file yi 


POOLID 


POOLID() 


Returns the current variable pool level at the same depth as the call stack. This function enables you to 
get directly at unexposed variables from a subroutine from the parent hierarchy using the value built-in 
function. Using it, you can get or set variables. 


Example 
/* run these statements in sequence */ 
level = poolid() /* get current variable pool level/id */ 


say value('mystem.0',,level-1) 
call value 'mystem.45','newvalue',level-1 /* mystem.45 is now changed in parent */ 


POPEN 


POPEN (command [,stem] ) 


Runs the operating system command and optionally places its results (from standard output) into the 
array denoted by stem. Note that the stem should be specified with its trailing period. stem. 0 will be 
set to the number of output lines in the array. 


The ANSI-1996 address instruction should be used instead if possible. address with can also capture 
standard error from the command, which popen does not do. 


Example 
jojo (Peli, WCliiic ilsieie 2) /* returns DIR results in dir_list array */ 
Use instead: 
ddress system 'dir' with output stem dir_list. /* stem name ends w/ period */ 
/* dir_list.0 tells how many items were placed in the array by the command */ 
/* to process the command's output (in the array), run this code.... Coy 
él 3) = i tt@ Chie Maisie. 0 


say dir_list.j 
end 
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RANDU 


RANDU( [seed] ) 


Returns a pseudo-random number between 0 and 1. seed optionally initializes the random generator. 


Example 
randu () /* returns a random number between 0 and 1 
with precision equal to the current value 
of NUMERIC DIGITS if 


Use the ANSI-1996 function random instead for greater portability and standards compliance. 


READCH 


READCH(file, length) 


Reads and returns length number of characters from the logical filename £ile. Fewer characters than 
length could be returned if end of file is reached. 


Example 


readch('infile',10) /* returns the next 10 characters from the file */ 


READLN 


READLN (file) 


Reads the next line from the input file. The line read does not include any end of line character(s) (aka 
the newline). 


Example 


readln('infile') /* returns the next of line data, sans newline */ 


RXFUNCADD 


RXFUNCADD(external_name, library, internal_name) 
Registers an external function for use by the script. library is the name of the external function library. 


Under Windows, this will be a dynamic link library or DLL. Under Linux, Unix, and BSD, this will be a 
shared library file. 
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Make sure that the operating system can locate the library file. For Windows, library must reside in 
a folder within the PATH. For Linux, Unix, and BSD, the name of the environmental variable that points 
to the shared library file will vary by the specific operating system. LD_LIBRARY_PATH, LIBPATH, and 
SHLIB_PATH are most common. Check your operating system documentation if necessary to determine 
the name of this environmental variable. 


Returns 0 if registration was successful. 


Example 
/* this registers external function SQLLoadFuncs from REXXSQL library for use */ 
rxfuncadd('SQLLoadFuncs', 'rexxsql', 'SQLLoadFuncs') 


RXFUNCDROP 


RXFUNCDROP (external_name) 


Removes the external function name from use. Returns 0 if successful. 


Example 


rxfuncdrop('SQLLoadFuncs') /* done using this external library */ 


RXFUNCERRMSG 


RXFUNCERRMSG () 
Returns the error message from the most recently issued call to rxfuncadd. 


Use this function to determine what went wrong in issuing a rxfuncadd. 


Example 


rxfuncerrmsg () /* returns the rxfuncadd error message */ 


RXFUNCQUERY 


RXFUNCQUERY (external_name) 


If the external_name is already registered for use, returns 0. Otherwise returns 1. 
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Example 


rxfuncquery ('SQLLoadfuncs' ) /* returns 0 if registered and usable oy, 


RXQUEUE 


RXQUEUE (command [,queue] ) 


Gives control commands to the external data queue or stack. This controls Regina’s extended external 
data queue facility. 


Commands: 


Q c—Creates a named queue and returns its name. Queue names are not case-sensitive. 

Qh p—Deletes the named queue. 

Ql G—Gets the current queue name. 

Qo s—Sets the current queue to the one named. Returns the name of the previously current queue. 
Q 


T— Sets the timeout period to wait for something to appear in the named queue. If 0, the inter- 
preter never times out . . . it waits forever for something to appear in the queue. Time is expressed 
in milliseconds. 


Please refer to the Regina documentation for further information and examples. 


SEEK 


SEEK(file, offset, ['Begin' | 'Current' | 'End'] ) 


Moves the file position pointer on the logical file specified by file, specified as an offset from an 
anchor position. Returns the new file pointer position. Note that Rexx starts numbering bytes in a file at 
1 (not 0), but AREXX-based functions like seek start numbering bytes from 0. The first byte in a file 
according to the seek function is byte 0! 


Example 
seek('infile',0,'E') /* returns number of bytes in file a 
seek('infile',0,'B') /* positions to beginning of the file */ 
seek('infile',5,'B') /* positions to character 5 off the file's beginning */ 


SHOW 


SHOW(option, [name] , [pad] ) 


Returns the names in the resource list specified by option. Or, tests to see if an entry with the specified 
name is available. 
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Possible options are: 


Clip —The Clip list 
Files— Names of currently open logical files 


Libraries — Function libraries or function hosts 


Coo do 


Ports — System Ports list 


Files is available on all platforms; other options are valid only for the Amiga and AROS. 


Example 


say show('F') == F STDIN infile STDERR STDOUT 
/* this shows that the file referred to by the logical name INFILE is open */ 


SLEEP 


SLEEP (seconds ) 


Puts the script to sleep (in a wait state) for the specified time in seconds. Useful to pause a script. 


Example 


sleep (3) /* script sleeps for 3 seconds Ry 
sleep(10) /* script sleeps for 10 seconds */ 


STATE 


STATE (streamid) 
If the streamid exists, returns 0. Otherwise returns 1. 
Better portability is possible with the command: 


stream(streamid, 'C', 'QUERY EXISTS') 


Example 


state ('xxxx') == 1 /* assuming this STREAMID does not exist */ 
state('infile') == 0 /* assuming this STREAMID exists tif 
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STORAGE 


STORAGE( [address] , [string] , [length] , [pad] ) 


With no arguments, returns the amount of available system memory. If address is specified (as a 4-byte 
address), copies the string into memory at that address. The number of bytes copied is specified by 
length, or else it defaults to the length of the string. pad is used if length is greater than the length 
of string. Returns the previous contents of the memory before it is overwritten. 


Be aware that this function attempts to directly overwrite memory at direct addresses. If used improp- 
erly it could cause unpredictable effects including program or operating system failure (depending on 
the operating system). 


Example 


say storage() /* displays the amount of available system memory */ 


storage('0004 0000'x,'new string') 
/* the memory at location '0004 0000'x is overwritten with 'new string' 
and its previous contents are returned */ 


WARNING — this function could overwrite and destroy memory contents if improp- 
erly used! 


STREAM 


STREAM(streamid, [,option [,command]]) 


stream is part of the ANSI-1996 standard, but Regina adds dozens of commands to it. These commands 
permit opening, closing, and flushing files; positioning read or write file pointers; setting file access modes; 
and, returning information about the file or its status. See the Regina documentation for full details. 


TRIM 


TRIM (string) 


Returns string with any trailing blanks removed. The strip function can achieve the same result and 
is more standard. 


Example 


trim('abc ') == '‘abc' 
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UNAME 


UNAME ( [option] ) 
Returns platform identification information, similar to the uname command of Linux, Unix, and BSD. 
Options: 


A (All) — Returns all information. The default. 

S (System) — Returns the name of the operating system 
N (Nodename) — Returns the machine or node name 

R (Release) — Returns the release of the operating system 


v (Version) — Returns the version of the operating system 


COCoovcovco do 


m (Machine) — Returns the hardware type 


Example 


/* output will be completely system-dependent /, 
/* here's an example under Windows XP */ 
uname() == WINXP NULL 1 5 i586 /* perhaps fay 


UNIXERROR 


UNIXERROR (error_number) 


Returns the textual error message associated with the error_number. Since this function interfaces to 
operating system services, the error text returned is operating-system-dependent. 


Example 
unixerror(5) == Input/output error /* under Windows XP, */ 
iblalixwercicone(7)) Sire; Ilaisie ieeye) Iteraye) i= for example ang 


UPPER 


UPPER (string) 


Returns string translated to uppercase. Duplicates the function of the standard function 
translate(string). 
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Example 
say upper('abc') == 'ABC' 
say upper('AbCd') == 'ABCD' 


USERID 


USERID () 


Returns the name of the current user (his or her userid). If the platform cannot provide it, this function 
returns the null string. 


Example 
/* here's a Windows example, running under the Administrator */ 
userid() == Administrator 
/* here's a Linux example for regular userid: bossman me 
userid() == bossman 


WRITECH 


WRITECH(file, string) 


Writes the string to the logical filename file and returns the number of bytes written. 


Example 


writech('outfile','hi') /* writes string 'hi' to the file and returns 2 */ 


WRITELN 


WRITELN (file) 


Writes the string to the logical file specified by £ile with the end of line character(s) or newline 
appended. Returns the number of bytes written, including the newline. 


Example 


writeln('outfile','hi2') /* writes string 'hi2' to the file and returns 4 
(since this value includes the newline) ao, 
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Mainframe Extended 
Functions 


This appendix provides a reference to the extended functions of VM/CMS and OS TSO/E Rexx. It 
excludes the dozen or so Double-Byte Character Set (DBCS) functions. This appendix as intended 
as a quick reference guide for developers, so please see the IBM mainframe Rexx manuals for full 


details: VM REXX Reference, or TSO/E REXX Reference. You can download them from 
www.RexxInfo.org. 


Each entry is identified by the name of the function. Entries contain a template of the function, 
showing its arguments, if any. Optional arguments are enclosed in brackets ([ ]). The template is 
followed by a description of the function and its use, the function’s arguments, and possible 
return codes. 


Coding examples show how to code each function. We have noted where the functions differ under 
VM/CMS versus TSO/E Rexx. 


EXTERNALS 


EXTERNALS () 


For VM, returns the number of lines (or elements) in the terminal input buffer. This is the number 
of logical typed-ahead lines. 


Example 


externals () == 0 /* if no lines are present *// 


For OS TSO/E, this function has no meaning since there is no terminal input buffer. Under OS 
TSO/E, this function always returns 0. 


Example 


externals () = 


ll 
S 


/* Under OS/TSO, 0 is ALWAYS returned */ 


Appendix E 
FIND 


FIND(string, phrase) 


Returns the word number of the first occurrence of phrase in string. Returns 0 if phrase is not found. 
Multiple blanks between words are treated as one in comparisons. The ANSI-1996 standard function 
wordpos performs the same work and should be used instead when possible. 


Example 
find('now is the time', 'the') == 3 
find('now is the time', 'xxx') == 0 
find('now is the time','the time') == 3 


INDEX 


INDEX (haystack, needle [,start]) 


Returns the character position of needle within string haystack. Returns 0 if needle is not found. If 
specified, start tells where in haystack to initiate the search. It defaults to 1 if not specified. The ANSI- 
1996 standard pos function is preferred over index. 


Example 
sliayolese (elas 5 '3")) 
tndex(' this’) ha) 
index () thisthiethis" chi) 


(S Toot sows! °7/ 


I 
Ul 
MONO 


/* returns position of first occurrence */ 


JUSTIFY 


JUSTIFY (string, length [,pad]) 


Evenly justifies words within a string. The length specifies the length of the returned string, while 
pad specifies what padding to insert (if necessary). pad defaults to blank. The ANSI-1996 standard 
right and left functions can be used as alternatives to justify. 


Example 
qUisteabieye((eleals; als) alje? 5 ilts})) SS Vicluls is it' /* 5 blanks between words */ 
justify('this is it',18,'x') == 'thisxxxxxisxxxxxit' /* 5 x's between words “yf 
justify(' (elnis, ahs} aie jf}, Ye" )) = Melobignececalsnecesiaict je & xelgy losieyiierin \iienecls /, 
/* ignores leading/trailing blanks ou) 
Fuse (ells as die’, 3)) == Velam” /* truncation occurs, LENGTH too short */ 
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LINESIZE 


LINESIZE () 


Under VM, returns the current terminal line width (the point at which the language processor breaks 
lines displayed by the say instruction). It returns 0 in these cases: 


OQ) = - Terminal line size cannot be determined. 


OQ) -Virtual machine is disconnected. 


QO) Thecommand CP TERMINAL LINESIZE OFF is in effect. 


Example 
linesize() /* returns the current terminal width ed 
linesize() == 0 /* one of the three conditions listed above pertains */ 


Under OS TSO/E, if the script runs in foreground, returns the current terminal line width minus 1 (the 
point at which the language processor breaks lines displayed by the say instruction). If the script runs in 
background, this function always returns 131. In non-TSO/E address spaces, this function returns the 
logical record length of the OUTDD file (default is SYSTSPRT). 


Example 
linesize() /* if the script is running in foreground, returns terminal width */ 
linesize() == 131 /* script is running in background oo) 


USERID 


USERID () 


Returns the name of the current user (his or her userid). 


Example 


userid() == ZHBFO1 /* if the login id were ZHBFO1 */ 


Under OS, if the script is running in a non-TSO/E address space, this function returns either the userid 
specified, the stepname, or the jobname. 
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This appendix provides a reference to all Rexx/SQL functions, as defined by the product docu- 
mentation for Rexx/SQL version 2.4. This appendix is intended as a quick reference guide for 
developers, so see the product documentation if more detailed information is required. Chapter 15 
tells where to obtain this documentation. 

Each of the following entries is identified by the name of the function. Entries contain a template 
of the function, showing its arguments, if any. Optional arguments are enclosed in brackets ([ ]). 
The template is followed by a description of the function and its use and the function’s arguments. 


Coding examples show how to code each function. All Rexx/SQL functions return 0 upon success 
unless otherwise noted. 


SQLCLOSE 


SQLCLOSE( statement_name ) 
Closes a cursor. Frees associated locks and resources. 


statement_name— The statement identifier 


Example 


if SQLClose(s1) <> 0 then call sqlerr 'During close' 


SQLCOMMAND 


SQLCOMMAND( statement_name, sql_statement [,bind1[,bind2[,...[,bindN]]]] ) 


Immediately executes an SQL statement. 


Appendix F 


Bind values may optionally be passed for DML statements, if the database permits them. Bind values 
may not be passed for DDL statements. The format for bind variables is database-dependent. 


statement_name— Names the SQL statement. For SELECTs, names a stem for an array that will receive 
statement results 


sql_statement — A SQL DDL or DML statement 
bind1...bindN— The bind variables 


Variable sqica.rowcount is set by this function to the number of rows affected by DML statements. 


Example 


For a SELECT statement: 


re = sqlcommand(s1,"select deptno, dept_desc from dept_table") 
Variables s1.deptno.0 and s1.dept_desc. 0 will both be set to the number of rows returned. 
Variables s1.deptno.1 and s1.dept_desc.1 will contain values retrieved for these respective columns 


for the first row, variables s1.deptno.2 and s1.dept_desc. 2 will contain values retrieved for these 
respective columns from the second row, and so on. 


Example 


For a DDL statement: 


sqlistr = 'create table phonedir (lname char(10), phone char(8))' 
if SQLCommand(c1,sqlstr) <> 0 then call sqlerr 'During create table' 


SQLCOMMIT 


SQLCOMMIT () 


Permanently applies (or commits) the pending update to the database. 


Example 


if SQLCommit() <> 0 then call sqlerr 'On commit' 


SQLCONNECT 


SQLCONNECT( [connection_name], [username], [password], [database], [host] ) 


Creates a new connection to the database. This becomes the default database connection. Which parame- 
ters are required, and what their values are, is database-dependent. 
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connect ion_name — Names the connection. Required if more than one connection will be open 
simultaneously. 


username — User ID for the connection. 
password — User ID’s password. 
database — Name of the database to connect to. 


host — Host on which the database resides. This string is system-dependent. 


Example 


Oracle — All parameters are optional: 
ia = Syelletoraliaveyoie ((, “srevousie” , Vieakefesc’ )) fe Seo dbnywas 9 / 


DB2— Only the database name is required: 


re = sqlconnect ('MYCON',,,'SAMPLE' ) 
MySQL— Only the database name is required: 


if SQLConnect(,,,'mysql') <> 0 then call sqlerr 'During connect' 


SQLDEFAULT 


SQLDEFAULT( [connection_name] ) 
If connection_name is specified, sets the default database connection to it. 
If connection_name is not specified, returns the current connection name. 


connection name — The name of the database connection to set the default to. Optional. 


SQLDESCRIBE 


SQLDESCRIBE( statement_name [,stem_name] ) 


Run after a SQLPREPARE statement, describes the expressions returned by a SELECT statement. Creates 
a compound variable for each column in the select list of the SOL statement. The stem consists of 
statement_name, followed by the constant “COLUMN” and one of the following attributes: 


QO NAmME—Column name 


Q TYPE 


Column’s datatype (a database-specific string) 
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SIZE—Column’s size 


SCALE — The overall size of the column 


X] 


PRECISION— Column’s precision (the number of decimal places) 


Coo o 


NULLABLE — 1 if the column is nullable, 0 otherwise 
The values returned are database-dependent. 


statement_name— The statement identifier 


stem_name— Optional stem name for any variables created to return the information 


Note that the columns returned by this function can be determined by calling the SQLG! 
with the DESCRIBECOLUMNS argument. 


Example 


sqlprepare(s1,"select deptno, dept_desc from dept_table") 
sqlidescribe(s1,"fd") 


re 
1Ko) 


This code sequence might result in the following Rexx variables: 


fd.column.name.1 me CO DEPING” 
fd.column.name.2 == MDH IDSC" 
fd.column.type.1 == “NUMBER* 
2 
al 


fd.column.type. == 'VARCHAR2' 
fd.column.size. == 16" 
fd.column.size.2 == "30° 
fd.column.precision.1 == 10" 
fd.column.precision.2 == 19 
fd.column.scale.1 == '6' 
fd.column.scale.2 == '' 
fd.column.nullable.1 te 8 
fd.column.nullable.2 Seay 


SQLDISCONNECT 


SQLDISCONNECT( [connection_name] ) 


Closes a database connection and all open cursors for that connection. 


connection_name — The name of the connection specified in SQLCONNECT, if any. 


Example 


if SQLDisconnect() <> 0 then call sqlerr 'During disconnect' 
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Rexx/SQL Functions 
SQLDISPOSE 


SQLDISPOSE( statement_name ) 


Deallocates a work area originally allocated by a SQLPREPARE statement. Implicitly closes any associated 
cursor. 


statement_name — The SQL statement identifier 


Example 


if SQLDispose(s1) <> 0 then call sqlerr ‘During dispose' 


SQLDROPFUNCS 


SQLDROPFUNCS ([ 'UNLOAD' ] ) 


Terminates use of Rexx/SQL and frees resources. The inverse of SQLLOADFUNCS. If the UNLOAD string is 
coded as the only argument, all Rexx/SQL functions are removed from memory. Use this function with 
caution as this can affect other running Rexx/SQL programs or other running threads in the current 
program. 


Example 


if SQLDropFuncs('UNLOAD') <> 0 then 
say 'sqldropfuncs failed, re: ' re 


SQLEXECUTE 


SQLEXECUTE( statement_name [,bind1[,bind2[,...[,bindN]]]] ) 


Executes a previously “prepared” INSERT, UPDATE, or DELETE statement. The sequence of Rexx/SQL 
functions to execute these SQL statements in discrete steps would therefore be: SQLPREPARE, SQLEXECUTE, 
and SQLDISPOSE. 


statement_name — Identifies the SQL statement. 
bind1...bindN— Bind variables. Notation is database-dependent. 


Variable sqlca.rowcount is set to the number of rows affected by the DML statement. 
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SQLFETCH( statement_name, [number_rows] ) 
Fetches the next row for an open cursor. If number_rows is specified, it can return more than one row. 


For one-row fetches, a compound variable is created for each column name identified in the SQL state- 
ment. The stem is the statement name, and the tail is the column name. 


For multiple-row fetches, a Rexx array is created for each column name in the SQL statement. 
statement_name— The statement identifier 
number_rows — An optional parameter that specifies how many rows to fetch 


Returns 0 when there are no more rows to fetch. Otherwise, returns a positive integer. 


Example 


Here is a complete example of preparing a cursor, opening the cursor, fetching all rows from the cursor 
SELECT, and closing the cursor: 


sqlistr = 'select * from phonedir order by lname' 
if SQLPrepare(sl,sqlstr) <> 0 then call sqlerr ‘During prepare' 


if SQLOpen(s1) <> 0 then call sqlerr 'During open' 
/* this loop displays all rows from the SELECT statement aif 


do while SQLFetch(s1) > 0 
say 'Name:' sl.lname 'Phone:' s1.phone 
end 
if SQLClose(s1) <> 0 then call sqlerr 'During close' 


SQLGETDATA 


SQLGETDATA(statement_name, column_name, [start_byte], [number_bytes] [,file_name] ) 


Extracts column data from column_name in the fetched row. The data is returned in a Rexx compound 
variable, unless £ile_name is specified, in which case it is written to a file. 


statement_name — Identifies the SQL statement 
column_name — Specifies to column data to return 
start_byte— Optionally specifies the starting byte from which to return column data 


number_bytes — Optionally specifies the number of bytes to retrieve 
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£ile_name— If specified, names the file into which complete column contents are written 


Returns 0 when there is no more data to retrieve. Otherwise, returns the number of bytes retrieved. 


You can usually code SQLFETCH and then reference columns by their compound or stem variable names 
without explicitly invoking SQLGETDATA. See the entry under “SQLFETCH” earlier in this appendix for 

a complete example. Please see the Rexx/SQL documentation to see an example of the SQLGETDATA 
function. 


SQLGETINFO 


SQLGETINFO( [connection_name], variable_name [,stem_name] ) 
Returns information about the database referred to by the connection identified by connect ion_name. 
connection_name — The database connection name. If not present, uses the current connection. 
variable_name— Specifies the data to return. Valid values are: 


Qo DATATYPES — Lists column datatypes supported by the database. 


Ql DESCRIBECOLUMNS — Lists column attributes supported by the database. 


Ql SUPPORTSTRANSACTIONS — Returns 1 if the database supports transactions, 0 otherwise. 


Ql = SUPPORTSSQLGETDATA— Returns 1 if the database supports the SQLGETDATA function, other- 
wise returns 0. 


(2 DBMSNAME— Returns the database name and version. 


stem_name— If provided, the information is returned in variables that use this name as their stem. If the 
information is not provided, this returns a data string. 


Example 


Get the database version information: 


if SQLGetinfo(, 'DBMSVERSION','desc.') <> 0 
then call sqlerr ‘Error getting db version' 
else say 'The database Version is: ' desc.1 


SQLLOADFUNCS 


SQLLOADFUNCS ( ) 


Loads all external Rexx/SQL functions. Call this function after loading it with RXFUNCADD. 
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Example 


Here is a typical code sequence to load and execute the SQLLOADFUNCS function to access the entire 
Rexx/SQL function library. Be sure that the operating system can locate the external functions by setting 
the proper environmental variable first: 


if RxFuncAdd('SQLLoadFuncs', 'rexxsql', 'SQLLoadFuncs') <> 0 then 
say 'rxfuncadd failed, rc: ' re 


if SQLLoadFuncs() <> 0 then 
say 'sqlloadfuncs failed, re: ' re 


SQLOPEN 


SQLOPEN( statement_name [,bind1[,bind2[,...[,bindN]]]] ) 


Opens and instantiates a cursor for SELECT processing. The statement must have previously been pre- 
pared by a SOLPREPARE statement. 


statement_name— The statement identifier. 


bind1. ..bindN— Bind variables. Notation is database-dependent. 


Example 


See the entry under “SQLFETCH” for a complete SELECT cursor-processing example. 


if SQLOpen(s1) <> 0 then call sqlerr 'During open' 


SQLPREPARE 


SQLPREPARE( statement_name, sql_statement ) 


Allocates a work area for a SQL DDL or DML statement and prepares it for processing. A SELECT state- 
ment will subsequently be executed by cursor processing (SQLOPEN, SQLFETCH, and SQLCLOSE). All 
other statements are executed by a subsequent SQLEXECUTE. 


statement_name— The SQL statement identifier. 


sql_statement — The SQL statement to prepare. Bind variable notation is database-dependent. 


Example 


See the entry under “SQLFETCH” for a complete SELECT cursor-processing example. 


sqlistr = 'select * from phonedir order by lname' 
if SQLPrepare(sl,sqlstr) <> 0 then call sqlerr ‘During prepare' 
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SQLROLLBACK 


SQLROLLBACK () 


Discards and does not apply (rolls back) any pending database updates. 


Example 


if SQLRollback() <> 0 then call sqlerr 'On rollback' 


SQLVARIABLE 


SQLVARIABLE( variable_name [,variable_value] ) 
Either returns or sets the specified variable. If variable_value is not present, returns the value of 
variable_name. If variable_value is present, sets variable_name to that value. Can be used to set 
various aspects of database behavior. 
variable_name— The variable to be set or retrieved. May be implementation-dependent. 
variable_value—If coded, the value to set the variable to. 


Allowable variable_name codings are: 


Q 


VERSION (a read-only value) — The version of Rexx/SQL with: 
O Package name 

Q = Rexx/SQL version 

O Rexx/SQL date 

Q OS platform 

QO) 


Database 


0 
is) 


EBUG — debugging level: 
0—No debugging info (default) 
1— Rexx variables are displayed when set 


2— Displays function entry/exit info 


CO coco o 


The debugging feature traces internal Rexx/SQL functions and is only useful for 
Rexx/SQL developers. 


Q ROWLIMIT — Limits the number of rows fetched by SELECTs run via SQLCOMMAND. The default, 
0, means no limit. 


Qo = LONGLIMIT— Maximum number of bytes retrievable via SELECT. Default is 32,786. 


QQ = SAVESQL—If 1, the variable sqica.sqltext contains the text of last SQL statement. Defaults to 1. 
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Ql AuUTOCOMMIT— Sets database auto-commit ON or OFF (1 is ON, 0 is OFF). Results depend on 
how the database auto-commit feature works. 
(1 IGNORETRUNCATE— Dictates what action occurs when a column value gets truncated. Default 
(OFF) results in function failure and error message. ON truncates data with no error. 
Q) NULLSTRINGOUT— Returns a user-specified string instead of the null string for a NULL column 
value. 
Ql NULLSTRINGIN— Enables a user-specified string to represent null columns. Defaults to the null 
string. 
C1 SUPPORTSPLACEMARKERS (a read-only value) — Returns 1 if the database supports bind place- 
holders, 0 otherwise. 
C1 STANDARDPLACEMARKERS — if 1, enables use of the question mark (?) as the placeholder for 
databases that support placeholders other than the question mark (?). 
C1 SUPPORTSDMLROWCOUNT (a read-only value) — Returns 1 if the database returns the number of 
rows affected by INSERT, UPDATE, and DELETE statements, 0 otherwise. 
Example 
if SQLVariable('AUTOCOMMIT') = 1 
then say 'Autocommit is ON' 
else say 'Autocommit is OFF' 
if SQLVariable('SUPPORTSPLACEMARKERS') = 1 
then say 'Database supports bind placeholders' 
else say 'Database does not support bind placeholders' 
if SQLVariable('SUPPORTSDMLROWCOUNT') = 1 
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then say 'Database supports SQL Row Counts' 
else say 'Database does not support SQL Row Counts' 


ates 


Rexx/Tk Functions 


The following table lists the standard Rexx/Tk functions. The table is reproduced from the 
Rexx/Tk documentation at http: //rexxtk.sourceforge.net/functions.html. For further 
details, please see the Rexx/Tk home page at: http: //rexxtk.sourceforge.net/index.html. 


Rexx/Tk Function 


TkActivate(pathName, index) 


TkAdd(pathName, type [,options...]) 
TkAfter(time | ‘cancel’, ‘command’ | id) 


TkBbox(pathName [,arg...]) 


TkBind(tag [,sequence [,[+ | *]command]]] ) 
TkButton(pathName L,options...]) 
TkCanvas(pathName L,options...] ) 
TkCanvasAddtag(pathName, tag [,searchSpec [,arg] ) 
TkCanvasArc(pathName, x1, y1, x2, y2 [,options...] ) 
TkCanvasBind(pathName, tagOrld [,sequence [,[+ | *]command]] ) 
TkCanvasBitmap(pathName, x, y Loptions...] ) 
TkCanvasCanvasx(pathName, screenx [,gridspacing] ) 
TkCanvasCanvasy(pathName, screeny [,gridspacing] ) 
TkCanvasCoords(pathName, tagOrld [,x0, y0, ...] ) 
TkCanvasDchars(pathName, tagOrld, first [last] ) 
TkCanvasDtag(pathName, tagOrld [,deleteTagOrld] ) 


Tcl/Tk Command 


activate command in 
various widgets 


menu add 
after 


bbox command in 
various widgets 


bind 

button 

canvas 

canvas addtag 
canvas create arc 
canvas bind 
canvas create bitmap 
canvas canvasx 
canvas canvasy 
canvas coords 
canvas dchars 


canvas dtag 


Table continued on following page 
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TkCanvasDelete(pathName [,tagOrld [,tagOrld...]] ) 
TkCanvasFind(pathName, searchCommand [,arg...] ) 
TkCanvasFocus(pathName [,tagOrId] ) 
TkCanvasImage(pathName, x, y [L,option...] ) 
TkCanvasLine(pathName, x1, y1, x2, y2 [xn, yn Loptions...]] ) 
TkCanvasOval(pathName, x1, y1, x2, y2 [,options...]] ) 
TkCanvasPolygon(pathName, x1, y1, x2, y2 [xn, yn Loptions...]] ) 
TkCanvasPosctscript(pathName [options...] ) 
TkCanvasRectangle(pathName, x1, y1, x2, y2 Loptions...]] ) 
TkCanvasText(pathName, x, y Loptions...]] ) 
TkCanvasType(pathName, tagOrld ) 
TkCanvasWindow(pathName, x, y Loptions...]] ) 
TkCget(pathName [,arg...] ) 


TkCheckButton(pathName [,arg...] ) 
TkChooseColor(option [,options...]) 
TkChooseDirectory(option [,options...]) 
TkConfig(pathName [,options...]) 


TkCurSelection(pathName [,arg...] ) 
TkDelete(pathName, start, end) 


TkDestroy(pathName) 
TkEntry(pathName [,options...]) 
TkError() 


TkEvent(arg [,arg] Loptions...]) 

TkFocus(pathName L,arg...]) 

TkFontActual(font [,’-displayof’, window], arg [,arg...]) 
TkFontConfig(font [,options...]) 

TkFontCreate(font [,options...]) 

TkFontDelete(font [,font...]) 


Tcl/Tk Command 


canvas delete 

canvas find 

canvas focus 

canvas create image 
canvas create line 
canvas create oval 
canvas create polygon 
canvas postscript 
canvas create rectangle 
canvas create text 
canvas type 

canvas create window 


cget command in various 
widgets 


checkbutton 
tk_chooseColor 
tk_chooseDirectory 


configure command in 
most all widgets 


curselection command in 
various widgets 


delete command in various 
widgets 


destroy 
entry 


new command — return 
Rexx/Tk error details 


event 

focus 

font actual 
font configure 
font create 


font delete 


Rexx/Tk Function 


TkFontFamilies([’-displayof’, window]) 
TkFontMeasure(font [,’-displayof’, window], text) 
TkFontMetrics(font [,’-displayof’, window], arg [,arg...]) 
TkFontNames() 

TkFrame(pathName [,options...]) 

TkGet(pathName) 


TkGetOpenFile(option [,options...]) 
TkGetSaveFile(option [,options...]) 

TkGrab(type, pathName) 

TkGrid(pathName [,pathName...] [,options...]) 
TkGridBbox(pathName Lx, y Lx1, y1]]) 
TkGridColumnConfig(pathName, index [,options...]) 
TkGridConfig(pathName [,pathName...] [options...]) 
TkGridForget(pathName [,pathName...]) 
TkGridInfo(pathName) 

TkGridLocation(pathName, x, y) 
TkGridPropagate(pathName [,boolean]) 
TkGridRowConfig(pathName, index [,options...]) 
TkGridRemove(pathName [,pathName...]) 
TkGridSize(pathName) 

TkGridSlaves(pathName [,options...]) 
TkImageBitmap(pathName [,options...] ) 
TkImagePhoto(pathName [,options...] ) 
TkIndex(pathName arg) 


TkInsert(pathName [,arg...]) 
TkItemConfig(pathName, tagOrld | index [,options...] ) 


TkLabel(pathName [,options...]) 
TkListbox(pathName L,options...]) 


Rexx/Tk Functions 


Tcl/Tk Command 


font families 
font measure 
font metrics 
font names 
frame 


get command in various 
widgets 


tk_getOpenFile 
tk_getSaveFile 

grab 

grid configure 

grid bbox 

grid columnconfigure 
grid configure 

grid forget 

grid info 

grid location 

grid propagate 

grid rowconfigure 
grid remove 

grid size 

grid slaves 

image create bit map 
image create photo 


index command in various 
widgets 


insert command in various 
widgets 


itemconfig command in 
various widgets 


label 
listbox 


Table continued on following page 
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Rexx/Tk Function 


TkLower(pathName [,belowThis]) 
TkMenu(pathName [,options...]) 
TkMenuEntryCget(pathName, index, option) 
TkMenuEntryConfig(pathName, index [,options...]) 
TkMenulInvoke(pathName, index) 
TkMenuPost(pathName L,arg...]) 
TkMenuPostCascade(pathName, index) 
TkMenuType(pathName, index) 
TkMenuUnPost(pathName [,arg...]) 
TkMenuYPosition(pathName, index) 


TkMessageBox(message,title,type,icon,default,parent) 


TkNearest(pathName, xOry) 


TkPack(option [,arg, ...]) 
TkPopup(arg Larg...] ) 
TkRadioButton(pathName [,arg...] ) 
TkRaise(pathName [,aboveThis]) 
TkScale(pathName [,options...]) 
TkScan(pathName L,args...]) 


TkScrollbar(pathName [,options...]) 
TkSee(pathName, index ) 
TkSelection(pathName [,args...]) 


TkSet(pathName, value) 


TkSetFileType(type, extension[s...]) 


TkTcl(arg L,arg...]) 
TkText(pathName L,options...]) 


Tcl/Tk Command 


lower 

menu 

menu entrycget 
menu entryconfigure 
menu invoke 
menu post 

menu postcascade 
menu type 

menu unpost 
menu yposition 
tk_messageBox 


nearest command in various 
widgets 


pack 
tk_popup 
radiobutton 
raise 

scale 


scan command in various 
widgets 


scrollbar 
see command in various widgets 


selection command in various 
widgets 

set command in various 
widgets 


sets the rtFiletypes Tk variable 
for use in both TkGetSaveFile() 
and TkGetOpenFile() as 

the -filetypes option 


any tcl command 


text 


Rexx/Tk Function 


TkTextTagBind(pathName, tagName [,sequence [,[+ | *]Jcommand]]) 
TkTextTagConfig(pathName, tagName [,option...]) 
TkTopLevel(pathName) 

TkVar(varName [,value]) 


TkVariable(varName [,value]) 


TkWait() 


TkWinfo(command [,arg...]) 
TkWm(option, window L,arg...]) 
TkXView(pathName L[,arg...]) 


TkYView(pathName [,arg...]) 


TkLoadFuncs() 
TkDropFuncs() 


The Rexx/Tk library is distributed under the LGPL. 


Rexx/Tk Functions 


Tcl/Tk Command 


text tag bind 
text tag configure 
toplevel 


Tcl set command — set and 
retrieve Tk variables 


new command — 
set/query internal variables 


new command — returns 
the Rexx “command” from 
widgets when 

pressed /used 


winfo 
wm 


xview command of various 
widgets 


yview command of various 
widgets 


N/A 
N/A 


Rexx/Tk Extensions 


Rexx/Tk is supplied with a number of extension packages. These extensions enable access to additional 
Tk widgets written in Tcl and are dynamically loaded by Tcl programmers as required. These widgets 
are included in the base Rexx/Tk package. They are listed in the following tables. 


The tables that follow are reproduced from the Rexx/Tk documentation at http: //rexxtk. 
sourceforge.net/extensions.html. For further details, please see the Rexx/Tk home page at 
http: //rexxtk.sourceforge.net/index.html. 


Rexx/Tk Tree Function Tree widget command 
TkTree(pathName [,options...]) Tree:create 
TkTreeAddNode(pathName, name [,options...]) Tree:newitem 
TkTreeClose(pathName, name) Tree:close 
TkTreeDNode(pathName, name) Tree:delitem 


Table continued on following page 
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Rexx/Tk Tree Function 


TkTreeGetSelection(pathName) 
TkTreeGetLabel(pathName, x, y) 
TkTreeNodeConfig(pathName, name [,options...]) 
TkTreeOpen(pathName, name) 
TkTreeSetSelection(pathName, label) 


Tree widget command 


Tree:getselection 
Tree:labelat 
Tree:nodeconfig 
Tree:open 


Tree:setselection 


Items marked with * are base Rexx/Tk functions that can be used with Rexx/Tk extensions. 


Rexx/Tk Combobox Function 


TkCombobox(pathname [,options...]) 


*TkBbox(pathName, index) 


TkComboboxICursor(pathName, index) 
TkComboboxListDelete(pathName, first [,last]) 
TkComboboxListGet(pathName, first [,last]) 
TkComboboxListIndex(pathName, index) 
TkComboboxListInsert(pathName, index [,args...]) 
TkComboboxListSize(pathName) 
TkComboboxSelect(pathName, index) 
TkComboboxSubwidget(pathName [name]) 
*TkConfig(pathName [,options...]) 
*TkCurselection(pathName) 
*TkDelete(pathName, first [,last]) 


*TkGet(pathName) 


*TkIndex(pathName, index) 
*TkInsert(pathName, index, string) 
*TkScan(pathName [,args...]) 
*TkSelection(pathName L,args...]) 


combobox::combobox 
combobox bbox 
combobox icursor 
combobox list delete 
combobox list get 
combobox list index 
combobox list insert 
combobox list size 
combobox select 
combobox subwidget 
combobox configure 
combobox curselection 
combobox delete 
combobox get 
combobox index 
combobox insert 
combobox scan 


combobox selection 


Items marked with * are base Rexx/Tk functions that can be used with Rexx/Tk extensions. 


Rexx/Tk MCListbox Function 


TkMCListbox(pathname [,options...]) 
*TkActivate(pathName, index) 

*TkBbox(pathName [,arg...]) 

*TkCget(pathName [,arg...] ) 

*TkConfig(pathName [,options...]) 
*TkCurSelection(pathName [,arg...] ) 
*TkDelete(pathName, start, end) 

*TkGet(pathName) 

*TkIndex(pathName arg) 

*TkInsert(pathName [,arg...]) 
TkMCListboxColumnAdd(pathName, name [,options...]) 
TkMCListboxColumnCget(pathName, name ,option) 
TkMCListboxColumnConfig(pathName, name [,options...]) 
TkMCListboxColumnDelete(pathName, name) 
TkMCListboxColumnNames(pathName) 
TkMCListboxColumnNearest(pathName,x) 


TkMCListboxLabelBind(pathName,name,sequence, 
[* | +]command) 


*TkNearest(pathName, xOry) 
*TkScan(pathName [,args...]) 
*TkSee(pathName ???L,options...]) 
*TkSelection(pathName L,args...]) 
*TkXView(pathName L,arg...]) 
*TkYView(pathName [,arg...]) 


Rexx/Tk Functions 


MCListbox widget command 


mclistbox::mclistbox 
mclistbox activate 
mclistbox bbox 

mclistbox cget 

mclistbox configure 
mclistbox curselection 
mclistbox delete 
mclistbox get 

mclistbox index 
mclistbox insert 
mclistbox column add 
mclistbox column cget 
mclistbox column configure 
mclistbox column delete 
mclistbox column names 
mclistbox column nearest 


mclistbox label bind 


mclistbox nearest 
mclistbox scan 
mclistbox see 
mclistbox selection 
mclistbox xview 


mclistbox yview 


Items marked with * are base Rexx/Tk functions that can be used with Rexx/Tk extensions. 


The Rexx/Tk Library Extensions are distributed under the LGPL. 
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Tools, Interfaces, 


and Packages 


As a universal scripting language with worldwide use, Rexx has spawned a large collection of 
open source and free tools. There are literally too many Rexx tools, utilities, extensions, and 
interfaces to track them all. This partial list shows some of the available tools and hints at their 


breadth. 


All tools listed here are either open source or free software. Most reside either at SourceForge at 
www. SourceForge.net or GitHub at www.GitHub.com. Access www.RexxInfo.org fora 
complete, up-to-date list of tools with links to download them all for free. 


Package or Product 


Administration Tool 


Associative Arrays 4 Rexx 


Bean Scripting Framework 


cgi-lib.rxx 
(also known as CGI / Rexx) 


Uses 


A “programmer’s GUI” and administration 
aid designed to assist in the development and 
debugging of Rexx scripts. 


Routines that manipulate associative arrays. 


Allows Java programs to call Rexx scripts, and 
for Rexx scripts to create and manipulate Java 
objects. 


A library of Common Gateway Interface, or 
CGI, functions from Stanford Linear Accelera- 
tor Center (SLAC). These functions make it 
easy to retrieve and decode input, send out- 
put back to the client, and report the results of 
diagnostics and errors. 
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Package or Product 


CUR for Rexx 
FileRexx Function Library 


FileUt 
GTK+ 
Hack 


HtmlGadgets 
HtmlStrings 
HtmlToolBar 


Internet/ REXX HHNS Workbench 


MacroEd 
MIDII/O Function Library 


MIDI Rexx Function Library 


Mod_Rexx 


ObjectCUR for Object REXX 


ODBC Drivers 


Regular Expressions 
REXREF3 

Rexx 2 Exe 

Rexx Dialog 

Rexx Math Bumper Pack 
Rexx/CURL 


Rexx/Curses 


Rexx/DW 


Uses 


A version of “ObjectCUR for Object REXX” for clas- 
sic Rexx. 


Functions with new file I/O commands specific to 
Windows. 


Scripting interface for standard I/O. 
Modal dialog manager for Object REXX. 


Hexadecimal editor for Windows with Rexx script 
capabilities. 


Generates code snippets to support HTML coding. 
Generates HTML code. 
Generates code snippets for HTML gadgets. 


A Common Gateway Interface external function 
library from Henri Henault & Sons, France. 


Manages RexxEd macros. 
Enables input/output to MIDI ports. 
Read, write, play and record MIDI files. 


Applies Rexx to Apache Web page development. 
Controls all Apache features through Rexx scripts. 


A cross-platform class library that includes func- 
tions for system information, logging, file system 
control, FTP, Win32 calls, and text file support. 


Open Database Connectivity (ODBC) drivers for 
Microsoft Access databases, dBASE files, or Excel 
files. 


Regular expressions for Rexx scripts. 

Produces Rexx script cross-reference listings. 
Converts scripts into a self-running * . exe files. 
Creates GUI interfaces for Windows. 

Math libraries. 


Interface to the CURL package for access to 
URL-addressable resources. 


Interface to the curses library for portable character- 
based user interfaces. 


Provides a cross-platform GUI toolset, based on the 
Dynamic Windows package. 


Package or Product 


Rexx/gd 
Rexx/ISAM 
Rexx/SQL 
Rexx/Tk 


Rexx/ Trans 


Rexx/Wrapper 


Rexx2Nrx 
RexxED 
RexxMail 
RexxRE 


RexxTags 


RexxUtil 


RegUtil 


RexxXML 
RxAcc 


RxBlowFish 
RxCalibur 


RxComm Serial Add-on 


RXDDE 
RxDIgIDE 


rxJava 


Tools, Interfaces, and Packages 


Uses 


Create and manipulate graphics images using the 
gd library. 


Interface to Indexed Sequential Access Method 
(ISAM) files. 


Interface to all major open-source and commercial 
SQL databases. 


The Tk GUI interface toolkit for cross-platform GUIs 
for Rexx scripts. 


Translates Rexx API calls from an external function 
package into API calls specific to a particular Rexx 
interpreter. 


“Wraps” Rexx scripts into a closed-source, stand- 
alone executables. 


Classic Rexx to NetRexx converter. 

A Rexx-aware editor. 

Email client that uses only WPS and Rexx scripts. 
Regular expression library for Rexx scripts. 


Rexx Server Pages (RSP) compiler for prototyping 
XML tags in Rexx; an easy way to write XML tags in 
Rexx. 


IBM’s function library for interaction with the 
environment. 


Another implementation of RexxUtil (the Windows 
version of RexxUtil). 


Provides support for XML and HTML files. 


Generates code snippets through a keyboard 
accelerator. 


Callable DLL implements Blowfish encryption. 


Creates a library of code snippets; aids in reusing 
this code. 


Control/access serial ports from Rexx scripts. 
DDE client functions for Rexx under Windows. 


An Interactive Development Environment (IDE) 
designed to work with Rexx Dialog under Windows. 


Rexx functions for Java. 
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Package or Product 


RxProject 
RxRSync 


RxSock 
RxWav 


Script Launcher 


Speech Function Library 
THE 


W532 Funcs 


Wegina 


Uses 


A Rexx script preprocessor that aids in managing 
scripting projects. 


Callable DLL implements Rsync compession/ 
differencing. 


Interface for TCP/IP sockets. 
Create and manipulate audio files. 


GUI panel for launching Rexx scripts under 
Windows. 


Pronounces synthesized voice. 


The Hessling Editor, a cross-platform, Rexx-aware 
text editor. 


Functions for Windows Registry access. 


Windows front end for the Regina interpreter. 


Open Object Rexx Classes 


These tables list the classes of Open Object Rexx. They are from the section The Builtin Classes in the 
manual Open Object Rexx Reference. 


Fundamental 
Classes 
; The Object class is the root of the class hierarchy. The instance methods of the Object class are, 
Object Class : : 
therefore, available on all objects. 
The Class class is like a factory that produces the factories that produce objects. It is a subclass of 
Class Class the Object class (). The instance methods of the Class class are also the class methods of all 
classes. 
; String objects represent character-string data values. A character string value can have any 
String Class ; 
length and contain any characters. 
The Method class creates method objects from Rexx source code. It is a subclass of the Object 
Method Class 


class (). 


The Routine class creates routine objects from Rexx source code. It is a subclass of the Object 


Routine Class 
class (). 


The Package class contains the source code for a package of Rexx code. A package instance holds 
all of the routines, classes, and methods created from a source code unit and also manages 
external dependencies referenced by ::REQUIRES directives. The files loaded by ::REQUIRES are 
also contained in Package class instances. It is a subclass of the Object class (). 


Package Class 


A message object provides for the deferred or asynchronous sending of a message. You can 
Message Class |create a message object by using the new method of the Message class or the start () method of 
the Object class (). 
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Stream Classes 


InputStream Class 


This class is defined as an abstract mixin class. It must be implemented by subclassing it or 
inheriting from it as a mixin. Many of the methods in this class are abstract and must be 
overridden or they will throw a syntax error when invoked. 


OutputStream Class 


This class is defined as an abstract mixin class. It must be implemented by subclassing it or 
inheriting from it as a mixin. Many of the methods in this class are abstract and must be 
overridden or they will throw a syntax error when invoked. 


InputOutputStream Class 


This class is defined as an abstract mixin class. It must be implemented by subclassing it or 
inheriting from it as a mixin. Many of the methods in this class are abstract and must be 
overridden or they will throw a syntax error when invoked. 


Stream Class 


A stream object allows external communication from Rexx. (See a discussion of ooRexx 


input and output.) 


Collection Classes 


Collection Class 


The Collection class is a mixin class that defines the basic set of methods implemented by all 
Collections. Many of the Collection class methods are abstract and must be implemented the 
inheriting subclasses. 


MapCollection Class 


The MapCollection class is a mixin class that defines the basic set of methods implemented by 
all collections that use create a mapping from an index object to a value. 


OrderedCollection Class 


The OrderedCollection class is a mixin class that defines the basic set of methods implemented 
by all collections that have an inherent index ordering, such as an array or a list. 


SetCollection Class 


This is a tagging mixin class only and does not define any methods of its own. Collections that 
implement SetCollection are MapCollections that constrain the index and item to be be the 
same object. 


An array is a possibly sparse collection with indexes that are positive whole numbers. You can 


Array Class reference array items by using one or more indexes. The number of indexes is the same as the 
number of dimensions of the array. This number is called the dimensionality of the array. 
A bag is a non-sparse collection that restricts the elements to having an item that is the same as 
Bag Class the index. Any object can be placed in a bag, and the same object can be placed in a bag several 


times. 


CircularQueue Class 


The CircularQueue class allows for storing objects in a circular queue of a predefined size. Once 
the end of the queue has been reached, new item objects are inserted from the beginning, 
replacing earlier entries. Any object can be placed in the queue and the same object can occupy 
more than one position in the queue. 


A Directory is a MapCollection using unique character string indexes. The items of the 


Directory Class : . : 
y collection can be any valid Rexx object. 
A list is a non-sparse sequenced collection similar to the Array class () to which you can add 
new items at any position in the sequence. The List creates a new index value whenever an item 
List Class is added to the list and the associated index value remains valid for that item regardless of 


other additions or removals. Only indexes the list object generates are valid i.e. the list is never 
a sparse list and the list object will not modify indexes for items in the list. 
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Open Object Rexx Classes 


Presets. A properties object is a collection with unique indexes that are character strings representing names 
se and items that are also restricted to character string values. Properties objects are useful for 
processing bundles of application option values. 
A queue is a non-sparse sequenced collection with whole-number indexes. The indexes specify the 
Queue Class /position of an item relative to the head (first item) of the queue. Adding/removing an item changes 
the association of an index to its queue item. You can add items at either the tail or head of the queue. 
. A relation is a collection with indexes that can be any object. In a relation, each item is associated 
Relation : . i ; ‘ ; ; ‘ 
Class with a single index, but there can be more than one item with the same index (unlike a table, which 
a 
can contain only one item for any index). 
A Set is a collection containing member items where the index is the same as the item (similar to a 
Set Class Bag collection). Any object can be placed in a set. There can be only one occurrence of any object in a 
set (unlike a Bag collection). Item equality is determined by using the == method. 
Stem Class |A stem object is a collection with unique indexes that are character strings. 
A table is a collection with indexes that can be any object. In a table, each item is associated with a 
Table Class _|single index, and there can be only one item for each index (unlike a relation, which can contain more 
than one item with the same index). Index equality is determined by using the == method. 
An identity table is a collection with indexes that can be any object. In an identity table, each item is 
Identity associated with a single index, and there can be only one item for each index. Index and item matches 
Table Class jin an identity table are made using an object identity comparison. That is, an index will only match if 
the same instance is used in the collection. 
Utility Classes 
A DateTime object represents a point in between 1 January 0001 at 00:00.000000 and 31 
DateTime Class December 9999 at 23:59:59.999999. A DateTime object has methods to allow formatting a 
date or time in various formats, as well as allowing arithmetic operations between dates. 
Al Ci! An alarm object provides timing & notification capability by supplying a facility to send 
arm Cla : 
any message to any object at a given time. Alarms are cancellable before messaging. 
A TimeSpan object represents a point in between 1 January 0001 at 00:00.000000 and 31 
TimeSpan Class December 9999 at 23:59:59.999999. A TimeSpan object has methods to allow formatting a 
date or time in various formats, as well as allowing arithmetic operations between dates. 
Comparable Class This class is defined as a mixin class. 
The Orderable class can be inherited by classes which wish to provide each of the 
Orderable Class comparison operator methods without needing to implement each of the individual 


methods. The inheriting class need only implement the Comparable compareTo() method 
(). This class is defined as a mixin class. 


Comparator Class 


The Comparator class is the base class for implementing Comparator objects that can be 
used with the Array sortWith() () or stableSortWith() method (). The compare() method 
implements some form of comparison that determines the relative ordering of two objects. 
Many Comparator implementations are specific to particular object types. 


CaselessComparator 


Class 


The CaselessComparator class performs caseless orderings of String objects. 


ColumnComparator |The ColumnComparator class performs orderings based on specific substrings of String 


Class 


objects. 
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CaselessColumn- 
Comparator Class 


The CaselessColumnComparator class performs caseless orderings of specific substrings of 
String objects. 


DescendingComparator |The DescendingComparator class performs sort orderings in descending order. This is the 
Class inverse of a Comparator () sort order. 

CaselessDescending- |The CaselessDescendingComparator class performs caseless string sort orderings in 
Comparator Class descending order. This is the inverse of a CaselessComparator () sort order. 
InvertingComparator |The InvertingComparator class inverts the comparison results of another Comparator 
Class object to reverse the resulting sort order. 


Monitor Class 


The Monitor class acts as a proxy for other objects. Messages sent to the Monitor object are 
forwarded to a different target object. The message target can be changed dynamically. 


The MutableBuffer class is a buffer on which certain string operations such as concatenation 
can be performed very efficiently. Unlike String objects, MutableBuffers can be altered 


MutableBuffer Class | without requiring a new object allocation. A MutableBuffer object can provide better 
performance for algorithms that involve frequent concatenations to build up longer string 
objects because it creates fewer intermediate objects. 

RegularExpression This class provides support for regular expressions. A regular expression is a pattern you 

Class can use to match strings. 


RexxQueue Class 


The RexxQueue class provides object-style access to Rexx external data queues. 


Supplier Class 


You can use a supplier object to iterate over items of a collection. Supplier objects are 
created from a snapshot of a collection. The iteration results are not affected by later 
changes to the source collection object. 


StreamSupplier Class 


A subclass of the Supplier class () that will provided stream lines using supplier semantics. 
This allows the programmer to iterate over the remaining lines in a stream. A 
StreamSupplier object provides a snapshot of the stream at the point in time it is created, 
including the current line read position. In general, the iteration is not effected by later 
changes to the read and write positioning of the stream. However, forces external to the 
iteration may change the content of the remaining lines as the iteration progresses. 


RexxContext Class 


Gives access to context information about the currently executing Rexx code. Instances of 
the RexxContext class can only be obtained via the .CONTEXT environment symbol. They 
cannot be directly created by the user. It is a subclass of the Object class (). 


WeakReference Class 


A WeakReference instance maintains a non-pinning reference to another object. A non- 
pinning reference does not prevent an object from getting garbage collected or having its 
uninit method run when there are no longer normal references maintained to the object. 
Once the referenced object is eligible for garbage collection, the reference inside the 
WeakReference instance will be cleared and the VALUE method will return .nil on all 
subsequent calls. WeakReferences are useful for maintaining caches of objects without 
preventing the objects from being reclaimed by the garbage collector when needed. 


Pointer Class 


A Pointer instance is a wrapper around a native pointer value. This class is designed for 
writing methods and functions in native code and can only be created using the native code 
application programming interfaces. This class new method will raise an error if invoked. 


A Buffer instance is a Rexx interpreter managed block of storage. This class is designed 


Buffer Class primarily for writing methods and functions in native code and can only be created using 
the native code APIs. The Buffer class new method will raise an error if invoked. 
File Class The File class provides services which are common to all the filesystems supported by 


ooRexx. A File object represents a path to a file or directory. Path is relative or absolute. 
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Mod Rexx: Functions and 
Special Variables 


This appendix lists the Mod_Rexx functions and special variables. Mod_Rexx is the package that 
permits Rexx scripts to control all aspects of the popular open source Apache Web server product. 
Chapter 17 describes Mod_Rexx and demonstrates how to script it. See that chapter for a full 
product description and sample program. 


General Functions 


These functions provide a base level of services necessary to work with the Apache Web server. 
They manage cookies and the error log, retrieve environmental information, and handle URLs. 


General Function Use 

WWWAddCookie Set a new cookie for the browser 
WWWConstruct_URL Return a URL for the specified path 
WWWEscape_Path Convert a path name to an escaped URL 
WWWGetArgs Get the GET/ POST arguments 
WWWGetCookies Get the GET/POST cookies 
WWWGetVersion Get the Mod_Rexx version 
WWWHITTP_time Get the current RFC 822/1123 time 
WWWinternal_Redirect Create a new request from the specified URI 
WWWLogError Log an error message to Apache log file 
WWWLogInfo Log an informational message to Apache log file 


Table continued on following page 


Appendix J 


General Function Use 

WWWLogWarning Log a warning message to Apache log file 
WWWRun_Sub_Req Run an Apache subrequest 
WWWSendHTTPHeader Set the MIME content, and send HTTP header 


WWWSetHeaderValue 
WWWSub_Req_Lookup_File 
WWWSub_Req_Lookup_URI 


Set a new value for a cookie. 
Run subrequest on a filename 


Run subrequest on a URI 


Apache Request Record Functions 


These functions provide information about and manage the request record pointer, information coming 
into the script from Apache and the Web. 


Apache Request Record Function Use 

WWWRegRecConnection Return connection record pointer 
WWWkRegRecNext Return next request record pointer 
WWWkRegRecPrev Return previous request record pointer 
WWWkRegRecMain Return main request record pointer 
WWrRegReclsMain Return 1 if this is the main request 
WWWRegRecThe_request Return the request 
WWWkRegRecProxyreq Return 1 if this is a proxy request 
WWWRegRecServer Return the server record pointer 
WWWRegRecHeader_only Always returns 0 
WWWRegkRecProtocol Return request HTTP protocol 
WWWkRegRecBytes_sent Return bytes sent field 
WWWkRegRecArgs Return args field 
WWWRegRecFinfo_stmode Return finfo stmode field 
WWWkRegRecUsern Return user’s login name 


WWWkRegRecAuth_type 


Return authentication type 
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Updatable Apache Request Record Functions 


These functions manage the request record pointer and allow updating values as well as retrieving them. 


Updateable Request Record Function 


WWWRegRecStatus_line 
WWWekEegRecStatus 
WWWRegRecMethod 
WWWRegRecMethod_number 
WWWRegRecAllowed 
WWWRegRecHeader_in 
WWWRegRecHeader_out 
WWWRegRecErr_header_out 


WWWkRegRecSubprocess_env 
WWWkRegRecNotes 
WWWRegRecContent_type 
WWWRegRecContent_encoding 
WWWRegRecHandler 
WWWRegRecContent_languages 
WWWkRegRecNo_cache 
WWWkRegRecUri 
WWWRegRecFilename 
WWWRegRecPath_info 


Use 


Return or set status line field 

Return or set status field 

Return or set method field 

Return or set method number field 

Return or set allowed field 

Return or set values in bytes headers in field 
Return or set values in bytes headers out field 


Return or set values in bytes error headers 
out field 


Return or set values in subprocess environment 
Return or set values in the notes 

Return or set content type field 

Return or set content encoding field 

Return or set handler field 

Return or set content languages field 

Return or set no_cache field 

Return or set URI field 

Return or set filename field 


Return or set path_info field 


Apache Server Record Functions 


These functions manage server-side concerns pertaining to Apache and its environment. 


Server Record Function 


WWWSrvRecServer_admin 
WWWs5SrvRecServer_hostname 
WWWsSrvRecPort 
WWWsSrvkRecls_ virtual 
WWWCnxRecAborted 


Use 


Return server admin email address 
Return server hostname 

Return server listening port 

Return non-zero for a virtual server 


Return non-zero for a virtual server 
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Special Variables 


Mod_Rexx uses a set of three dozen special variables to communicate information to Rexx scripts. The names 
of these variables all begin with the letters www. These special variables are set either before the script starts, 
or after the script executes a function call. Their purpose is to communicate information to the script either 
about the environment or the results of function calls. Here are the Mod_Rexx special variables: 


Special Variable 


WWWARGS.O 


WWWARGS.n.!NAME and 
WWWARGS.n.!VALUE 


WWWAUTH_TYPE 
WWWCONTENT_LENGTH 
WWWCONTENT_TYPE 
WWWCOOKIES.O 


WWWCOOKIES.n.!NAME and 
WWWCOOKIES.n.! VALUE 


WWWDEFAULT_TYPE 
WWWEILENAME 
WWWENAMETEMPLATE 


WWWGATEWAY_INTERFACE 
WWWHOSTNAME 
WWWHTTP_USER_ACCEPT 
WWWHITTP_USER_AGENT 
WWWIS_MAIN_REQUEST 
WWWPATH_INFO 
WWWPATH_TRANSLATED 
WWWPOST_STRING 


Use 


Number of arguments passed to the script for 
GET or PUT requests (set by invoking function 
WWWGetArgs) 


Argument list passed to the script, formatted 
as per GET or POST (set by invoking function 
WWWGetArgs) 


Authentication method 
Length of client data buffer 
Content type of data 


Number of cookies passed to the script (set by 
invoking function WWWGetCookies) 


List of name=value cookie pairs passed to 
the script (set by invoking function 
WWWGetCookies) 


Value of DefaultType directive or text/plain if 
not configured 


Fully qualified filename, translated from the 
server’s URI 


Temporary filename template that will be 
passed to Mod_Rexx 


Name and version of gateway interface 
Hostname in the URI 

List of acceptable MIME types 

Client browser type and version 

Always 1 

Script’s file name 

Script’s fully qualified path and file name 


Unparsed name/value pairs from browser if 
POST request (set by invoking function 
WWWGetArgs) 


Special Variable 


WWWQUERY_STRING 


WWWREMOTE_ADDR 
WWWREMOTE_HOST 
WWWREMOTE_IDENT 
WWWREMOTE_USER 
WWWREQUEST_METHOD 
WWWRSPCOMPILER 
WWWSCRIPT_NAME 


WWWSERVER_NAME 
WWWSERVER_ROOT 
WWWSERVER_PORT 
WWWSERVER_PROTOCOL 
WWWSERVER_SOFTWARE 


WWWUNPARSEDURI 
WWWURI 
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Use 


Unparsed QUERY_STRING portion of the URI 
for GETs 


Host’s TCP/IP address 
Host’s DNS name (if available) 


Remote user name 


Authenticated username 


Request method, either GET or POST 
REXX RSP compiler program name 


Fully qualified URI path and name of the 
script or RSP file 


Server host name 

Server’s root path 

Server’s port number 

Request HTTP protocol version 


Name and version of the WWW server 
software 


Unparsed portion of the request URI 
Full request URI 
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NetRexx: Quick Reference 


This appendix provides a quick summary of NetRexx. For full authoritative reference, see the book 
The NetRexx Language by Michael Cowlishaw (Prentice-Hall, 1997). Also refer to the manuals that 
download with the product: NetRexx Language Reference; NetRexx Programming Guide; The NetRexx 
Language: Specification; and the NetRexx Language Supplement. 


NetRexx Special Names 


Special Name Function 


ask Reads a line from the default input stream and returns it as a 
string of type Rexx (also called a NetRexx string) 


digits Returns the current setting of numeric digits asa NetRexx 
string 

form Returns the current setting of numeric formas a NetRexx 
string 

length Returns an array’s length (the number of elements) 

null Returns the null value (used in assignments and comparisons) 

source Returns a NetRexx string that identifies the source of the 
current class 

super Used to invoke a method or property overridden in the current 
class 

this Returns a reference to the current object 

trace Returns the current setting as a NetRexx string 


version Returns the NetRexx language version as a NetRexx string 
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Special Methods 


Special Method Use 
super Constructor of the superclass 
this Constructor of the current class 


Instruction Syntax 


This section lists the NetRexx instructions. Each consists of a coding template with allowable operands. 
Optionally coded operands are surrounded by brackets ([ ]). Operands in italicized boldface are to be 
replaced by an appropriate term or list. This is intended as a quick programmer’s reference. For greater 
detail, please see the NetRexx documentation cited in the introduction to this appendix. 


CLASS 


class name visibility ] [ modifier ] [ binary ] 
extends classname ] 

uses classname_list ] 

implements classname_list ] ; 


[ 
[ 
[ 
[ 


visibility is either private or public. 


modifier is either abstract, final, or interface. 


DO 


Glo) || lglgSil scene j| || pieerceelc iceiad || f 
instruction list 
[ catch [vare = ] exception ; instruction_list ] 
IE teslielilyy [[ pl) shaeespeteneia Jlisie | 

end [ name] ; 


EXIT 


exit [ expression ] ; 


IF 


if expression [;] 
jelaveial [pi]  siiakspereibieiesi(eya) 
i Giese [ipl] miisieiqneiesyor || 
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IMPORT 


import name j; 


ITERATE 


iterate [ name ] ; 


LEAVE 


een || meune || 8 


LOOP 


loop [ label name ] [ protect termp ] [ repetitor ] [ conditional 
Gnetruction list 
[ catch [vare = ] exception ; instruction_list ] 
| testinal [pl] shasicmibveienem jis | 


@iicl | mene || 
repetitor is one of: 
varc = expression_t [ to expression_t] [by expression_b] [ for expression_f ] 
varo over termo 
for expression_r 
forever 


conditional is either: while expression_w or until expression_u 


METHOD 


method name [( [ argument_list ] )] 
| wissen iiay [ modifier ] [ protect ] 
[ returns termr ] 
[ signals signal_list ] ; 
argument_list is a list of one or more assignments separated by commas 
visibility is one of: inheritable, private, or public 


modifier is one of: abstract, constant, final, native, or static 


signal_list is a list of one or more terms, separated by commas 


] 


1 
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NOP 


nop ; 


NUMERIC 


numeric digits [ expression_d | ; 
or 
numeric form [ form_setting ] 


form_setting is either scientific or engineering. 


OPTIONS 


options options_list 


PACKAGE 


package name 


PARSE 


parse term template 


template consists of non-numeric symbols separated by blanks or patterns. 


PROPERTIES 


properties [ visibility ] [ modifier ] 
visibility is one of: inheritable, private, or public. 


modifier is one of: constant, static, or volatile. 


RETURN 


return [ expression ] 


632 


NetRexx: Quick Reference 


SAY 


say [ expression] ; 


SELECT 


select [ llloSil meme || || ipeoitecie eeiame || 7 
when expression [;] then [;] instruction . 
[ otherwise [;] instruction_list ] 
| eiceln [[Welice = || epeetejojedein 7 sineiciabietesloin Jlicie || 
[| tiimeulihy lpi) sastemccnea jisicte || 


end [ name ] ; 


SIGNAL 


signal term ; 


TRACE 


trace trace_term ; 


trace_term is one of: all, methods, off, or results. 
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Retrieving System 
Information 


Table L-1 parse source system Strings 


This table lists some example system information strings returned by the instructions: 


parse source system 
say 'The system string is:' system 


Since this information is system-dependent and subject to change, readers should retrieve this 
information for their own environments. You can use the sample script on the next page. 


Interpreter Platform System Information String 
Regina Rexx Windows WIN64 or WIN32 
Regina Rexx Linux UNIX 

BRexx Linux UNIX 

Rexx/ime Unix UNIX 

Rexx/ime Linux UNIX 

ooRexx (Open Object Rexx) Linux LINUX 

ooRexx (Open Object Rexx) Windows WindowsNT 
Reginald Windows WIN64 or WIN32 
r4 Windows WIN64 or WIN32 
roo! Windows WIN64 or WIN32 
IBM REXX z/OS TSO/E TSO 

IBM REXX z/VM CMS CMS 

IBM REXX VSE/n VSE 


Appendix L 
Table L-2 Default Environment Strings 


This table lists the default command environments for the Rexx interpreters and platforms listed. Since this information 
is system-dependent and subject to change, verify the default command environment for your platform by running 
this Rexx statement: 


say 'The default command environment is:' address () 
Interpreter Platform Default Environment String 
Regina Rexx All platforms SYSTEM 
BRexx Windows and Linux SYSTEM 
Rexx/ime Unix UNIX 
Rexx/ime Linux UNIX 
ooRexx (Open Object Rexx) Windows CMD 
ooRexx (Open Object Rexx) Linux sh 
Reginald Windows SYSTEM 
r4 Windows system 
roo! Windows system 
IBM REXX z/OS TSO/E TSO 
IBM REXX z/VM CMS CMS 
IBM REXX VSE/n VSE 
IBM REXX z/OS CICS REXXCICS 


Here's a script you can run called rexx_info.rexx that executes the above statements and displays their outputs: 


/* REXX from "Rexx Programmer's Reference" ay 
/* This program displays the system and environmental information mf 
/* from the PARSE SOURCE, PARSE VERSION, and ADDRESS() instructions. yf 


Shy VINOK INO exxscuicecl wwis” Cleice() " eies” scale () 


parse version language level date month year 
say 'PARSE VERSION output is:' language level date month year 


parse source system how_invoked script filename 
say 'PARSE SOURCE interpreter output is --' 


say ' The system is:' system 
say ' The script was invoked by:' how_invoked 
say ' Wine Gyewerjere walle ingime alee) si@icidjoie seal iksineias 


say 'The default command environment is:' address () 


Here's example output from this script: 


REXX_ INFO executed on: 1 Jul 2024 at: 09:16:19 
PARSE VERSION output is: REXX-Regina_3.9.6 5.00 29 Apr 2024 
PARSE SOURCE interpreter output is -- 
The system is: UNIX 
The script was invoked by: COMMAND 
The script file name is: /home/babs/Desktop/rexx_tests/rexx_info.rexx 
The default command environment is: SYSTEM 
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Chapter 1 


1. 


Rexx is a higher-level language in that each line of code accomplishes more than does code 
written in traditional languages like C++, Java, or Pascal. Rexx derives its power from the 
fact it is a glue language — a language that ties together existing components such as other 
programs, routines, filters, objects, and the like. The industry-wide trend towards 
scripting languages is based on the higher productivity these languages yield. 


Rexx is a free-format language. There are no requirements to code in particular columns or 
lines or in uppercase, lowercase, or mixed case. 


Expert programmers sometimes mistakenly think that they don’t need an easy-to-use 
language. Nothing could be farther from the truth. Expert programmers become wildly 
productive with easy-to-use languages. Their code lasts longer as well, because less 
skilled individuals can easily enhance and maintain it. 


The two free object-oriented Rexx interpreters are roo! from Kilowatt Software and Open 
Object Rexx from the Rexx Language Association (formerly known as IBM’s Object 
REXX). Both run standard or classic Rexx scripts without any alterations. 


One outstanding feature of Rexx is that it runs on all sizes of computer, from cell phones 
and handhelds running Android, to personal computers, to midrange machines and 
departmental servers, to mainframes. 


One of the two current Rexx standards was established by the book The Rexx Language, 
second edition, by Michael Cowlishaw, published in 1990. The other was promulgated 
by the American National Standards Institute, or ANSI, in 1996. There is little 
difference between these two standards. Chapter 13 lists the exact differences between 
these two similar standards. 


Appendix M 


7. Rexx bridges the traditional gap between ease of use and power through: simple syntax; free 
formatting; consistent, reliable behavior; a small instruction set surrounded by a large set 
of functions; few language rules; support for modularity and structured programming; and 
standardization. 


Chapter 2 


1. Comments are encoded between the starting identifier /* and the ending identifier */. They 
may span as many lines as you like. They may also appear as trailing comments, comments writ- 
ten on the same lines as Rexx code. 


2. Rexx recognizes functions as keywords immediately followed by a left parenthesis: function 
_name() or function_name (parameter). The call instruction can also be used to invoke 
functions. In this case, the function is encoded just like a call to a subroutine, and parentheses 
do not immediately follow the function name. Chapter 8 fully discusses how to invoke 
functions and subroutines. 


3. Variables do not have to be predefined or declared in Rexx. They are automatically defined 
the first time they are used or referred to. If a variable is equal to its name in uppercase, it is 
uninitialized. 

4. The basic instruction for screen output is say. The basic instruction for keyboard input is pull. 


Rexx also offers more sophisticated ways to perform input and output, described in subsequent 
chapters. 


5. | Comparisons determine if two values are equal (such as character strings or numbers). Strict 
comparisons only apply to character strings. They determine if two strings are identical 
(including any preceding and/or trailing blanks). The strings are not altered in any way prior to 
a strict comparison. For example, the shorter string is not blank-padded as in regular or 
“nonstrict” character string comparison. 


6. Define a numeric variable in the same way you define any other Rexx variable. The only 
difference is that a numeric variable contains a value recognized as a number (such as a string 
of digits, optionally preceded by a plus or minus sign and optionally containing a decimal 
place, or in exponential notation). 


Chapter 3 


1. Structured programming is recommended because it leads to more understandable code, and 
therefore higher productivity. The first table in the chapter lists the structured programming 
constructs and the Rexx instructions that implement them. Subroutines and functions support 
modularity, the key structured programming concept of breaking code up into discrete, 
smaller routines. 


2. Rexx matches an unmatched else with the nearest unmatched if. 


3. Test for the end of input by testing for the user’s entry of a null string or by inspecting input for 
some special character string denoting the end of file in the input (such as end or exit or x). 
Chapter 5 introduces functions that can test for the end of an input file, such as chars and 
lines. 
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4. 


Built-in functions are provided as part of the Rexx language. The code of internal routines resides 
in the same file as that of the calling routine; external routines reside in separate files. A Rexx 
function always returns a single value; a subroutine may optionally return a value. Chapter 8 
gives full details on how to pass information into and out of functions and subroutines. 


TRUE tests to 1. FALSE tests to 0. Standard Rexx does not accept “any nonzero value” for 
TRUE. (However, some specific Rexx interpreters will accept any nonzero value as TRUE). 


The danger of ado forever loop is that it will be an endless loop and never terminate. Avoid 
coding the do forever loop; use structured programming’s do-while loop instead. If you 
do codeado forever loop, be sure to code a manual exit of some sort. For example, the 
leave, signal, and exit instructions can end the otherwise endless loop. 


The signal instruction either causes an unconditional branch of control, or aids in processing 
special errors or conditions. signal differs from the GoTO of other languages in that it 
terminates all active control structures in which it is encoded. 


do while tests the condition at the top of the loop, while do until is a bottom-driven 
loop (it tests the condition at the bottom of the loop). Only the do while is structured. Its 
use is preferred. Any do until canbe recoded as do while. 


Chapter 4 


1. 


Any number of subscripts can be applied to array elements. An array may have any desired 
dimensionality. The only limit is typically that imposed by memory. Array elements do not 
have to been referenced by numbers; they may be referenced by arbitrary character strings also. 
This is known as an associative array. 


All elements in an array can be initialized to some value by a single assignment statement, but 
other operations cannot be applied to an entire array. For example, it is not possible to add 
some value to all numeric elements in an array in a single statement. Use a simple loop to 
accomplish this. A few Rexx interpreters do allow additional or extended array operations. The 
chapters on specific interpreters in Section II of this book cover this. 


Rexx does not automatically keep track of the number of elements in an array. To process all 
elements in an array, keep track of the number of elements in the array. Then process all array 
elements by a loop using the number of array elements as the loop control variable. 
Alternatively, initialize the entire array to some unused value (such as the null string or 0), prior 
to filling it with data elements. Then process the array elements using a loop until you 
encounter the default value. These two array processing techniques assume you use a numeric 
array subscript, and that contiguous array positions are all used. To process all elements in an 
array subscripted by character strings, one technique is to store the index strings in a list, then 
process that list against the array, one item at a time. 


Arrays form the basis of many data structures including lists, key-value pairs, and balanced and 
unbalanced trees. Create a list with a one-dimensional array (an array in which elements are ref- 
erenced by a single subscript). Create key-value pairs by matching subscripts with their 
corresponding values. Create tree structures by implementing an element hierarchy through the 
array. 
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Chapter 5 


1. 


The two types of input/output are line-oriented and character-oriented. Use the former to read and 
write lines of information, and the latter to read and write individual characters. Line-oriented 
I/O is typically more portable across operating systems. Character-oriented is useful in reading 
all bytes in the input stream, regardless of any special meaning they might have to the operating 
system. 


The stream function is used either to return information about a character stream or file, or 
to perform some action upon it. The stream function definition allows Rexx interpreters to 
offer many implementation-dependent file commands, and most do. Look the function up in 
your product documentation to learn what it offers for I/O and file manipulation. The statuses 
it returns are ERROR, NOTREADY, READY, and UNKNOWN. 


Encode the I/O functions immediately followed by parentheses — for example, feedback 
= linein(filein) — or througha call instruction (for example, call linein 
filein). Capture the return code as shown in the example for the first method, or through 
the result special variable for the call method. It is important to check the return code for 
I/O operations because this informs your program about the result of that I/O and whether or 
not it succeeded. 


Rexx does not require explicitly closing a file after using it. Program end automatically closes 
any open files. This is convenient for short scripts, but for longer or more complex scripts, explicitly 
closing files is a good programming practice. This prevents running out of memory (because each 
open file uses memory) and may also be necessary if a program needs to “reprocess” a file. The 
typical way to close a file is either to encode a lineout or charout function that writes no 
data, or to encode the stream function with a command parameter that closes the file. 


Rexx offers several options beyond standard I/O for sophisticated I/O needs. One option is 
to use a database package, such as one of those described in Chapter 15. Another option is to 
use Rexx interpreter I/O extensions (discussed in Chapters 20 through 30 on the specific Rexx 
interpreters). 


Chapter 6 
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1. 


String processing is the ability to process text. It is critically important because so many 
programming problems require this capability. Examples include report writing and the 
building and issuing of operating system commands. 


Concatenation can be performed implicitly, by encoding variables with a single space between 
them; by abuttal, which means coding variables together without an intervening blank; or 
explicitly, by using the string concatenation operator: ||. 


The three methods of template parsing are: by words, in which case each word is identified; by 
pattern, which scans for a specified character or pattern; and by numeric pattern, which processes 
by column position. 


The functions to use are: verify, datatype, pos, delstr, right and left, and strip. Given 
the flexibility of the string functions, you might choose other string functions and combine them 
in various ways to achieve these same operations. 


wordindex returns the character position of the nth word in a string, while wordpos returns 
the word position of the first word of a phrase within a string. 


Answers to “Test Your Understanding” Questions 


6. 


Hex characters each represent strings of four bits; character strings are composed of consecutive 
individual characters of variable length, where each character is internally made up of 8 bits; bit 
strings consist solely of Os and 1s. Rexx includes a full set of conversion functions, including: b2x, 
c2d, c2x, d2c, d2x, x2b, x2c, and x2d. 


Bit strings can be used for a wide variety of tasks. Examples mentioned in the chapter include 
bit map indexes, character folding, and key folding. 


Chapter 7 


1. 


222 


numeric digits determines how many significant digits are in a number. This affects 
accuracy in computation and output display. numeric fuzz determines the number of 
significant digits used in comparisons. You might set fuzz in order to affect just a single 
comparison, while keeping the numeric precision of a number unchanged. 


Scientific notation has one digit to the left of the decimal place, followed by fractional and 
exponential components. Engineering notation expresses the integer component by a number 
between 1 and 999. Rexx uses scientific notation by default. Change this by the numeric form 
instruction. 


There are several ways to right-justify a number; one of them is the format function. 


The datatype function allows you to check many data conditions, including whether a value 
is alphanumeric, a bit string, all lower- or uppercase, mixed case, a valid number or symbol, a 
whole number, or a hexadecimal number. 

valid 


-22 valid- the blanks are ignored 
: invalid- has a trailing period 


Dede d invalid- more than one decimal point 

222b2 invalid- contains an internal character 

2.34e+13 valid 

123.E -2 invalid- no blanks allowed in exponential portion 
123.2 E + 7 invalid- no blanks allowed in exponential portion 


Chapter 8 


1. 


Modularity is important because it underlies structured programming. Modularity reduces errors 
and enhances program maintenance. Rexx supports modularity through its full set of structured 
control constructs, plus internal and external subroutines and functions. 


A function always returns a single string through the return instruction. A subroutine may or 
may not return a value. Functions return their single value such that it is placed right into the 
statement where the function is coded, effectively replacing the function call. Get the value 
returned by a subroutine through the result special variable. Functions can be coded as 
embedded within a statement or invoked through the call instruction. Subroutines can only 
be invoked via the call instruction. 


Internal subroutines reside in the same file as the main routine or driver. External subroutines 
reside in separate files. procedure can be used to selectively protect or expose variables for 
an internal routine. External routines always have an implicit procedure so that all the 
caller’s variables are hidden. 
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4. — The function search order determines where Rexx searches for called functions. It is: internal 
function, built-in function, external function. If you code a function with the same name as a Rexx 
built-in function, Rexx uses your function. Override this behavior by coding the function name 
as uppercase within quotes. 


5. Information can be passed from a caller to a routine by several methods, including: passing 
arguments as input parameters, procedure expose, and using global variables. Updated 
variables can be passed back to the calling routine by the return instruction, changing expose'd 
variables, and changing global variables. 


6. Aprocedure instruction without an expose keyword hides all the caller’s variables. 
procedure expose allows updating the variables, whereas those read in through arg are 
read- only. 


7. In standard Rexx condition testing, expressions must resolve to either 1 or 0, otherwise an error 
occurs. Some Rexx interpreters are extended to accept any nonzero value as TRUE. 


Chapter 9 


1. The default setting for the trace facility is trace n (or Normal). trace r is recommended for 
general-purpose debugging. It traces clauses before they execute and the final results of 
expression evaluation. It also shows when values change by pull, arg, and parse instructions. 
trace 1 lists all labels program execution passes through and shows which internal routines 
are entered and run. trace i shows intermediate results. 


2. ‘The trace facility is the basic tool you would use to figure out any problems that occur while 
issuing operating system commands from within a script. The trace flags C, E, and F would 
be useful for tracing OS commands. 


3. To start interactive tracing, code the trace instruction with a question mark (?) preceding 
its argument. The ? is a toggle switch. If tracing is off, it turns it on; if tracing is on, it turns it 
off. The first trace instruction or function you execute with ? encoded turns tracing on. 
The next one that executes with the question mark will turn it off. 


4. When in interactive mode, the Rexx interpreter pauses after each statement or clause. Use it to 
single-step through code. 


Chapter 10 


1. The purpose of error or exception trapping is to manage certain kinds of commonly occurring 
errors in a systematic manner. The conditions are ERROR, FAILURE, HALT, NOVALUE, 
NOTREADY, SYNTAX and LOSTDIGITS. The ANSI-1996 standard added LOSTDIGITS. 


2. Tohandle a control interrupt, enable an error trap for the HALT condition. Enable this 
exception condition, then Rexx automatically invokes your error routine when this condition 
occurs. 


3. signal applies to all seven error conditions. call does not apply to SYNTAX, NOVALUE, and 
LOSTDIGITS errors. signal forces an abnormal change in the flow of control. It terminates 
any do, if or select instruction in force and unconditionally transfers control to a specified 
label. 
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call provides for normal invocation of an internal subroutine to handle an error condition. 
The result special variable is not set when returning from a called condition trap; any value 
coded on the return instruction is ignored. 


Use the interpret instruction to dynamically evaluate and execute an expression. 


Enable a condition routine through a signal or call instruction. You can have multiple 
routines to handle a condition by coding signal or call multiple times, but only one 
condition routine is active for each kind of error trap at any one time. 


If the error trap was initiated by the signal instruction, after executing the condition trap 
routine, you must reactivate the error condition by executing the signal instruction again. 


Whether it is better to write one generic error routine to handle all kinds or errors, or to write a 
separate routine for each different kind of error, depends on what you’re trying to do and the 
nature of your program. Both approaches have advantages. Sometimes it is convenient to 
consolidate all error handling into a single routine, other times, it may be preferable to have 
detailed, separate routines for each condition. 


Chapter 11 


1. 


All Rexx implementations covered in this book have a stack; however, how the stack is 
implemented varies. Review the product documentation if you need to know how the stack is 
supported within your version of Rexx. 


Stacks are last-in, first-out structures, while queues are first-in, first-out. Instructions like push 
and queue place data into the stack, and instructions like pull and parse pull extract 
data from it. The queued built-in function reports how many items are in the stack. 


The limit on the number of items the stack can hold is usually a function of available memory. 


The answer to this question depends on the Rexx interpreter(s) you use and the platforms to 
which you wish to port. Check the documentation for the platforms and interpreters for which 
you intend to port. 


Some Rexx interpreters support more than one stack, and more than one memory area or buffer 
within each stack. Functions or commands like newstack and delstack manage stacks, 
while makebuf, dropbuf, and desbuf manage buffers. Check the documentation for your 
specific Rexx interpreter regarding these features, as they do vary by interpreter. 


Chapter 12 


1. 


Consistency in coding is a virtue because it renders code easier to understand, enhance, and 
maintain. 


Some programmers deeply nest functions because this makes for more compact code. Some 
developers find it an intellectually interesting way to code, and others even use it to 
demonstrate their cleverness. If overdone, it makes code indecipherable and result in slower 
execution of the program. 
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3. A good comment imparts information beyond what the code shows. It explains the code 
further, in clear English. Rexx comments may appear on the end of a line, in stand-alone lines, 
or in comment boxes. 


4. Modularity and structured programming permit a limited number of entry and exit points from 
discrete blocks of code. This makes code easier to understand and follow, and restricts 
interactions between different parts of programs. The result is higher productivity, and more 
easily understood code that is easier to maintain. 


5. do until and signal are unstructured control instructions. Any code using them can be 
rewritten as structured code by use of the do while and if statements. 


6. A good variable name is descriptive. It is not short or cryptic but long and self-explanatory. It 
does not employ cryptic abbreviations but instead fully spells out words. Good variable naming 
makes a program much more readable. 


7. Global variables can be highly convenient when coding. But best programming practice limits 
their use in larger and more complex programs. Structured programming involves carefully 
defined interfaces between routines, functions, and modules. Variables should be localized to 
routines and their use across routines should be carefully defined and limited. Global variables 
do not follow these principles. Different programmers and sites may have their own standards 
or opinions on this matter. 


Chapter 13 


1. No. Writing portable code typically takes more effort than writing nonportable code. In some 
cases, where the goal is quick coding, a nonportable solution may meet the goal more 
effectively. 


2. Scripts can learn about their environment in several ways. Key instructions for this purpose 
include parse version and parse source. The chapter also lists many other instructions 
and functions that help scripts learn about their environment. 


3. arg automatically translates input to uppercase, while parse arg does not. 


4. The sourceline function either returns the number of lines in the source script, or a 
specific line if a line number is supplied as an argument 


5. The appendix of the TRL-2 book lists all its differences from TRL-1. 


Chapter 14 


1. Rexx sends a command string to the environment when it does not recognize it as valid Rexx 
code. The default environment, the environment to which external commands are directed by 
default, is typically the operating system’s shell or command interface. 


2. Enclose commands in quotation marks when their contents will otherwise be incorrectly 
interpreted or evaluated by the Rexx interpreter. For example: dir > output.txt will not 
work because the > symbol will be interpreted as a “greater than” symbol by Rexx, rather than 
as a valid part of the OS command. So, this OS command would fail unless enclosed within 
quotation marks. Some developers like to enclose all of the OS command string in quotes, 
except the parts they specifically want Rexx to evaluate. Others quote only those parts of the 
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command that must not be evaluated. We generally follow the latter approach in this book. 
Either technique works fine; it is a matter of preference as to which you use. 


To prepare a command in advance, assign the command string to a Rexx variable prior to 
issuing it to the operating system. You can easily inspect the variable’s contents merely by 
displaying it. 


Basic ways to get error information from OS commands include inspecting their command 
return codes, capturing their textual error output, and intercepting raised condition traps within 
error routines. Look up return code information for OS commands in the operating system 
documentation. 


Two ways to redirect command input/output from within a script are the address instruction 
or through the operating system’s redirection symbols. Command I/O redirection works on 
operating systems in the Windows, Linux, Unix, BSD, and DOS families, among others. Not all 
operating systems support I/O redirection. 


Sources and targets can be specified as arrays or streams (files). They may be intermixed within 
the same address command. 


To direct all subsequent external commands to the same interface, specify address with a 
system target only (without any external command encoded on the same instruction). 
Repeated coding of address without any environment operand effectively “toggles” the 
target for commands back and forth between two target environments. 


Chapter 15 


1. 


Rexx/SQL is free, open source, universal, and standardized. Database programming provides 
sophisticated I/O for multiuser environments. Advantages to database management systems 
include backup/recovery, database utilities, central data administration, transaction control, 
and many other features. 


Scripts typically start by loading the Rexx/SQL function library for use through the RxFuncAdd 
and SQLLoadFuncs functions. 


Connect to a database by SQLConnect, and disconnect through the SQLDisconnect function. 
Check connection status by SQLGet Info. You can also check the return code for any Rexx/SQL 
function to verify its success or failure. 


Consolidating error handling in a single routine is typical in database programming. It allows 
consistent error handling, while minimizing code. Here are the SQLCA variables set by 
Rexx/SQL: 


SQLCA.SQLCODE — SQL return code 
SQLCA.SQLERRM — SQL error message text 


SQLCA.SQLSTATE — Detailed status string (N/A on some ports) 


SQLCA.SQLTEXT — Text of the last SQL statement 
SQLCA.ROWCOUNT — Number of rows affected by the SQL operation 
SQLCA.FUNCTION — The last Rexx external function called 


SQLCA.INTCODE — The Rexx/SQL interface error number 


OoOoododoadoo oO 


SQLCA.INTERRM — Text of the Rexx/SQL interface error 
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5. Assigning a SQL statement to a Rexx variable makes its coding clearer. It can also be verified 
simplifying by displaying the variable’s value via a simple say instruction. 


6. SQLDisconnect terminates a connection with a database and closes any open database 
cursor(s) for that connection. SQLDispose releases the work area (memory) resources originally 
allocated by a SQLPrepare function. 


7. Rexx/SQL is a database-neutral product that is free, open source, very capable, and widely 
used. It offers both generic and native database interfaces to nearly any available database. 
Database-specific Rexx interfaces are also available from a few relational database companies. 
These products are proprietary and support only that company’s database. In exchange, they 
often offer access to database-unique features, for example, the ability to write Rexx scripts for 
database administration or for controlling database utilities. An example of a proprietary inter- 
face is IBM Corporation’s DB2 UDB interface described in this chapter. 


Chapter 16 


1. Both Rexx/Tk and Rexx/DW are free, open source interfaces that allow you to create portable 
graphical user interfaces for Rexx scripts. Rexx/Tk is based on the widely used Tk toolkit and 
provides Rexx programmers entree into the Tcl/Tk universe. Rexx/DW is a lightweight protocol; 
it does not have the overhead that Rexx/Tk does. Both products offer very large libraries of GUI 
functions and features. 


2. Rexx Dialog was designed specifically for scripting Windows GUIs. It works with both the 
Reginald and Regina Rexx interpreters. 


3. A widget is a control or object placed on a window with which users interact. Widgets are 
added in Rexx/Tk by functions like TkAdd and TkConfig and others. Widgets are 
packed onto DW window layouts. 


4. The basic logic of GUI scripts is the same, regardless of whether Rexx/Tk or Rexx/DW is used. 
Register and load the function library; create the controls or widgets for the topmost window; 
display the top-level window; wait for user interaction with the widgets, handle the interactions 
requested through event-handling routines; and terminate the window and the program when 
requested by the user. 


5. Tcl/Tk GUI toolkit has achieved worldwide use because it renders inherently complex windows 
programming relatively simple. It is also portable and runs on almost any platform. 


6. Rexx/gd creates graphical images, not GUIs. These images can be used as part of a GUI (for 
example, as components placed on a Web page). Rexx/gd creates its images in memory work 
areas. The images are typically stored on disk after developed, then the script releases the image 
memory area and terminates. 


Chapter 17 


1. = Yes, you could write Web programs without using any of the packages described in the 
chapter. However, you would be doing a lot more work, and essentially duplicating code and 
routines that already exist and that you can freely use. 
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2. 


Functions htmltop and htmlbot write standard headers and footers, respectively. Scripts 
write the Content Type header by the PrintHeader function. The content type header must be 
the first statement written to the browser. It tells the browser the kind of data it will receive in 
subsequent statements. Read user input through the ReadForm function, among others. 


Function CgiInit initializes and sets up the CGI header, while CgiEnd typically ends a script. 
CgiHref generates a hyperlink. 


Mod_Rexx makes the Apache open source Web server completely programmable by Rexx 
scripts. Apache scales better than traditional CGI Web server programming because Apache 
handles incoming connections much more efficiently. Mod_Rexx gives the same capabilities to 
Rexx scripts as Perl programs get from mod_perl and PHP scripts from mod_php. 


Rexx Server Pages are analogous to Java Server Pages or embedded PHP scripting, in that RSPs 
permit embedding Rexx code directly into the HTML of Web pages. This permits “dynamic 
pages” that are tailored or customized in real time. 


Short- and long-form delimiters identify and surround Rexx code within HTML pages. They are 
used with Rexx Server Pages, or RSPs. There is no functional difference between short- and 
long-form delimiters. 


To customize Apache’s log processing, use the Mod_Rexx package. It enables you to code Rexx 
scripts that control any of the 14 or so processing steps of the Apache Web server, including 
the one that manages log processing. 


Chapter 18 


1. 


XML is a self-describing data language. XML files contain both data and tags that describe the 
data. They are textual files. XML is useful for data interchange between applications or compa- 
nies. XPath is a standard for identifying and extracting parts of XML files. XSLT applies defini- 
tional templates called stylesheets to XML files. It can be used to transform XML files. HTML is 
a language that defines Web pages. 


Function xm1ParseXML can be used to load and optionally validate a document. Function 
xmlSaveDoc saves a document, while function xmlFreeDoc frees resources. 


Function xm1ParseHTML can parse or scan a Web page written in HTML. xm1lFindNode and 
xmlNodesetCount may also be useful, as per the example in the chapter. 


Rexx does not include regular expressions. However, many packages are freely available 
that add this facility to the language, including RexxRE and Regular Expressions. Appendix H 
lists many of the free and open source packages, tools, and interfaces for Rexx programmers. 


Apply an XSLT stylesheet to a document by the xmlApplyStylesheet function. 
xmlParseXSLT parses and compiles an XSLT stylesheet, while xmlFreeStylesheet frees 
a compiled stylesheet. xmlOutputMethod reports the output method of a stylesheet. 


Chapter 19 


1. 


BRexx runs fast on limited resource computers. Regina and BRexx run under virtually any 
imaginable platform. Rexx interpreters that are extended specifically for Windows include 
Regina, r4, and Reginald. Several interpreters offer extensions for Unix, Linux, and BSD, 
especially Rexx/imc, BRexx, and Regina. 
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2. 


The major Rexx standards are TRL-1, TRL-2, ANSI-1996, and SAA. Most Rexx interpreters 
adhere to TRL-2, while Regina is the primary offering that implements full ANSI-1996. SAA 
was IBM’s attempt to rationalize its diverse operating systems in the 1990s. SAA declared Rexx 
its common procedures language. The practical effect was that IBM ported Rexx to all its 
operating systems and established more rigorous standardization for the language across 
platforms. 


Open Object Rexx and roo! are fully object-oriented Rexx interpreters. Both are supersets of 
standard or classic Rexx. This means that you can take a standard Rexx script and run it under 
either Open Object Rexx or roo! without any changes to that script. roo! is free under Windows, 
while Open Object Rexx is free under Windows, Linux, Unix, BSD, macOS, and Android. 


NetRexx runs under the Java Virtual Machine (JVM). So, it runs anywhere Java runs. It 
presents an easy-to-use alternative to Java and may be freely intermixed with Java scripts. So, 
for example, NetRexx can make full use of the Java class libraries. You can write applications, 
classes, Java Beans, and servlets in NetRexx. NetRexx is a Rexx-like language; it does not meet 
the Rexx standards such as TRL-2 or ANSI-1996. 


Regina is the open source Rexx that it includes many of the extended functions offered in other 
Rexx interpreters. 


BRexx, ooRexx for Android, and Rexx for Android (or Rexxoid) all run on Android cell 
phones. Chapter 25 covers them in detail. 


Emulation is slower and less efficient than running in native mode. However, emulation has the 
immediate benefit that it ports applications without code changes. 


Chapter 20 
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1. 


Regina is open source, widely popular, well supported, and meets all standards. It runs on 
virtually every platform, including any version of Windows, Linux, Unix, macOS, and BSD. It 
also runs natively under a very wide variety of lesser-used operating systems. 


Use the stack to manage command I/O and pass information between routines. Regina also has 
a unique stack facility that permits communications between different processes on the same 
machine, and even between different processes on different machines. Regina also supports 
sending and receiving I/O to/from commands using the address instruction with standard 
keywords like input, output, and error. 


Use readch and writech to read and write character strings, and readln and writeln to 
read and write lines. Use open to explicitly open a file, close to explicitly close a file, eof to 
test for end of file, and seek to move the file pointers. 


Answers to “Test Your Understanding” Questions 


4. 


The SAA API is an interface definition that allows programs written in languages like C to use 
Regina as a set of services or a function library. Regina uses offers SAA-compatible functions 
for loading external function libraries. These include rxfundadd to register an external 
function and rxfundrop to remove external functions from use. 


Regina supports a wide variety of parameters on the options instruction, including CMs, 
UNIX, BUFFERS, AREXX_BIFS, REGINA, ANSI, SAA, TRL2, and TRL1. See the Regina 
documentation for full details on these and other options instruction parameters. 


Chapter 21 


1. 


Rexx/imc runs under all forms of Linux, Unix, and BSD. Rexx/imc meets the TRL-2 standards. 
Its advantages include its strong Unix heritage and orientation, extra Unix functions, good doc- 
umentation, and a strong track record of support. 


Rexx/imc includes C-like I/O functions such as open, close, stream, and ftell1. This I/O 
model provides more explicit control than Rexx’s standard I/O. Use the standard I/O functions 
for portability and standardization, and use the the C-like I/O functions for more explicit 
file control. 


select can key off the values in a variable in Rexx/imc, rather than requiring condition tests. 
This is useful in implementing a CASE construct based on the value of a variable. 


Use rxfuncadd to load and register and external function for use, and rxfuncdrop to drop 
an external function. Use rxfuncquery to determine if a function is already loaded. 


Rexx/imc accepts any nonzero value as TRUE, whereas standard Rexx only accepts 1 as TRUE. 
In this respect, any standard Rexx script will run under Rexx/imc, but a script written for 
Rexx/imc’s approach to TRUE conditions might fail when run under standard Rexx. 


Chapter 22 


1. 


BRexx’s advantages include its high performance, small footprint, wide array of built-in func- 
tions, and extra function libraries. It runs on a wide variety of platforms and in addition is 
uniquely positioned among Rexx interpreters to run on smaller, limited-resource environments. 
It also runs on mainframes or in mainframe emulation in its download called BRexx/370. 


Position a file pointer through the seek function. Using seek, you can position to anywhere in 
the file including its beginning or end. The seek function can also return current file pointer 
positions. Use it to determine the size of a file by this statement: filesize = 
seek(file pointer, 0, “EOF”). 


The EBCDIC functions convert data between ASCII and EBCDIC (these are the two predominant 
coding schemes, with the former being used on PCs and midrange machines, and the latter 
being used for mainframes). The Date Functions external function library can handle date 
arithmetic. 


The stack buffer functions include makebuf (create a new system stack), desbuf (destroy 
all system stacks), and dropbuf (destroy the top n stacks). 
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5. BRexx supports standard Rexx I/O, C-like I/O, and database I/O through MySQL. Standard 
Rexx I/O is for general use in standards-based, portable programs; C-like I/O is nonstandard 
but offers more explicit file control; and the MySQL functions provide the full power of a rela- 
tional database. The latest releases also support SQLite, a database alternative to MySQL. 


6. Code operating system commands in the same manner as with any standard Rexx interpreter. 
You can also encode them as if they were functions, if they use standard I/O. Capture command 
output through the stack, or code a command as if it were a function and capture its return 
string through an assignment statement. 


Chapter 23 


1. Reginald’s biggest advantage is that it is specifically tailored and customized for Windows. 
Furthermore, it offers many add-on tools, provides great documentation on how to use its 
extended features and functions, permits use of any Windows DLL, meets the Rexx TRL-2 stan- 
dards, and supports the SAA API. 


2. Reginald comes with complete documentation that includes examples of every new function 
and feature. You shouldn’t require any information other than what comes with Reginald to 
use it. 


3. Use Reginald’s SAA-compliant functions like rxfuncadd, rxfuncquery, and rxfuncdrop to 
access external function libraries. Use funcdef to access DLLs that were not written to Rexx’s 
specifications. You can autoload many function libraries through Reginald’s Administration 
Tool and thereby avoid explicitly loading them in every script. This is very convenient and 
also reduces the amount of code you must write. 


4. _ Reginald accesses virtually any external data source, including office products like Microsoft 
Excel and Access, and databases like SQL Server, MySQL, and PostgreSQL. The Open 
Database Connectivity or ODBC drivers are the means to accomplish this. 


5. Reginald offers a freely downloadable tutorial on how to use Reginald with the Common 
Gateway Interface, or CGI. Other tutorials address subjects like mailslots, Internet access, sock- 
ets, and GUI programming. 


6.  DriveInfo and MatchName are two functions (among others) that supply information 
about disk drives. MatchName also provides attribute information. A file does not have to be 
open to retrieve information about it, but it must exist. 


7. Valuein reads binary values in as numeric values. 


The LoadText function reads lines of a text file into a stem variable, or saves a stem 
variable’s lines to a text file. 


9. The RxDIgIDE add-on product helps generate GUI code. 


10. RxErr establishes how GUI-related errors will be handled; RxCreate creates anew 
window with its controls; RxMsg_ controls user interaction with a window. The key values 
scripts check to determine how a user interacted with a window and its controls are rxid 
and rxsubid. 


11. The Speech library allows the computer to synthesize speech. The MIDI function library con- 
trols the MIDI interface, which connects a computer to external instrumentation. Use MIDI to 
send information to a musical instrument, and the Speech library to read a document aloud. 
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Answers to “Test Your Understanding” Questions 
Chapter 24 


1. 


SBCs typically lack human interface devices like displays, keyboards, touchpads, mice, etc. 
They also usually have lesser processor and memory resources, which directly affects how 
you go about programming them. 


SBCs are often sold without cases because they’re often embedded in other systems. They don’t 
need to be “dressed up” like consumer laptops and desktops. 


NetRexx requires Java support because it runs on the Java Virtual Machine. ooRexx only 
requires Java support if you use it with the BSF40oRexx Java integration tool. Some of the JDKs 
available include those from Oracle Corporation, BellSoft, and the OpenJDK. 


Apache Subversion is a software versioning and revision control system. Use it to manage 
software and ensure you install the proper versions. 


BSF4o0o0Rexx provides Java integration for ooRexx. It is not needed or used with NetRexx. 


No, you don’t need to learn object-oriented programming, because ooRexx is a superset of 
classic Rexx, and you can code strictly procedurally with it if you so choose. 


You need a pin-interface software tool, like Broadcom or WritingPi. Pi4J can help manage this. 


Chapter 25 


Scripting Layer for Android (or SL4A) is a scripting host. It allows developers to automate 
Android tasks in scripting languages instead of Java. Rexx is one of several scripting languages 
it supports. 


BRexx is the only one of the three interpreters in this chapter that requires and uses SL4A. 


The Manifest file manages permissions. Unless you have some other obvious problem, this is 
what you need to edit to fix a permissions problem. 


At the present time, you must root your device to install and run ooRexx for Android. That is 
anticipated to change soon. 


You direct commands to Android by ADDRESS SYSTEM. 


The bluetoothConnect function knows which device to contact by the identifier coded as 
its operand. 
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Chapter 26 


1. 


7. 
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Among the advantages to r4/roo! are that they are specifically tailored for Windows, they fit 
together as a classic Rexx/object Rexx pair, and they share a large set of Windows-specific tools. 
Among the tools are AuroraWare! (to create GUIs), TopHat (for creating fill-in-the-blank forms), 
Poof! (with 135 command-line aids and tools), Revu (to view text), XMLGenie! (to convert XML 
to HTML), Chill (to hide Rexx source code), and the Exe Conversion Utility (to convert scripts to 
stand-alone executable files). 


r4 scripts run under roo! without any alteration. roo! scripts will typically not run under r4, 
because roo! is a superset of classic Rexx and r4. Since r4 scripts are classic Rexx, they are widely 
portable across operating systems. roo! scripts are portable only across varieties of Windows, 
because roo! is a Windows-specific product. 


Several of the r4/roo! utilities aid in building GUIs, AuroraWare! being the most directly perti- 
nent. In the list of attributes, the r4/roo! GUI tools offer the best customization for Windows, are 
easiest to use, can be learned most quickly, and are easiest to maintain. Competing tools such as 
Rexx/Tk and Rexx/DW are the most portable and the most powerful. These statements are gen- 
eralizations that may not apply across the board to all projects, so always assess the available 
tools versus the criteria and goals of your own project. 


Installation of r4 and roo! is simple and similar to other Windows installs. The one variant is 
that there is a preinstall step that Web-installs on the user’s system. 


roo! supports all the principles of object-oriented programming, including classes and methods, 
inheritance, an hierarchical class structure, encapsulation, abstraction, and polymorphism. As in 
all object-oriented systems, messages invoke methods in the various classes. 


roo! supports a number of new operators in order to bring full object-orientation to classic Rexx. 
These include the following: 


Operator Symbols Use 
AA Double Caret Instance creation 
A Caret Method invocation prefix operator 
pe Tilde Method invocation infix operator 
[] Brackets Array-like reference operator 
{} Braces Vector class reference 
! Exclamation point Identifies a command 


For line-oriented I/O, use classes such as InLineFile and OutLineFile. To manage the 
display screen, the Console class is useful. InStream and OutStream handle the default 
input and output streams. Use the Socket class to manage TCP/IP sockets. 


Answers to “Test Your Understanding” Questions 
Chapter 27 


1. 


Open Object Rexx is a superset of classic Rexx. Classic Rexx programs typically run under Open 
Object Rexx without any alteration. ooRexx features inheritance, the ability to create subclasses 
that inherit the methods and attributes of their superclasses. Multiple inheritance allows a class to 
inherit from more than one superclass. Open Object Rexx’s class hierarchy implements all this. 


Encapsulation means that only an object can manipulate its own data. Send a message to the 
object to invoke its methods to manipulate that data. Polymorphism means that messages 
invoke actions appropriate to the object to which they are sent. 


The Stream class has I/O methods. It goes beyond classic Rexx capabilities to include reading/ 
writing entire arrays, binary, and text I/O, shared-mode files, direct I/O, and so on. 


Open Object Rexx adds new special variables. Two are used for referencing objects: Self 
references the object of the current executing method, while Super references the superclass 
or parent of the current object. 


Actually, there are more than four directives. The most frequently used ones are: ::CLASS (to 
define a class), :: METHOD (to define a method), :;:ROUTINE (to define a callable subroutine), 
and ::REQUIRES (to specify access to another source script). Directives mark points within the 
script at which these definitions or actions apply. 


Collection classes manipulate sets of objects and define data structures. A few of the collection 
classes are: Array (a sequenced collection), Bag (a nonunique collection of objects), Directory (a 
collection indexed by unique character strings), List (a sequenced collection which allows 
inserts at any position), and Queue (a sequenced collection that allows inserts at the start or 
ending positions). 


The new USER condition trap allows user-defined error conditions. Explicitly raise an error 
condition (user-defined or built-in) by the new raise instruction. 


As in classic Rexx, the expose instruction permits access to and updating of specified 
variables. In object programming, expose permits access to objects as well as string variables. 


Chapter 28 


1. 


Every classic Rexx program will run under Open Object Rexx, but this does not take advantage 
of any of the new object-oriented capabilities of Open Object Rexx. Compatibility both preserves 
legacy scripts and allows you to tip-toe into object-oriented scripting at a pace at which you are 
comfortable. 


All instructions and functions of classic Rexx are part of Open Object Rexx. The latter adds a 
number of new and enhanced instructions and functions. 


Collections are classes that implement data structures and allow manipulation of the objects in 
the class as a group. 


Here are some solutions: 


O)_ To return a string with its character positions reversed, code: string~reverse 


O1 To return a substring, code: string~substr (1,5) 
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5. The stream class offers a superset of the I/O capabilities of classic Rexx. Extra features it 
includes are: reading/writing entire arrays, binary and text I/O, shared-mode files, direct I/O, 
and so on. 


6. The four most used directives are: ::CLASS (to define a class), :: METHOD (to define a method), 
::ROUTINE (to define a callable subroutine), and ::REQUIRES (to specify access to another 
source script). Classes and methods are placed after the main routine or driver (towards the end 
of the script). 


7. These symbols can be used to express at and put in many collections: 


Operator Use 
[] Same as the at method 
[]= Same as the put method 


8. These monitor objects are applied against the default streams. The default streams are . stdin, 
. stdout, and .stderr. 


Chapter 29 


a Mainframe Rexx generally meets the TRL-2 and SAA standards. There are slight differences 
between Rexx interpreters on the different mainframe platforms as well as between mainframe 
Rexx and the standards. Appendix R enumerates the exact differences between IBM 
mainframe REXX and the ANSI 1996 Rexx standard. 


2. Mainframe Rexx enhances the instructions options and parse and adds the extended main- 
frame instruction upper. Mainframe extended functions include externals, find, index, 
justify, linesize, and userid. In addition, both VM and OS Rexx add their own external 
functions, but what is included in this list varies between VM and OS. 


3. Mainframe Rexx supports the Double-Byte Character Set, which allows encoding for 
ideographic languages, such as Asian languages like Chinese and Korean. 


I/O on the mainframe is often performed using EXECIO. 


5. Immediate commands can be entered from the command line and they affect the executing 
script in real time. Immediate commands can turn the trace on or off, suspend or resume script 
execution, and suspend or resume terminal (display) output. 


6. VM Rexx knows about and automatically loads any or all of these three named packages if any 
function within them is invoked from within a script: RXUSERFN, RXLOCFN, and RXSYSEN. Users 
may add their own functions to these libraries. 


7. Rexx compilers separate the compile (or script preparation step) from its execution. This usually 
produces an executable that runs faster, purchased at the price of a two-step process. If a Rexx 
script is stable and unlikely to change, and is run frequently, compiling it might increase its 
run-time performance. Note that the mainframe compiler does not guarantee a performance 
increase. 


8. VM Rexx requires a comment line, while OS TSO/E Rexx requires the word REXx. To satisfy 
both requirements, encode this as the first line in a mainframe Rexx script: /* REXX */. 
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Answers to “Test Your Understanding” Questions 


9. 


VM Rexx scripts reside in files of type EXEC. XEDIT editor macros reside in files of type XEDIT. 
CMS pipelines use files of type REXX. 


Chapter 30 


1. 


NetRexx offers some of the traditional advantages of Rexx: easy syntax, ease of use, and ease of 
maintenance. You can intermix NetRexx and Java classes however you like. 


The NetRexx translator can be used as a compiler or an interpreter. As an interpreter, it allows 
NetRexx programs to run without needing a compiler or generating .class files. Asa 
compiler, it can compile scripts into .class files. NetRexx programs can be both compiled and 
interpreted in just one command. This is easy to do and machine-efficient. NetRexx can also 
generate formatted Java code, including original commentary, if desired. 


NetRexx scripts run on any machine that offers a Java Virtual Machine (JVM). This makes them 
portable across all Java environments. As an interpreter, the NetRexx translator allows 
NetRexx programs to run without needing a compiler or generating .class files. 


Indexed strings are NetRexx strings by which subvalues are identified by an index string. 
Arrays are tables of fixed size that must be defined before use. Arrays may index elements of 
any type, and the elements are considered ordered. To define a dictionary collection class, 
refer to the Java documentation. NetRexx uses all the Java classes and methods. 


NetRexx uses all the Java classes and methods, so refer to the Java documentation for information. 


*.nrx files contain the source of a NetRexx script. *.java files contain Java source code, 
and can be produced automatically from NetRexx scripts by the NetRexx translator. *.class 
files contain the binary or compiled form of a program. 


Special names perform an action wherever they appear in the source. For example, ask reads a 
line from the default input stream and returns it as a string of type Rexx while length returns 
an array’s length (the number of elements). The special methods include super, the constructor 
of the superclass, and this, the constructor of the current class. 


To migrate classic Rexx scripts to NetRexx, download the free Rexx2Nrx classic Rexx to 
NetRexx automated conversion tool. 
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How to Use EXECIO 


by Howard Fosdick and Lionel B. Dyck 


Overview 


Chapter 5 covered how to perform input and output operations in Rexx scripts. The I/O model is 
often called streaming, because Rexx considers both input sources and output targets as sequences of 
characters or bytes. 


One of the benefits of the streaming model is that it applies regardless of whether you're working 
with disk files, printers, or displays. It readily lends itself to I/O redirection -- the ability to alter a 
program's input/output stream without altering the program code itself. 


Rexx requires fewer than a dozen instructions and functions to effectively manage I/O streams. 
They include parse, chars, charin, charout, lines, linein, lineout, and stream. 


These support: 
(1 Character-oriented I/O -- a stream of individual bytes 


Line-oriented I/O -- reading and writing lines (or records) 


O 
C1 Conversational I/O -- interaction with users at their displays 
1 Redirected I/O -- switching I/O sources and targets without altering Rexx programs 


IBM Rexx for the VM operating system natively supports streaming. OS systems require 
installation of the Stream I/O for TSO/E Rexx Function Package for streaming support. 


A big advantage to I/O streaming is that it conforms to the Rexx standards. It thus provides 
portability of both program code and programmer skills across platforms (except for OS systems 
lacking the Streaming Function Package). 


An alternative I/O facility that has long been available on mainframes is the EXECIO command. 
EXECIO stands for "Execute I/O". 


EXECIO is a highly popular alternative to streaming I/O on mainframes. If you work there, you'll 
either use it or run across it. EXECIO is available on all mainframes -- on the operating systems we 
generically refer to as the OS, VM, and VSE families -- but no other platforms. 


Appendix N 


The advantages to EXECIO are that it is: 
(1 Available across all mainframes 


Flexible and powerful, yet simple to code 


| 
C1 Allows processing of multiple records -- or even an entire dataset -- with a single command 
L) 


Works with the data stack 


This chapter introduces EXECIO and explains how to code it. 


Why EXECIO? 


Use EXECIO to perform these tasks: 

C1 Open and close files 

Read or write a record to or from a file 

Read or write a specified number of records in one operation to or from a file 


Read or write an entire file using a compound or stem variable -- an array -- in a single operation 


O O O8 O 


Update records in a file 


C1 Append records toa file 


EXECIO can only operate on sequential datasets, or members of partitioned datasets. It supports all the standard 
record formats: fixed or variable length, blocked or unblocked. 


Allocating Files 


Since Chapter 29 on mainframe Rexx concentrated on VM program examples, this chapter will focus on TSO/E. 
The mechanics and coding of the EXECIO command are very similar on these systems (but not exactly the same). 


In most programs, before your script processes a file, you have to allocate that file for use. Use the TSO 
ALLOCATE command for this. (You'll often see it abbreviated as ALLOC, FILE as F, and DATASET as DA.) 


Here are a few example templates for ALLOCATE commands: 


(1) "ALLOC F(ddname) DA(dataset) LIKE(dataset)" 


(2) "ALLOC F(ddname) DA(dataset) NEW DIR(size) SPACE(size,size) DSORG(org) 
RECFM(format) LRECL(size) BLKSIZE(size)" 


(3) "ALLOC F(ddname) DA(dataset) SHR REUSE" 
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Example (1) allocates a new dataset with the same file parameters as the LIKE dataset it names. The new 
dataset inherits its characteristics from the existing file. 


Example (2) allocates a new file for use with the specified characteristics. These dataset definition parameters 
directly correspond to the equivalents you would code in Job Control Language (JCL). 


Example (3) allocates an existing dataset as shareable (SHR). 


In all cases, the ddname name on the ALLOCATE statement corresponds to the DD statement you would code if 
you were coding JCL. The dataset name is the same as you would code in your DSN= parameter in JCL. 


Of course, when your Rexx program concludes, you need to de-allocate any files it uses. Use the FREE statement 
for this. Here are example templates: 


(1) "FREE F(ddname)" 
(2) "FREE ALL" 


Example (2) conveniently frees all datasets allocated to your Rexx program in a single statement. 


EXECIO Basics 


Now let's explore the EXECIO statement. 
Here are a couple easy examples to start: 


(1) "EXECIO 0 DISKR ddname (OPEN " 
(2) "EXECIO 0 DISKR ddname (FINIS " 


Example (1) opens a dataset for processing, while example (2) closes the dataset after you're done processing it. 


The 0 that occurs right after the keyword EXECIO tells how many lines (or records) you want to process. 
When it is 0, that means you're processing zero records. You're either just opening or closing the file. 


OPEN means you're opening the file for use. FINIS means you're closing the file after your use of it is 
complete. These keywords appear in parentheses after the other operands. 


Note that it is acceptable (and very common) not to code the matching right parenthesis. The code shown above 
with a single left parenthesis is perfectly fine. 


DISKR indicates you're reading a file. The two alternatives are DISKW for writing to a file, and DISKRU to indicate 
a read operation for update. 


The ddname must match that given in a previous ALLOCATE statement. This is how TSO matches up your 
EXECIO statement to the file it should operate upon. So that ddname would match the one in an ALLOCATE 
statement, like this one, for example: 


"ALLOC F(ddname) DA(dataset) SHR" 
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Reading Data 


EXECIO reads data from a file into one of these places: 
CL) The data stack 


L) Astem variable (also called a compound variable or an array) 


C1 Avariable or list of variables (VM only, not available in OS) 


If you don't specify a variable name, EXECIO's default is to read data into the stack for subsequent processing 
by your program. So you would normally follow your EXECIO read statement with Rexx code that then 
processes the data in the stack. 


When you do specify a variable on the EXECIO statement, you can supply the stem name of a compound 
symbol. In other words, you use Rexx's notation to specify an array (a table) into which to read the file data. 
Once you have issued the EXECIO and have read data into this Rexx array, you can process it however you like. 


Let's look at a few examples of reading data: 


(1) "EXECIO 1 DISKR indd" 


(2) "EXECIO 100 DISKR indd (STEM mydata. " 


(3) "EXECIO * DISKR indd (FINIS STEM myarray. " 


Example (1) reads a single record into the data stack. Coding 1 tells EXECIO to read one record. The lack of a 
variable name in the statement means that, by default, the data will be read into the stack. 


As always, the ddname -- here indd -- links the EXECIO to the proper ALLOCATE ifstatement and tells it 
which file to process. 


Example (2) reads 100 records from the file into the stem variable mydata. In other words, this populates 100 
consecutive slots in the array called mydata. with 100 records from the file. 


The keyword STEM must be immediately followed by a stem variable into which to read the records. Note that 
it is very important to include the period as the last character in the input variable name: 


mydata. not mydata 


This is how you indicate that your variable is the stem of a compound variable, rather than just a simple 
variable and not an array. (Review Chapter 4 if you need a refresher on how Rexx uses compound variables and 
their stems to represent arrays.) 


Example (3) codes an asterisk instead of a specific number of lines to read. The result is that EXECIO reads all 
the records from the file into the compound variable (or table) named myarray. So, an asterisk means to read 
(or write) an entire dataset. 


The FINIS keyword automatically closes the file following the read operation. 


Whenever you do an "array read" into a compound variable, EXECIO will place the number of lines read into 
the 0" array position. In these examples, that's into the variables named mydata.0 and myarray.0. Thisis 
very useful information for your program's subsequent array processing. 
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The Role of Quotation Marks 


Remember that in Rexx, if you enclose a statement within quotation marks, it will be sent to the 
default environment for processing. (On OS systems, that default environment will be TSO/E.) 


For example, in these statements, EXECIO reads a single line from a file into the data stack: 


"ALLOC FI(ddname) DA('my.input.dataset') SHR REUSE" 
"EXECIO 1 DISKR ddname" 


In some cases you may want to have the ddname dynamically substituted into the EXECIO statement 
from a Rexx variable. This gives your code more flexibility. 


In this case, be careful with your quotation marks. 


The ddname will only be substituted in correctly if it exists outside of quotation marks. Here's an 
example. You can see how ddname is a Rexx variable whose value will be substituted into the 
EXECIO statement before it is passed to TSO for processing: 


ddname = "my.input.ddname" 


“EXECIO * DISKR" ddname "(FINIS STEM myarray." 


More Examples 


Let's round out this discussion with a few more example EXECIO statements: 


x 


(1) "E 
(2) "EXECIO 20 DISKW outdd (STEM mydata." 


ECIO * DISKW outdd (FINIS STEM mydata." 


(3) "EXECIO 9 DISKR indd (SKIP " 


(4) number in _q = QUEUED() 
"EXECIO" number in_q "DISKW outdd (FINIS" 


Example (1) writes all the contents of the Rexx array to the output file. DISKW indicates to write 
output. The asterisk indicates that all lines should be written, and STEM mydata. indicates the 
source of the lines to write. FINIS will automatically close the file after processing. 


EXECIO stops writing data when it encounters the first null variable in the array. So it processes 
sequentially through the array -- you can't have null values interspersed inside your array data if you 
intend to write it all out. You can fill in the 0" array element before writing the data, but it doesn't 
matter: EXECIO doesn't use it. 


Example (2) writes 20 lines to the output file from the mydata. array. 
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Example (3) shows how to position to a specific record in the sequential file for reading. The 9 combined with 
keyword SKIP tells EXECIO to skip past the first 9 lines of the file. A subsequent read will start at record 
number 10. 


Example (4) issues a Rexx QUEUED function to discover how many lines are in the data stack. The subsequent 
EXECIO refers to this number when writing the stack's contents to the output file. 


Note the proper use of the quotation marks to ensure that variable substitution occurs for the Rexx variable 
number in q. 


FINTIS closes the dataset after the write operation completes. 


Stack Processing 


After issuing an EXECIO statement that reads data into the stack, your Rexx program will likely process that 
data in some manner. 


Remember that element zero in the array (eg, element myarray.0 ) tells you how many lines EXECIO has 
placed on the stack as a result of its read operation. 


You might want to employ the various TSO/E commands that manipulate stacks: NEWSTACK, DELSTACK, 
and QSTACK. Buffer commands can be useful too: MAKEBUF, DROPBUF, QBUF, and QELEM. 


In Chapter 29, pages 502 and 503 explain these commands and provide examples of their use. 


z/VM CMS provides very similar stack and buffer manipulation commands. These are summarized on page 499 
in Chapter 29. 


Example Programs 


Let's conclude by discussing a few brief example programs. 


This simple script reads all data from a file into an array, then shows how to process it. 


/* REXX - reads and processes an entire dataset using an array */ 


"ALLOC F(indd) DA(input.data) SHR REUSE" 
"EXECIO * DISKR indd (STEM myarray." 


Do i = 1 to myarray.0 

Say 'Processing item: ' myarray.i 
End 
Epxeltie 


You can see that the processing loop uses the value that EXECIO put into array element 0 (myarray.0 ) to 
determine the number of lines that were read into the array. The DO loop then processes all the array elements. 


Here's an example program that copies the contents of a data file to a new dataset. It's taken from the IBM 
manual TSO/E REXX User's Guide. 


662 


How to Use EXECIO 


/* REXX - copies a dataset. Courtesy of IBM Corporation. yp 
"ALLOC DA(my.input) F(datain) SHR REUSE" 

"ALLOC DA(new.input) F(dataout) LIKE(my.input) NEW" 

"NEWSTACK" /* Create a new data stack for input only */ 
MHC ILO! = IDILSIIRE Cleneeialioy (a INAS} 

Qwisiui V0 fee pelol i ioilil Latins; ieto) iinicliGence ici]. Shovel iE Weve) skicue@icinleticsloin %/ 
Wap ILO) =F DIES Cleeevoubhe (CEILINIES)¥ 

"DELSTACK" /* Delete the new data stack */ 
"FREE F(datain dataout)" 


This example shows how you can use stack manipulation commands like NEWSTACK and 
DELSTACK to create and manage your own data stack. (It can be useful to create a new stack for your 
program, otherwise you won't be able to distinguish what the stack already contained versus what 
your program read into it.) Since the program uses a stack it created (rather than a Rexx array), it 
needs to manually append a null entry to the stack with the QUEUE instruction. The EXECIO DISKW 
statement depends on the presence of the null entry to know when to stop writing out data. 


Here's a last example, written by mainframe expert and author Lionel B. Dyck. This program reads a 
dataset, finds all lines that contain the string DSN= , and then generates a list of all dataset names 
(DSNs) that appear in the input file. 


/* REXX exec to find and report all datasets */ 
arg input 
VAILILOG 1 (alia) wis (Vauajowie”) slags 
Wiseeale “ Claigilkeie sigh (Graliaals GicSiad ali ™ 
Mpegs. ta (aia) 
3 = 0 
do a = 1 to im.0 
if pos("DSN=",in.i) = 0 then iterat 


parse value in.i with . "DSN="dsn 
parse value dsn with dsn"," 
Sp = alae al 
out.j = dsn 
end 


TMIGS i (Owe) cal)? 
"Hxecio * Diskw out (finis stem out." 
"Free f(out)" 


The program starts by accepting a command line argument that tells it the name of the file to process. 
It then feeds this argument into the ALLOC statement. Note how the double quotation marks are 
coded so that variable substitution occurs for the Rexx variable named input. 


The EXECIO statement then reads the entire dataset into the array or table named in. 
The finis keyword closes the dataset after it's read, and the FREE command deallocates it. 


The do loop processes all items in the array, driven the by number of items that EXECIO set in 
array variable in. 0. 


The pos function determines if the string DSN= occurs in a line of data. If so, the dataset name is 
isolated and added to the array named out. 


After all lines have been processed, the final ALLOC statement assigns the output to the user's 
terminal or display. This is the function of the asterisk in this code: 


"Alloc f(out) ds(*)" 
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The final EXECIO writes the data to the user in a single statement. FREE deallocates the dataset. 


One other point to note. This program allocates and deallocates datasets as needed (when they will be used). 
This contrasts to the common coding practice of allocating all files a script will use at its start, then deallocating 
all of them when the script ends. 


This script's design is more efficient because it locks file resources for the minimal possible duration. In a quick- 
running program, the difference may not matter, but in a long-running program, this approach is more 
judicious. This algorithm takes advantage of EXECIO's ability to read an entire file in a single statement. 


Common Algorithm Better Algorithm 


Figure N-1 


Summary 


In this appendix we explored the uses of the EXECIO statement and how to code it. EXECIO is very flexible and 
powerful, and yet it is easy to code and understand. 


EXECIO is quite popular in mainframe environments. Some sites don't use Rexx's streaming I/O facilities for file 
processing at all. 


EXECIO is common to all three mainframe operating systems, OS, VM, and VSE. The command is very similar 
-- but not exactly the same -- across all three platforms. We've described its use here on OS TSO/E systems. 
EXECIO is usually not available when running Rexx on systems other than mainframes. 


You can find further information on EXECIO in several IBM manuals, especially the TSO/E REXX User's Guide 
and the TSO/E REXX Reference for OS systems. For VM systems, look in the z/VM CMS Command and Utilities 
Reference. All manuals are available for free download at www.RexxInfo.org. 


The Stream I/O Function Package for TSO/E Rexx is described in detail in the manual IBM Compiler and Library 
for REXX on IBM Z. 
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How to Write Edit Macros 


by Howard Fosdick and Willy Jensen 


Overview 


Ever wish you could tailor the behavior of your text editor to your own preferences? Or make it 
easier and quicker to use? 


Edit macros allow you to do exactly that. 


An edit macro is a Rexx script that you run that affects or drives the behavior of your text editor. It can make it easier 


for you to: 
QO) Quickly perform operations 
C1 _ Execute repeated tasks 
(1 Automate routine or repetitive tasks 
C] Simplify your use of the editor 
C1 Customize or tailor or extend your editor 


This appendix explains how to write Rexx edit macros to work with common editors. We'll 
explain the coding requirements for macros and walk through a couple examples. 


Whether you can write an edit macro for any particular editor depends on whether that editor 
supports this feature. Some common text editors you can write Rexx edit macros for include: 


O 


O 
O 
O 


ISPF — available on most mainframes 
Xedit — a mainframe editor widely used on z/VM 
THE — available for Windows, Linux, Unix, BSD, and many other platforms 


KEDIT — a commercial Windows editor 


Appendix O 
ISPF Editor Macros 


Let’s explore how to write Rexx edit macros for the editor available on most mainframes: Interactive System 
Productivity Facility editor, or ISPF. To simply the discussion, we’ll assume you’re on a z/OS system using TSO/E. 


You typically create your Rexx macro as a member of a partitioned dataset. They can reside in any of several 
concatenations, normally SYSPROC, SYSUPROC, SYSEXEC, SYSUEXEC, or an activated ALTLIB. 


The name of the dataset you create is your macro’s name. The first line of code should contain the word REXX inside a 
comment, suchas: /* REXX */ 


The second statement in the macro should direct commands to the edit processor, ADDRESS ISREDIT. 
Remember that otherwise Rexx sends commands to the default command environment (TSO on z/OS systems). 


You can look at an edit macro as a subcommand to the ISPF editor. It’s executed just as if it were an editor 
subcommand. To run it, you just enter its name on the editor’s command line. 


A macro can contain these statements: 

L) Edit subcommands 

Other edit macro commands 
TSO commands 


Rexx statements 


O OF OO O 


ISPF and PDF dialog service requests 


A Simple Example 


Here’s a simple example. This macro named ONLY from Willy Jensen displays only lines containing specific content. 
The user inputs what that string content is as a command line parameter when he runs the macro. Here’s the code: 


/* Lexx by Willy Jensen 
Show only records with specified content 

ray 

Address isredit "MACRO (PRM) NOPROCESS" 

Address isredit 

Uresiciu 

Wiss erly 

Wazakiaye! iLL! jopein 

exit 0 
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As required, the macro starts with a first line comment containing the word rexx. The first 


executable line of code is the Address isredit statement. 


It captures the user's input 


parameter into the variable PRM. The NOPROCESS parameter simply means that the macro will be 


executed after all the ISPF edit line commands are processed. 


The second Address isredit statement has no command associated with it. So, that tells the 
processor to direct all subsequent commands in the script to the editor (rather than the default of 


TSO/E). 


Editor commands reset and x all remove all messages and lines from view in the data 


viewing area. 


The command "find all" prm then completes the program's task. It ensures that all the 
lines containing the string in the prm variable appear in the data area. So the macro exits. 


Another Example 


Here's another useful macro from Willy Jensen. This one is called UNIQUE. 


duplicate records from the dataset you're editing: 


aes Lexx by Willy Jensen 
Unique 

Edit macro -— delete duplicate lines 
ef 


Address Isredit 
Address Isredit 
Sian 

pee Grey 


"MACRO NOPROCESS 


/* scan data */ 
"(lines) = linenum 
dn=0 
Do Inr=1 to lines 
CS) = bane Clee 
ga" a) sieienjo(S, Vie!) 
sit Gt giSKS! ! Aelaei clo 
MAbeveye tl ine We. sielibiey! 
WEE ILGe) 5 Ecol 
dn=dn+1 
end 
else sf.s=lnr 
End 
"delete all x" 


Rest 


exit xmsg(dn 'lines deleted') 

XMSG: 

parse arg zedlmsg 

address ispexec"setmsg msg(isrz000)" 
return 0 


x 


It deletes any 
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This macro starts with the same three lines as the previous example. These declare that it’s written in Rexx, 
that it’s an edit macro, and that all subsequent lines Rexx passes to an outside environment for execution 
will go to the editor rather than to TSO. 


The program logic starts after the /* scan data */ comment. The number of lines we're processing is assigned 
to the variable 1 ines. This value controls the do loop, as the loop processes one line at a time. 


Inside the loop, you see a clever use of an associative array to see if a line is a duplicate that has been processed 
previously. This logic is directed at the compound variable (array) named sf.. (To learn about associative arrays, see 
Chapter 4.) 


If a line is determined to be a duplicate, this command assigns it a label as such: "label" Inr "= .xdup" 


In this case, this statement increments the counter of duplicated lines: dn=dn+1 


This command completes the processing by deleting all the lines marked as duplicated: "delete all x" 


A Last Example 


Sometimes it’s educational to review code written by different people to get an idea of stylistic differences. So here’s 
an ISPF macro example from a different source. 


This final example is straight from the IBM z/OS manual, ISPF Edit and Edit Macros. That's the essential reference 
manual for learning more about how to write edit macros. Along with background information, that manual lists and 
defines all edit line commands, primary commands, macro commands, and assignment statements. (You can 


download it along with all other Rexx-related IBM manuals at www. RexxInfo.org.) 


This example program is named ISRMBRS. It enables you to make global changes to all members in a partitioned data 
set. Or you could use it to search all PDS members for a specific data string. 


The way it works is that you start this macro and pass to it the name of the or macro you want to run against all PDS 
members. Then it turns around and applies that macro to each member of the PDS. 


You invoke this macro from the editor command line as: ISRMBRS macname 


macname is the name of the macro you want run against each PDS member. 


Here’s the program: 
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| ® REX X % % I I I I I I I I I I I I II I I I I / 


/* ISPF edit macro to process all members of partitioned data set, of 
/* running a second, user-specified, ISPF edit macro against each 2S ff 
/* member. o/, 
ak Aa 
fe Wey sewiare */ 
/* Enter "ISRMBRS macname" on the command line, where macname is */ 
/* the macro you want run against each member. */ 


[KK KR RRR A A A A A A A A A A A A A A A A A A A A A ek a Oe a / 


"ISREDIT MACRO (NESTMAC) ' 


[KK KR RRR A AA A A A A A A A A A A A A A A A A A A A A a ee a / 


/* Get dataid for data set and issue LMOPEN * / 
[KK KK RRR A A A A A A A A A A A A A A A A A A A A A a A ee oe / 
‘ISREDIT (DATA1) = DATAID' 


"ITSREDIT (CURMEM) = MEMBER’ 
Address ispexec 'LMOPEN DATAID('datal') OPTION(INPUT) ' 
member ate 


[KR KK KR RR A A A A A A A A A A A A A A A A A A A A A A a OO / 


/* Loop through all members in the PDS, issuing the EDIT service for */ 
/* each. The macro specified on the ALLMEMS invocation is passed as */ 
/* an initial macro on the HDEIT service call; if 
[KK KK RR RR A A A A A A A A A A A A A A A A A A A A A A a / 
Do While Imre = 0 

Address ispexec 'LMMLIST DATAID('datal') OPTION(LIST), 
MEMBER (MEMBER) STATS (NO) ' 


imrce = rc 
If lmrc = 0 & member *= curmem Then 
do 
Say ‘Processing member' member 
Address ispexec 'EDIT DATAID('datal') MEMBER('member' ) 
MACRO ('nestmac')' 


end 


[KK KR RR AR A A A A A A A A A A A A A A A A A A A A a A ee a / 


/* Free the member list and close the dataid for the PDS. af 
[KKK RR RR RA AA A A A A A A A A A A A A A A A A A A i oe a / 
Address ispexec 'LMMLIST DATAID('datal') OPTION(FREE) ' 

Address ispexec 'LMCLOSE DATAID('datal')' 


loxatie © 
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To explain the program, it starts with the keyword REXx in its first comment line, and with the ISREDIT 
MACRO statement in its first executable line. 


Next, the first code block gathers dataset information and issues an LMOPEN to access it. The program uses 
the ispexec statement to invoke ISPF services (as opposed to ISREDIT, which you use to identify edit 
macros). 


The next coding of Address ispexec invokes the LMMLIST ISPF service. This obtains each PDS 
member for processing. 


The do while loop then issues your macro command against each PDS member. Again, the program is 
using ISPF services to perform this work. This is the Address ispexec 'EDIT command. 


After all PDS members have been processed, the last two lines of code invoke ISPF services to free up the 
member list and close the dataset. 


Summary 


This appendix introduced you to Rexx edit macros. You've seen that they can be quite useful for automating 
all sorts of tasks within an editor like ISPF, Xedit, or THE (The Hessling Editor). If you use an editor day in 
and day out, edit macros can save you lots of time in handling repetitive tasks. You might well decide to 
tailor your editor to your personal preferences by using them. 


Of course, this very brief introduction just scratched the merest surface of what you can do with edit macros. 
To learn more, the website www.RexxInfo.org will direct you to many websites that offer freeware 
macros. Or, just google for "ISPF Rexx macros" or "The Hessling Editor macros" and you'll find hundreds 


of usable code examples. 


If you code ISPF editor macros, you should access the IBM manual ISPF: Edit and Edit Macros. It includes 
background information on how to create ISPF edit macros. It also lists all the edit line commands, edit 
primary commands, and edit macro commands and assignment statements. These definitions let you 
know what's available to code in your macros and how to code it. 


The IBM manual ISPF Reference Summary also details the ISPF Editor commands that you can use in edit 
macros. 


The website www. RexxInfo.org provides free downloads of both of these manuals. 
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Rexx in Batch 


Introduction 


This article tells how to run Rexx as a mainframe batch job. It relies on examples drawn from the 
IBM manuals. 


There are 3 basic ways to run Rexx in batch: 


1. Run in MVS Batch (IRXJCL) 
2. Run in an TSO/E environment (IKJEFT01) 
3. Run in an ISPF environment (IKJEFTO1 with ISPSTART) 


It's not required in all cases, but it's recommended that you include REXX inside a comment in the first 
line of your Rexx program. 


1. Run in MVS Batch (IRXJCL) 


This method is simple. But your Rexx program can not use TSO/E services, TSO commands, or 
most TSO/E external functions. Your Rexx program can only perform those functions available to 
programs running in a non-TSO/E address space. 


Code your Rexx program as a member of a partitioned dataset (PDS). The dataset name is effectively 
your program's name. 


IRXJCL is a Rexx processor, so it will be the program name on the EXEC statement. You pass it 
the name of your Rexx program (its PDS member name) by using the PARM keyword. 


Appendix P 
IRXJCL requires 3 DDNAMES: 
1. SYSEXEC -- the PDS where your program resides (some sites may use SYSPROC instead) 
2. SYSTSIN -- terminal input 


3. SYSTSPRT -- where terminal output is sent to 


Thus a minimal job skeleton to run a Rexx program called MYPROG looks like this. 


//MYJOB JOB 'ACT101', 'JOEY',CLASS=J,MSGCLASS=H, NOTIFY=&SYSUID 
//MVSBACH EXEC PGM=IRXJCL, PARM='MYPROG' 

Gye 

//SYSEXEC DD DSN=USERID.MYREXX.EXEC, DISP=SHR 


//SYSTSIN DD DUMMY 
//SYSTSPRT DD SYSOUT= 


As in all these examples, your JCL should reside in a fixed block, 80-byte record data set. 
Here's a more sophisticated example. It shows how to pass an argument into the Rexx program, as well as 


how to provide it input data in-stream. This example is straight from the IBM manual z/OS TSO/E REXX 
User's Guide. 


//USERIDA JOB ‘ACCOUNT, DEPT,BLDG', 'PROGRAMMER NAME', 


// CLASS=J,MSGCLASS=H, MSGLEVEL= (1,1) 

Ute 

//MVSBACH EXEC PGM=IRXJCL, 

es PARM='JCLTEST Test IRXJCL' 

i | [| | 

//* Name of exec <----- > | | 

//* Argument <--------- > 

/ /OUTDD DD DSN=USERID. TRACE. OUTPUT, DISP=MOD 


//SYSTSPRT DD DSN=USERID. IRXJCL.OUTPUT, DISP=OLD 
{I SVYSIBITE DID DSN=USERID.MYREXX.EXEC, DISP=SHR 
//SYSTSIN DD * 

First line of data 

Second line of data 

Third line of data 

/* 

bie 


In this example, the program name is USERIDA, and it runs a Rexx exec called JCLTEST. JCLTEST is a 
member residing in the partitioned dataset as USERID.MYREXX.EXEC(JCLTEST). The argument 'Test 
IRXJCL' follows the member name and is passed to that REXX program as an input parameter. The Rexx 
program can read in the argument through the statement: 


r. 


PARSE ARG input argument 
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In-stream data input is through the SYSTSIN. Output goes to SYSTSPRT (the DSN named 
USERID.IRXJCL.OUTPUT). If you wanted output to go to a printer instead of that dataset, you would 
specify something like: 


//SYSTSPRT DD SYSOUT=A 


2. Run in an TSO/E environment (IKJEFTO1) 


This method gives a batch Rexx program all the benefits and services of running in the TSO/E 
environment. You obtain that by running the TSO/E batch processing program named IKJEFTO1. 


In this example, the batch job USERIDA runs the TSO/E processor IKJEFTO1. As in the previous 
example, the name of the Rexx program is MYPROG. It resides in a partitioned dataset specified by 
SYSEXEC and named USERID.MYREXX.EXEC. 


The Rexx program to run is specified in the SYSTSIN input stream. Once again, SYSTSPRT defines 
the output location. 


/ /USERIDA JOB ‘ACCOUNT, DEPT,BLDG', 'PROGRAMMER NAME', 
// CLASS=J,MSGCLASS=C, MSGLEVEL= (1,1) 

ee 
//TMP EXEC PGM=IKJEFT01,DYNAMNBR=30, REGION=4096K 
//SYSEXEC DD DSN=USERID.MYREXX.EXEC, DISP=SHR 
//SYSTSPRT DD SYSOUT=A 

//SYSTSIN DD * 

SMY PROG 


Instead of specifying your program name via SYSTSIN, you could code it as a PARM to the 
IKJEFTO1 program, as in the previous IRXJCL example. 


Assume that you have coded this JCL and placed it in the partitioned dataset named REXX.JCL. That 
data set should be defined as fixed blocked, 80-byte records. You could start it as a background job 
by issuing the SUBMIT command, followed by the dataset name: 


SUBMIT rexx.jcl 
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As an alternative to IKJEFTO1, you could instead run either IKJEFT1A or IKJEFT1B. The minor differences 
between the three programs mainly have to do with how they handle return codes and abends. For most 
situations, IKJEFTO1 works fine. 


The above JCL coding example is straight from the IBM manual z/OS TSO/E REXX User's Guide. That manual 
also details the minor differences between IKJEFTO1, IKJEFT1A, and IKJEFT1B. 


3. Run in an ISPF environment (IKJEFTO1 with ISPSTART) 


This method runs your batch Rexx program in an ISPF environment. That gives it all the benefits and services of 
ISPF -- such as ISPF panels and tables, variable management, skeletons, and more. You achieve this by running the 
TSO/E batch processing program IKJEFTO1, as in the previous method, but this time using the ISPSTART command. 


As this example shows, you start the TSO Terminal Monitoring program by running program IKJEFTO1. 
Invoking the ISPSTART command after the SYSTSIN input DDNAME is what starts up the ISPF environment. 
Note how you specify your program name MYPROG as an ISPF command: 


//MY JOB JOB 'ACT101', 'JOEY',CLASS=J,MSGCLASS=H, NOTIFY=&SYSUID 
be 

//ISPFSTP EXEC PGM=IKJEFTO1 

as 

//SYSEXEC DSN=USERID.MYREXX.EXEC, DISP=SHR 


D 

D DSN=SYS1.ISPPLIB, DISP=SHR 
D DSN=SYS1.ISPMLIB, DISP=SHR 
D 
D 


DSN=SYS1.ISPTLIB, DISP=SHR 
UNIT=SYSDA, SPACE=(CYL, (10, 
Veh RECEFM=FB, LRECL=80, BLKSIZE= 
FI SSWSIN DD) 
ISPSTART CMD (MYPROG) 
yx 
//SYSTSPRT DD SYSOUT=* 


~ 
SS 
H 
n 
a9) 
K 
c 1 
ra z 
Ww 

eo oiee& 


One big requirement here is that you allocate the ISPF libraries. These include ISPPLIB (for ISPF panels), 
ISPMLIB (for ISPF messages), ISPTLIB (for ISPF tables), and ISPPROF (for ISPF profiles). You many have to ask 
your system programmer the names of these libraries if they differ from those typical shown here. 


For ISPTLIB (the ISPF tables), specify a temporary data set as its first data set. If you don't, and two jobs run 
concurrently, one of the jobs could fail with this error message: 


ISPTO036 Table in use TBOPEN issued for table ISPSPROF that is in 
use, ENQUEUE failed 
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Similarly, specify a temporary data set for ISPPROF (the ISPF profile). Or, if you specify an existing data set, 
be sure to specify a Disposition of Old (DISP=OLD). If you don't, you could get that ENQUEUE FAILED 
message shown above. 


You'll often see additional DDNAMES included. These may be required, depending on the kind of processing 
involved. Examples are ISPSLIB for ISPF skeletons, ISPLLIB (for load modules), ISPTABL (for any output 


tables), SYSPROC or SYSEXEC (for any CLISTs or REXX scripts), and ISPLOG (to show any logged 
messages.) 


Watch Out For These Concerns 


You need to be aware of several concerns unique to batch ISPF processing. 

First, remember that there is no user interaction in batch processing. So you have to handle the case where 
user input is required for any of the DISPLAY services (DISPLAY, TBDISPL, SELECT PANEL, SETMSG, 
and PQUERY). 


One method is to change the DISPLAY service to use the COMMAND parameter: 


stkbuf = 'END' 
"DISPLAY PANEL('panname') COMMAND (stkbuf) ' 


Or, you can alter panels to simulate an END or ENTER key by using the .RESP keyword in your panel 
definition: 


) INIT 
»-RESP = ENTER 


It's possible to encounter an infinite loop during display processing. To prevent this, modify the ISPSTART 
command by adding the BDISPMAX parameter to limit the total number of displays allowed by your 
program. BREDIMAX ensures the dialog ends after a specified number of redisplays: 


ISPSTART CMD(SERVPAN) BDISPMAX(255) BREDIMAX (2) 


You can also add ISPSTART parameters like BATSCRW (to define the screen width), and BATSCRD (to 
define screen depth). This command starts ISPF with proper limits to display errors, and a screen width of 
132 and depth of 50: 


ISPSTART CMD(SERVPAN) BATSCRW(132) BATSCRD(50) 
BDISPMAX (255) BREDIMAX (2) 
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EDIT is another situation that requires user input. So you must supply an initial edit macro to provide the 
input that would normally be supplied by the user. Be sure to end the macro with an ISREDIT END or 
ISREDIT CANCEL statement. This ensures that the edit screen is not displayed. Otherwise, you could have an 
infinite loop. 


Abend 998: If you get an Abend 998, check that: 


¢ All required libraries are allocated 

¢ AILISPF data element libraries can be opened 

¢* Data element libraries have valid data set characteristics 

¢ All literals modules can be loaded (ISRNLxxx and ISPNLxxx) 
° ISPF is not being called recursively 


Summary 


This appendix described three different ways to run your Rexx programs in batch on mainframes. Running as 
MVS batch (using IRXJCL) is easy, but the Rexx programs don't have access to many commonly-used TSO 
services. Running in the TSO/E environment (using IKJEFTO1) remedies this. This approach works well for 
many batch Rexx programs. 


If the program needs ISPF services, run it using IKJEFTO1 with ISPSTART. Be sure to allocate the several 
ISPF libraries that are required in this case. 


Credits: thank you to IBM for the coding examples in this appendix. See the IBM manuals TSO/E REXX Users 
Guide, TSO/E REXX Reference, TSO/E User's Guide, and IBM Compiler and Library for REXX on IBM Z. 
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These charts enumerate the equivalences between the Rexx and CLIST languages. 


They are for those who know one of these languages and want to learn about the other. They may 
also be useful for conversions. 


(These charts are not about “which language is better.”) 


The Basics 
Rexx CLIST 
Rasy ca learn, use, and Ves Yes 
maintain 
Very powerful Yes Yes, but lacks common language features 
Open source Yes No 
Portable Yes No 
Runs on all platforms Yes No 
Runs as the mainframe shell | No Yes 
Interfaces to tons of tools Yes No (intended to issue OS commands) 
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Profiles 


Rexx CLIST 
Dialects TRL-2, ANSI, Mainframe, ooRexx, CLIST 
NetRexx 
* Default scripting language for 
inf d 1 mi 1 
Unique Usage MUSE CONG GeV era CINCH PPHOUNS ac uariuble Suallia/Os tainlames 


* Interfaces to all mainframe environments 
and address spaces 


Programming paradigms 


Procedural, scripting, object-oriented 
(ooRexx and NetRexx), functional 


Procedural, scripting 


OOP: classes, objects, multi- 


inheritance, polymorphism, In ooRexx and NetRexx Unsupported 

encapsulation 

User Group Rexx Language Association SHARE 

Quick Online Lookup RexxInfo.org IBM TSO/E CLISTs Manual 

Forum RexxLA forum Expert Forum @ IBMMainframes.com 


Further information 


RexxInfo.org 


IBM TSO/E CLISTs Manual 
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Language Comparison 


Rexx <--> CLIST 


ANSI Rexx 


CLIST 


Format 


Free form 


Free form 


Case-sensitive 


No 


Yes 


Variable Names 


Valid Symbol that does not start with a 
digit (0-9) or a period (.) 


Start with & Next character must be one of: 
A-Z, (a-z), yy #, $, @ 


Comments 


Enclose inside /* and */ 


Enclose inside /* and */. Or put comment at end 
of a line by starting it with /* 


Line Continuation 


, (comma) 


- (minus sign) or + (plus sign) 


Statement Separator 


; (semi-colon) 


None (implied by line end) 


More than 1 statement 
per line 


Use ; (semi-colon) 


Not permitted 


Repeated variable 
substitution in a line 


No (use INTERPRET instruction) 


Yes 


DO-END, SELECT-END (Also DATA- 


de Block Defi: do - end 

peta panePy doen ENDDATA, DATA PROMPT-ENDDATA) 
Undefined Variables allowed Ue al to det mune ha Allowed until misused 

variable has been defined 
Assignment Operators |= SET = 
Arithmetic Operators |+ - * / % ** // Tia eae | 
Comparison s= \== >> << >= \<x< <<= |>> = \ EQ -= NE < LT > GT = LE >= GE > 
Operators Oo >< > <= \< <= \> NG -< NL 

( \ can be replaced with 7 in any of 

these) 
Logical Operators & | && \ (prefix) — (prefix) AND && OR | 

eRe ; 
Concatenation || Or, concatenate with blank between By abuttal: SET VARIABLE=&VAR1&VAR2 
Operators Or, concatenate by abuttal (no blank) 
Bitwise Operators Use built-in functions Unsupported 
Membership 
Operitors Unsupported Unsupported 
RexxRE R i 

Regular Expressions ego Seo nas pariote Unsupported 


external Library 


Built-in Functions 


About 70 functions 


15 functions, plus about 55 Control Variables 


Data Types 


Everything's a string, types are reflected 
in usage 


Defined by usage 


Function to Check 
Data Type 


datatype 


&DATATYPE 
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ANSI Rexx 


CLIST 


Collections of Variables 


Use compound variables 


Unsupported, you would have to 
program this 


Associative Arrays 


Use compound variables 


Unsupported 


Multidimensional Arrays 


Use compound variables 


Unsupported 


Stack & Queue Operations 


Yes (push, pull, parse pull, queue, 
queued) 


Unsupported as a generalized feature, 
but can manage the terminal input 
buffer as a stack 


Decimal Arithmetic 


Default 


Unsupported 


Flow of Control 


if, do, select, call, exit, return, iterate, 
leave, signal, nop 


IF-THEN-ELSE, DO, SELECT, GOTO, 
EXIT, RETURN, END, SYSCALL, 
ATTN, ERROR, TERMIN, TERMING 


Getting Return Code 


RESULT set by subroutine RETURN 


GOTO none (use signal) GOTO 
Run External Routine call EXEC 
Calling Subroutine call SYSCALL 
ei pea nace procedure expose Use PROC 
Subroutine End return END 
special variable RC &LASTCC, &MAXCC for highest 


return code set 


Trace Script Execution 


trace (instruction), trace (function) 


Use CONTROL statement (CONTROL 
SYMLIST LIST CONLIST MSG) 


Show Full Execution 


tracea 


CONTROL LIST 


Exception Handling 


signal 


ERROR, ATTN 


Standard Exceptions 


novalue, error, failure, halt, notready, 
syntax, lostdigits 


ATTN (attention key pressed), ERROR 
(traps any of more than 100 error 
conditions) 


Attention Routines 


signal on halt 


ATIN 


Run an Operating System 
Command 


Just issue the command string 
(Rexx passes unrecognized strings to the 
default active environment) 


Just issue the command 


Trap TSO/E Command Output 


OUTTRAP external function 


&SYSOUTTRAP, &SYSOUTLINE 


Terminate Process exit EXIT 
End with Return Code exit 8 EXIT(8) 
say "Enter your name:" WRITE Enter your name: 
Get I t 
ia parse pull name READ NAME 
Reading from Terminal pull, parse instructions READ, READVAL 
Writing to Terminal say instruction WRITE, WRITENR 
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ANSI Rexx CLIST 
: linein 
Read Input Record from File execio (mainframe only, not ANSI) GETFILE 
: ‘ lineout 

Write Output Record to File execio GHainian e\orily nOLANSH PUTFILE 

onchGn iaplicis 
Open and Closing Files Sere rik ; OPENFILE, CLOSFILE 

execio (mainframe only, not ANSI) 
Array Read/Write execio (mainframe only, not ANSI) Unsupported 
Detecting File EOF Sets return code Treats as a detected error 
Write without line feed Unsupported WRITENR 
Get Date and Time date and time functions &SYSDATE, &SYSTIME 
String Parsing PARSE instruction a few string functions 
Get Length of a String length("MYSTRING") &LENGTH(MYSTRING) 
Get a Substring substr("MYSTRING",1,4) &SUBSTR(1:4,MYSTRING) 


Sources include RexxInfo.org and the IBM manual TSO/E CLISTS. Also z/OS TSO/E REXX User's Guide 
compares Rexx with Clists. Two Rexx books have comparison chapters on this topic: REXX in the TSO 
Environment by Gabriel F. Gargiulo, and The REXX Handbook by Gabriel Goldberg and Philip Smith. 
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Mainframe Rexx <--> ANSI Rexx 


These charts enumerate the exact differences between mainframe and ANSI-1996 standard Rexx. 


They may be helpful in language conversions, or if you know one of these two language variants and 
want to learn what is different in the other. 


Profiles 
ANSI Rexx Mainframe Rexx 
* A superset of the original TRL-2_ |, Ns 
Defaul 1 for all IB 
language definition defined in 1996 Pe : ones anpude than 
* Runs on all platforms from cell aU ins OP Cre aNE yer 
Usage * The only high-level language that interfaces 
phones to supercomputers : ; 
: to all mainframe environments and address 
* Several open source interpreters 
: spaces 
available 
Compiler 
Available N° as 
Open Source |Yes No 


Programming Scripting, Procedural, Functional _|Scripting, Procedural, Functional 
Paradigms (not object-oriented) (not object-oriented) 
User Group _|Rexx Language Association Rexx Language Association 
Onli 
is ; www.RexxInfo.org www.RexxInfo.org 
Information 
Forum RexxLA forum Rete orn, 


Experts Forum @IBMMainframes.com 
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Language Comparison 


ANSI Rexx Mainframe Rexx 
Requires "Rexx" in 1st line comment No Usually 
ANSI Symbols (aka character set) Yes Yes, a superset 
ANSI standards f <j itivity, free f tti 
standards for case-insensitivity, free formatting, Vee Yes 
etc 
ANSI String Notations (character, hexadecimal, and 
: Yes Yes 
binary) 
ANSI Notations for statement separator, line 
‘ ; ; Yes Yes 
continuation, comments, assignment, etc 
ANSI Notation for Parentheses (following functions 
: 5 Yes Yes 
and for expression evaluation) 
ANSI Notation for Operators (Arithmetic, Comparison, 
: ; Yes Yes 
Logical/Boolean, and Concatenation) 
ANSI Notation for Compound Variables Yes Yes 
Instructions Conform to ANSI-1996 Yes i eee en Ney 
listed below 
Functions Conform to ANSI-1996 Yes ea A cata a asa 
listed below 
Includes Instructions beyond ANSI No UPPER 
EXTERNALS, FIND, INDEX 
Includes Functi ANSI 4 : 4 
cludes Functions beyond ANS No JUSTIFY, LINESIZE, USERID 
z/OS: yes, if Stream I/O Package is 
Stream I/O Yes installed 
z/VM: yes 
EXECIO No Yes 
Array Read & Write No Yes with EXECIO 
DBCS Support No Yes via 13 functions 
z/OS: yes, 19 External Functions 
TSO/E External Functions No z/VM: covers many of these through 
similar VM commands 
z/OS: yes, 10 Rexx Commands 
TSO/E Rexx Commands No z/VM: covers many of these through 
similar VM commands 
Explicit T inal Buffer/Stack Manipulati 
xp 1C1 ermina UL er/ ac anipu. ation. No Yes 


Commands 


Run an Operating System Command 


Just issue the 
command string 


Just issue the command string 
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Mainframe Instructions that Differ from 


Instruction Mainframe Rexx 
z/OS and z/VM do not support two formats introduced by ANSI-1996: 
ADDRESS ADDRESS [ environment ] [ command ] [ redirection ] 
ADDRESS [ [ VALUE ] expression [ redirection ] ] 
CALL z/OS does not support NOTREADY 
z/OS and z/VM add two more template options: EXTERNAL and NUMERIC. z/OS only 
PARSE supports the LINEIN option if the Stream I/O package is installed, while VM supports this 
natively. 
z/OS supports the conditions ERROR, FAILURE, HALT, NOVALUE, and SYNTAX. z/VM 
SIGNAL supports ERROR, FAILURE, HALT, NOTREADY, NOVALUE, and SYNTAX. Neither 
support LOSTDIGITS. 
TRACE z/OS and z/VM support the additional flags: ! and S. They also support this alternative 
format for the trace instruction: TRACE [string] | [symbol] | [ [value] expression] 
UPPER A mainframe-only instruction (not in ANSI) 
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Mainframe Functions that Differ from ANSI-1996 


Function Mainframe Rexx 
ADDRESS z/OS and z/VM do not support this format: ADDRESS([option]) 
CHANGESTR Unsupported by z/OS and z/VM 
CHARIN Supported by z/OS if the Stream I/O Package is installed, while VM supports this natively. 
CHAROUT Supported by z/OS if the Stream I/O Package is installed, while VM supports this natively. 
Supported by z/OS if the Stream I/O Package is installed, while VM supports this natively. 
CHARS z/OS and z/VM only support the format of the CHARS function without the C or N option. 
Returns 1 if there is at least one character available in the stream and 0 otherwise. 
COUNTSTR Unsupported by z/OS and z/VM 
z/OS and z/VM add two more TYPES to the list: 
DATATYPE C -- returns 1 if string is a mixed SBCS/DBCS string 
D (Dbcs) -- returns 1 if string is a DBCS-only string enclosed by SO and SI bytes 
z/OS and z/VM add two more OPTION_OUT parameters: 
DATE C (Century) -- the number of days, including the current day, since and including January 1 
of the last year that is a multiple of 100 in the form: ddddd (no leading zeros) 
J Julian) -- date in the format: yyddd 
A mainframe-only function (not in ANSI) 
z/VM: returns the number of elements in the terminal input buffer (system external event 
EXTERNALS queue) 
z/OS: there is no equivalent buffer. Therefore, in the TSO/E implementation of REXX, the 
externals function always returns a 0 
FIND A mainframe-only function (not in ANSI) 
INDEX A mainframe-only function (not in ANSI) 
JUSTIFY A mainframe-only function (not in ANSI) 
LINEIN Supported by z/OS if the Stream I/O Package is installed, while VM supports this natively. 
LINEOUT Supported by z/OS if the Stream I/O Package is installed, while VM supports this natively. 
Supported by z/OS if the Stream I/O Package is installed, while VM supports this natively. 
LINES z/OS and z/VM only support this format: LINES([name]) 


z/VM: the function returns the number of completed lines remaining in the character input 
stream. 
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A mainframe-only function (not in ANSI). 

z/VM: returns the current terminal line width. Returns 0 in any of these cases: 
* Terminal line size cannot be determined. 

* Virtual machine is disconnected. 

* The command CP TERMINAL LINESIZE OFF is in effect. 


LINESIZE 
NE z/OS: if the script runs in foreground, returns the current terminal line width minus 1 

(the point at which the language processor breaks lines displayed by the say 
instruction). If the script runs in background, this function always returns 131. In non- 
TSO/E address spaces, this function returns the logical record length of the OUTDD file 
(default is SYSTSPRT). 

QUALIFY Unsupported by z/OS and z/VM 
Supported by z/OS if the Stream I/O Package is installed, while VM supports this 

STREAM natively. Options are implementation and platform dependent, refer to the manual for 
your interpreter. 

TIME z/OS and z/VM support solely this format: TIME(option_out) 

TRACE z/OS and z/VM support two additional settings: ! and S 

USERID A mainframe-only function (not in ANSI) 


Sources include RexxInfo.org, and the IBM manuals TSO/E REXX Reference and REXX VM Reference. 
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How to Code with JSON 


by Howard Fosdick and Mark Hessling 


Overview 


There many different formats for data interchange. One that has become very popular as JavaScript 
has come to prominence is JavaScript Object Notation, or JSON. 


JSON is: 

(1 Anopen standard for data interchange 

Human readable 

Self-descriptive (labels identify the different data elements) 
Object based 


OoOoo 


Usable from any programming language 


1 Simple to work with and widely used 


JSON is one of several common data storage and interchange formats. Recall that Chapter 18 
explored how the use the RexxXML package with Rexx. XML, or Extensible Markup Language, is an 
alternative data interchange format to JSON. 


XML and JSON are similar standards in that both are human-readable, self-descriptive, and 
organize data into hierarchies. Each has its advantages. XML was originally designed for 


describing documents. It supports namespaces, comments, and various encoding schemes. 


JSON comes from a JavaScript heritage. It was designed to describe data objects and arrays. It’s 
generally considered easier and quicker to read or parse than XML. 


In this chapter, we'll explore the Rexx/JSON interface. You can download this interface from 
Sourceforge at https: //sourceforge.net/projects/rexxjson/. 


Background 


JSON files are data objects that display as readable text files. They were originally designed for 
transmitting and storing JavaScript objects. Today they are an international standard used by all 
computer languages. 


JSON notation is based on JavaScript and is quite simple: 


Appendix S 


O 


O 


O 


O 


Name/value pairs describe each data element 
Commas separate data elements 
Curly braces {} hold objects 


Square brackets [] hold arrays 


JSON values are data typed as: object, array, string, number, boolean, or null. Strings are enclosed in double 


quote marks: "string data". When stored to disk, JSON files typically have the extension: .json. 


Rexx/JSON 


The Rexx/JSON product is an external function package that lets your Rexx programs to manipulate JSON 
data. The product includes about three dozen functions. About 20 of them help programs create, modify, 
and maintain JSON objects and arrays. Another dozen focus on extracting data from JSON data objects. A 
final half dozen functions help with outputting JSON data and performing administrative tasks. 


Here’s a very simple Rexx/JSON program. It just creates a JSON data object, and displays it to the user: 


/* Create a JSON object and display it to the user 2 /f 


/* Link to JSON external function package t9/, 
call RxFuncAdd "JSONLoadFuncs", "rexxjson", "JSONLoadFuncs" 
call JSONLoadFuncs 


/* Create a JSON object if 


my obj = 


JSONCreateObject () 


item = JSONAddNumberToObject( my obj, "id", 1 ) 
item = JSONAddStringToObject( my obj, "message", "Hello" ) 


item 


JSONAddBoolToObject( my obj, “flag", 1 ) 


/* Display object contents, clean up, and exit yf 
say JSONPrint (my _ obj) 
call JSONDelete my obj 


exit 


Here’s sample output from a run of this script. You can see that it's a single object (identified by the 
curly braces), and that it contains three name/value pairs. The first is a numeric data type, the second is 
a string, and the last one is boolean: 


{ 
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Wialye lg ily 
"message": "Hello", 
Mella Ss eiewe 


How to Code with JSON 


To explain the script, the first two executable lines make the Rexx/JSON external function library available to your 
program. You routinely code these two lines at the start of every Rexx/JSON script: 


call RxFuncAdd "JSONLoadFuncs", "rexxjson", "JSONLoadFuncs" 
call JSONLoadFuncs 


The JSONCreateObject function creates a new object we've called my_obj: 


my obj = JSONCreateObject () 


The next three lines add number, string, and boolean data items to that object, respectively. JSON data elements are 
always typed, so you use JSONAddNumberToObject to add a number, JSONAddStringToObject to adda 
character string, and JSONAddBoolToObject to add a boolean flag. In each of these functions, the first parameter 
gives the object name, while the second and third parameters provide the name and value of the data elements. 
Thus you create a name/value pair. 


Each of these functions returns an internal object element identifier into the variable named item. An empty 
return value signifies an error occurred, so this is where you would error-check in a program that's not just an 
example. 


The invocation of JSONPrint then displays the three data elements in the object my_obj. Notice how the output 
respects JSON syntax: curly braces surround the object, and each element presents as aname/value pair, with string 
values in double-quotation marks. 


A Conversion Program 


Another competing data standard to JSON is Comma Separated Values, or CSV files. You're probably familiar with 
CSV files from spreadsheets, since users routinely export their data to them. 


A CSV file consists of a list of data elements separated by commas. Sometimes you'll see strings surrounded in 
quotation marks, but usually you won't. Like JSON files, CSV files are simple and human-readable. But JSON files 
are object-oriented, whereas CSV files are not. CSV files have no notion of objects (or arrays for that matter). 
They're simply a series of strings, separated by commas. 


JSON identifies or tags each data element with its name. These are its name/value pairs. Thus, JSON files 
are self-descriptive. CSV files only contain the data elements themselves, without labels of any kind. So JSON 


is a bit more sophisticated in its structure. 


Let's take a look at a simple program that reads a CSV file exported from a Microsoft Excel spreadsheet. 
The program converts each record into a JSON object and transmits it. 


The CSV input file is in this format. There may be from one to three phone numbers per record (that is, per 
person): 


last_name, first _name, emaill, email2, phonel, phone2, phone3 
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Here's a short, three line sample input file: 


Duck, Donald J.,theduck@abl.com, topduck@sbc.com, 555-1717,555-4751, 555-7395 
Roadrunner, King, fastone@sbc.org, catchme@abc.com,555-1111,, 
Pig, Porky, porker@abc.net, thepig@cec.com, 555-8787,555-0012, 


The output from the program (below) shows how it has encoded this CSV data into three JSON object instances. 
Each is identified by the required curly braces. 


Within each object are two JSON arrays, denoted by brackets. The first is the email array, which contains 
two email addresses. The second is the phone_array, which contains from one to three telephone numbers. 
Missing phone numbers are represented as null strings. They could have alternatively have been represented 
the JSON nu11 data type. 


This screenshot shows the program's output. These are the data objects this program would transmit: 


mexxjson 1.6.1 16 Aug 2023 cJSON v1.7.15 


KC" last_name"’: "Duck", "first_name’: "Donald J.“."email_array": ["theduck@abl.com", 't 
iopduck@shc .com" 1], ’phone_array™: [('555-1717". "555-4751". "555-7395" 1> 


XK" last_name“: Roadrunner”, "first_name"’: King", “email_array":[''fastone@shc .org"”," 
icatchme@abc .com"'],phone_array": [555-1111 ",."","'"'1> 


K"last_name"’: "Pig", "first_name"’:"Porky",. "email_array": [porker@abc .net". "thepig® 
icec.com'], "“phone_array’:['555-8787", "555-6612"."""1> 


call RxFuncAdd "JSONLoadFuncs", "rexxjson", "“JSONLoadFuncs" 
call JSONLoadFuncs 

say JSONVariable("version") JSONGetVersion () 

say 


parse arg filename /* vead the file name supplied on the command line */ 


do while lines(filename) > 0 
joeiese llores Ieee YU, ieee V) eis 9p! aie? Yi," jlo VY" jojoiee Y,! jolavoreve.s} 


/* create the record object, add last and first names to it */ 
record obj = JSONCreateObject () 
die = WSOniNelelsicesae WoOloecie ( weCronctel Clos}, Vileusic meme, laste, Wirsiesie memie, ieaiesic )) 


/* create two arrays, for the emails and phone numbers yf 
email array = JSONAddArrayToObject( record_obj, “email array" ) 
phone array = JSONAddArrayToObject( record_obj, "phone array" ) 


/* add emails and phone number(s) to the two arrays “yf 
item = JSONAddStringToArray( email array, emaill, email2 ) 
call JSONAddStringToArray phone array, phonel, phone2, phone3 


/* here's where you stringify and then transmit the object af 
say JSONStringify( record obj ) 


say 
call JSONDelete record_obj 
end 


How to Code with JSON 


The above program starts with the two mandatory lines that invoke access to the Rexx/JSON external 
function library. The third line uses functions JSONVariable and JSONGetVersion to print the first 
line you see in the program output. That line lists the version of the Rexx/JSON product. 


The parse arg filename statement accepts the name of the CSV file to process from command line 
input. Then, the do while loop will process each CSV file line, one at a time. 


The parse linein instruction separates the input line into its constituent data items, recognizing 
that commas delimit the data. Then the JSONCreateObject function creates an object instance to 
contain the data from one line of CSV data. 


The JSONADDStringToObject function adds the person's last name and first name as strings into the 
object. Note that the JSON standard uses double quotation marks for strings (whereas it's common to 
see either single or double quotation marks in Rexx). 


The two JSONAddArrayToObject functions define the email and phone arrays as part of the object 

record obj. Then the two JSONAddStringToArray functions add the email and phone values to 

the object. To illustrate different coding techniques, the first invokes JSONAddStringToArray as an 
inline function, while the second one uses a cal1 instruction. 


Note that the JSONAddStringToArray function accepts multiple arguments, so we require only a 
single invocation to add two email addresses, or to add multiple phone numbers. 


In JSON, you must convert an object to a string to either transmit, display, or print it. This is referred 
to as "stringifying" the object. The JSONStringify function performs this task. 


The program simply displays the stringified records to the user. If you wanted to transmit them, this is 
where that statement would be placed. 


Finally, the program deletes the object via JSONDelete and ends. 


You could alternately code this program by creating a single object at the start of the program, then 
reusing that object (instead of continually creating and deleting objects for each record). You would use 
functions like JSONDelete, JSONDeleteItemFromArray, and JSONDeleteItemFromObject to 
delete elements from the JSON object in order to implement this change. 


Using JSON for Passing Data Objects 


You can also use Rexx/JSON objects to pass structured data between subroutines in a program. This is an 
alternative to using the traditional procedure ... expose mechanism for that purpose. 


With Rexx/JSON, you can create a JSON data object in a program and then pass it into a subroutine that accesses it 
with parse arg. The subroutine could manipulate the object's contents. Then the calling routine can access the 
object's changed contents when the subroutine completes. Here's an example: 


call RxFuncAdd "JSONLoadFuncs", "rexxjson", "“JSONLoadFuncs" 
call JSONLoadFuncs 


employee.!id = 10 

employee.!name = 'Mark' 

employee.!available = 1 

employee object = JSONCreateObjectFromStem( 'employee.!"' ) 
bOSsMobsject: — ISONCreateObyectk (idl 9 20;, snamet, a Kate! ) 
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call JSONAddObjectToObject employee object, 'boss', boss object 

call mysub employee object 

say 'Still available? ' JSONGetObjectItemValue( employee object, 'available' ) 
call JSONDelete employee object 

exit 0 


mysub: procedure 

parse arg object 

count = JSONObjectToStem( object, 'stem.!' ) 

sen Wells tent aiel aise"! sicim, I acl 

say 'Value of name is:' stem.!name 

say 'Value of available is:' stem.!available 

say 'Value of boss name is:' JSONGetObjectItemValue( stem.!boss, 'name' ) 
call JSONDeleteItemFromObject object, 'available' 

call JSONAddBoolToObject object, 'available', 0 

Tae Wlieial 


The output from this program is: 
Value of id is: 10 
Value of name is: Mark 
Value of available is: 1 
Value of boss name is: Kate 
Still available? 0 


So, JSON provides a handy means to pass data between subroutines. It best applies to situations where the 
data lends itself to mapping into structured JSON data objects. 


Summary 


JSON is a very popular data interchange and storage format driven the dominance of JavaScript in web 
programming. It's a simple human-readable format that offers an alternative to XML and CSV files, among 
many other options. 


This appendix walked you through a few example programs to orient you to Rexx/JSON programming. The 
manual that downloads with the product offers all the detail you'll need to code more sophisticated 
Rexx/JSON scripts. 


Thank you to Mark Hessling for use of his code example, and for his years of leadership and support for key 
Rexx tools including Rexx/JSON, the Regina Rexx interpreter, and a dozen others you can download at 
www.Rexx.org. 
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Java Integration 


By Howard Fosdick and Dr Rony G. Flatscher 


Overview 


Since its invention in the 1990s, Java has risen to rank as one of the world's most popular 
programming languages. 


Part of this popularity has to do with the wide range of supporting classes and methods available in 
its vast free code repositories. The result is that many products feature Java automation "hooks" or 
application programming interfaces (APIs). 


Java has thus become the common vehicle to automate many program products. Examples span the 
gamut from Android applications, to office suites like LibreOffice, to the SAP enterprise resource 
planning product, and more. 


Rexx fully integrates with Java. So all Java capabilities are available through Rexx. This chapter 
describes two different ways to capitalize on Java's strengths and benefits with Rexx. 


NetRexx 


One way to integrate Rexx and Java is through NetRexx. As described in Chapter 30, the NetRexx 
language was developed by Rexx's inventor, Michael Cowlishaw. It's a Rexx-like language that 
features syntax similar to standard Rexx, but uses the Java Virtual Machine and fully integrates 
with Java. In fact, NetRexx was the first language after Java itself to use the JVM. 


NetRexx enables you to develop Java applications, servlets, Java server pages, and beans. It 
employs all Java classes and methods. The advantage to NetRexx is that it allows you to script in a 
simpler, Rexx-like language, instead of programming the more syntax-oriented and difficult Java. 
You get the benefits of easier coding, higher productivity, and better assurance of code quality by 
using NetRexx. 


In sum, NetRexx makes Java easier. Chapter 30 provides more detail and a basic introduction to 
the language. 
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BSF4Rexx and BSF40oRexx 


Another approach to integrating Rexx with Java is to use one of the two tools that bridge the worlds of Rexx and 
Java. 


Bean Scripting Framework for Rexx, or BSF4Rexx, allows you to use all Java's classes and methods from a classic 
procedural Rexx interpreter, such as Regina Rexx. 


Bean Scripting Framework for ooRexx, or BSF4ooRexx, enables you do the same when using Open Object Rexx. It 
makes it possible to fully exploit Java and all its facilities while programming in ooRexx. 


BSF4ooRexx is the more popular of the two products, since ooRexx is object-oriented and most who want to 
leverage Java capabilities prefer object-oriented programming. 


Let's take a closer look at BSF40oRexx. 


Installation 


BSF400Rexx comes in the form of an external Rexx function library. A base package called BSF.CLS supplies BSF and 
its routines that camouflage Java as ooRexx, and thereby give ooRexx the ability to exploit all Java objects, classes, 
and methods (regardless of their origins). 


Note that BSF4ooRexx is a two-way bridge. It also allows Java programs to interact with ooRexx objects, that is, to send 
messages to o0Rexx objects. 


You can download BSF4o0oRexx from its home at SourceForge at https: //sourceforge.net/projects/bsf4oorexx/. 
The download includes the product, installation instructions, all the documentation, and tons of useful programming 
examples and tutorials. Download the version -- 32- or 64- bit -- that matches your computer. 


The product runs with ooRexx in all its environments: Windows, Linux, and macOS. Be sure to read the installation 
instructions for your particular platform. 


The two prerequisites for BSF4o0oRexx are Open Object Rexx, and a Java environment. Java can be either the Java Development 
Kit (JDK) or the Java Runtime Environment (JRE), depending on your goals. Java can be downloaded from any of several 
sources including Oracle Corporation at www.java.com, www.OpenJDK.org, and BellSoft at www.bell-sw.com. 


JavaFX is recommended as a platform for developing and supporting web and desktop applications. It's available at most 
websites that support Java downloads. 


Once you've downloaded BSF40oRexx, uncompress it ("unzip" it), and run its install script. The platform-specific 
instructions with the product give you exact details. You may have to set a couple environmental variables, for example. 


You'll notice that the product's directory structure is optimized to make installation and use as simple as possible. 


For example, the library or 1ib directory is where you could copy any Java archives (or .jar files) to ensure that 
they're accessible. Documentation, sample code, and other items are clearly separated into their own subdirectories. 
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Examples 


BSF4o00Rexx ships with dozens of well-documented coding examples. We'll present just a 
couple very simple ones here to give you a feel for how the product works. You'll easily learn 
much more from the example code and documentation that ship with product itself. 


These code snippets were all written by Dr Rony G. Flatscher, inventor of BSF400oRexx and the key 


developer behind it. They're all adopted from his many excellent tutorials on how to use BSF4ooRexx. 


This first code snippet shows how you could create an instance of a Java class, in this case, 
java.awt .Dimension. The BSF class helps you create this object using the required fully qualified 
class name. The ooRexx script simply displays the string that the message toString returns. 


Note how the ::requires directive loads the ooRexx to Java bridge. 


dim=.bsf~new("java.awt.Dimension", 100, 200) -- create with width and height 
say dim~toString -- show string value 
::requires BSF.CLS -- get Java support 


Program output would look like this: 


java.awt.Dimension[width=100, height=200] 


Here's an enhanced version of the program that shows how you can use Java fields as attributes in your 
ooRexx code: 


-- see Javadocs: search Internet with "javadoc java.awt.Dimension" 
dim=.bsf~new("java.awt.Dimension", 100, 200) 

say dim~toString 

dim~height=321 -- treat field height as if it was an ooRexx attribute 
dim~width =1024 -- treat field width as if it was an ooRexx attribute 
Say Chime Sieiesing 


::requires BSF.CLS == Gite Jehvel Sloot. 


Program output is this: 


java.awt.Dimension [width=100, height=200] 
java.awt .Dimension [width=1024, height=321] 
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This example shows how to import a Java class from within ooRexx with BSF4ooRexx. The imported Java class can 
be used exactly as if it were an ooRexx class. Remember that you must refer to the fully qualified Java class name, 
and that Java names are case-sensitive. But the rest of your coding -- in o0Rexx -- is not case sensitive. So coding is 
easier because you don't have to worry about case sensitivity in field and method names. 


-- see Javadocs: search Internet with "javadoc java.awt.Color" 
CluColorogit . liloorcClass (“java awe,Color”) -= inmoore Jewva class 


red=clzColor~red == Git StetLe iwieicl tow wecl e@iloie 
say "red:" red~toString -- toString will show the RGB values 


myColor=clzColor~new(100,200,3) -- create an individual color 
say “un7Colloies miv{Coll@ie OSE iinG) 

brighter=myColor~brighter -- get a brighter color 

say "brighter:" brighter~toString 


::requires "BSF.CLS" -- get ooRexx-Java bridge 


The first line in the code imports Java class java. awt .Color. Subsequent lines create a new color instance and then 
render it brighter with the value that brighter returns: 


red: java.awt.Color[r=255,g=0,b=0] 
myColor: java.awt.Color[r=100,g=200,b=3] 
brighter: java.awt.Color[r=142,g=255,b=4] 


Here's a final example that invokes Java class createJavaArray to create and manipulate a Java array. 


-- create a two-dimensional (5x10) Java Array of type String 
arr=.bsf~bsf.createJavaArray("java.lang.String", 5, 10) 


arr[1,1]="First Element in Java array." -- place an element 
arr~put ("Last Element in Java array.", 5, 10) -- place another one 
do © over arr -- loop over elements in array (makearray) 
say oO 
end 
say 
do with index i item o over arr -- loop over elements in array 
seny aveh wo 
end 
::requires BSF.CLS -- loads Java support 


Here's sample output: 


First Element in Java array. 
Last Element in Java array. 


1,1: First Element in Java array. 
5,10: Last Element in Java array. 
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As you can see, you can use the Java array object in your ooRexx code exactly as if it were a Rexx array. Indices 


wow 


start at 1, and you can use all ooRexx array methods like "AT", "[]", "PUT", "[]=", "supplier", and the like. You 
can process the array with ooRexx logical constructs such as do ... over and do with ... over. 


Potential Uses 


The ways you can apply a generalized tool like BSF4ooRexx are limited only by your imagination. Some 
examples shipped with the product show how to use it with: 

Cl Office suites like LibreOffice and OpenOffice 

(1 Microsoft's .NET platform for software development 
CL] Cé# classes 
O 


The Extensible Stylesheet Language (XSL) used to manipulate Extensible Markup Language 
(XML) documents 


(1 = Java classes like DOM and SAX for working with XML 

C1} Java Application Control Language (JACL) scripts 

L) The Java2D (JDOR) to ooRexx interface 

CL) All other Java classes, methods, and objects 
Summary 


Rexx fully integrates with Java, much more so than most programming languages. Combining Rexx with Java 
gives you the best of both worlds: huge Java code repositories and all Java's capabilities, along with Rexx's 
strengths in ease of use, coding, and software maintenance. 


There are two basic ways to meld Rexx and Java. One is to use NetRexx, the first language after Java to use the 
Java Virtual Machine. NetRexx seamlessly integrates with Java in every way. 


NetRexx is a "Rexx like" language in that it does not conform to Rexx standards like TRL-2 and ANSI-1996. 
However, Rexx programmers can pick up the language very quickly (it was designed with that very purpose in 
mind). And classic Rexx scripts can easily be converted to NetRexx by the free script Rexx2Nrx. Chapter 30 
provides more information and some simple programming examples. 


The other way to integrate Rexx and Java is to use Open Object Rexx along with the Bean Scripting Framework 
for ooRexx, or BSF400Rexx. 


This tool gives you full access to all Java's repositories and capabilities from within ooRexx. It's a two way bridge 
-- o0Rexx programs can use Java code and tools, and Java programs can use 00Rexx code. 


For more information on BSF400Rexx, simply download the product from its home at SourceForge at 
https: //sourceforge.net/projects/bsf4oorexx/. The download comes with a vast array of tutorial 
documents and example scripts that demonstrate its use with many different tools. 
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Another good resource is Dr Rony G. Flatscher's website at https: //ronyrexx.net/. It contains articles, tutorials, 
application projects and more using BSF400Rexx. 


Finally, we mention the Rexx Language Association website at www .RexxLA.org. The Rexx LA is the organization 
charged with formal responsibility for developing and supporting the BSF40oRexx project. 


Thank you to Dr Rony G. Flatscher for permission to use his code examples in this chapter, and for his years of 
dedicated leadership of the BSF4o0oRexx and BSF4Rexx projects. 
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The Secrets of PARSE 


by Frank Clarke 


Overview 


PARSE is screamingly fast. Whatever needs doing, if it can be done by PARSE, it will be faster 
than any alternative. 


We will look at several instances of PARSE, concentrating on PARSE VALUE, the most flexible 
parsing method of all. The format of a PARSE VALUE statement is: 


PARSE VALUE <value-string> WITH <template> 


Incrementing a Stem Array 


It's not at all uncommon to see stem arrays incremented/populated as follows: 


zx = stem.0 + 1 
stem.zx = 'stuff associated with zx' 
stem.0 = zx 


While there's nothing 'wrong' with that, consider what PARSE VALUE can do for it: 


parse value stem.0+1 'stuff associated with zx' with, 
ZX stem.zx 1 stem.0 


Appendix U 


The value string is formed by adding 1 to the current value of stem. 0 and then appending whatever is to be 
stowed in the next element of the array. The template orders the first word of the value string to be assigned to 
variable zx and the remainder to be loaded to stem. zx. The parsing position is then reset to 1 (the beginning of 
the string) and the first word loaded to stem. 0, discarding the remainder. The effect is exactly what is 
accomplished by the 3-line example above. One PARSE eliminates three statements. It takes a bit of analysis the 
first time one sees it, but after that, it will seem as natural as breathing. 


Setting a Variable to a Specified Value or its Default 


We'll assume here that GETVAL is a local subroutine that fetches a value based on some 'KEY'. What we 
typically see is: 


key value = GETVAL( 'KEY' ) 
if key value = '' then, 
key value = 'The.Default.Value' 


GETVAL is used to provide a value associated with 'KEY' (if such exists). If such does not exist and 
GETVAL returns a null, the next statement salts key value with the default. 


Alternatively, we may: 


parse value GETVAL( 'KEY' ) 'The.Default.Value' with , 
key value 


That is, if GETVAL returns a value, it is assigned to key value and the remainder of the value-string is 
discarded, but if GETVAL does not return a value, the only thing in the value-string will be the default value, 
and that is assigned to key _ value. 


On the theory that "it's better to have and not need than to need and not have", traceability can be built-in to 
code simply and easily using that same technique: 


parse var opts "TRACE" tv . 
parse value tv "N" with tv . 
re = Trace("O"); re = Trace (tv) 


That is, the code looks in variable opts to find the string TRACE and whatever token follows it is loaded to 
variable tv. If opts does not have a TRACE string, tv will be empty. The next line supplies tv and a 
default value for tv and loads the first of these back into tv. If tv was originally null because the first 
PARSE didn't find it, there's still the default and that becomes the final value. 
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Since we're talking tracing here, the next line turns the Trace off unconditionally and then turns it on 
with whatever value is in tv. When the enclosing routine is invoked: 


SDOIT2ZIT ... ... trace ?r.. 


?x (interactive results) is set as the trace mode, and you can watch the program execute line-by-line. If 
that trace ?r wasn't included in the parameter list, the Trace will be N (normal -- effectively 'off') and 
the program will operate without tracing. 


Initializations 


It's common to see: 


adlib = ''! 
batch = 0 
common = '! 
default = 121 
exc ct = 0 


but how much easier to: 


parse value '121' Copies('0 ',30 ) with, 
default batch exc_ct 

parse value '' with, 
adlib common (&c.) 


To add more variables to either, just add them to the appropriate list, and if that list starts getting too long, change 
the Copies value to a higher number. 


This is especially useful for date/time-setting: 


parse value Date("S") Time("S") Time("N") with, 
yyyymmdd sssss hhmmss 


because date and time values are guaranteed to be in-synch only if they are all captured in a single statement. 


Summary 


PARSE VALUE provides speed and flexibility for doing in a single statement many tasks that might otherwise 
be done by coding several statements. 


These examples show how you can leverage it for maximum efficiency. 
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Overview 


Array I/O refers to reading or writing more than a single record to or from a Rexx array with a single 
instruction. You could, for example, read a hundred records from a file into an array with a single 
statement. Or, you could write those hundred records from a Rexx table to a file with a single 
instruction. 


You could even read an entire file into an array at once. Or write an entire dataset with one instruction. 


Rexx does not formally support array I/O in its two key language definitions, TRL-2 or the ANSI-1996 
standard. Nonetheless, array I/O is available to you, regardless of which Rexx interpreter you use. 


This chapter explores array I/O. What are its advantages, and how do you code it? Let's get started. 


Rexx Arrays 


First off, recall how to code arrays. As Chapter 4 elucidated, Rexx implements arrays (or tables) 
through the means of compound variables (or what many call stem variables). 


A compound variable consists of a stem and a tail. A simple list or single dimension table can thus 
be coded as: my_array.i. my array. is the stem (note that it includes the period), while j is 
the tail or subscript. 


To perform array I/O, then, you read multiple records from a file into a stem in a single statement. 
Or you write multiple lines from a stem to a dataset. 
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Advantages 


Array I/O has several advantages. 


First, remember that Rexx arrays are dynamically sized. This is perfect for working with files of unknown 
size. Programming languages that only support preallocated, statically sized arrays do not fit well with 
array I/O because they lack flexibility. Dynamically-sized arrays allow you to read in any number of 
records in a single statement and the array will expand as necessary to receive the data. 


Second, remember that for most implementations, the size of a Rexx array is limited only by the size 
of available memory. So reading in an entire dataset and processing it as an array can be both 
convenient for you as a programmer, and also more machine-efficient. 


Finally, remember that Rexx supports a powerful use of arrays usually referred to as associative arrays or 
content-addressable arrays. That is, you can subscript into your tables with character string values, rather 
than just numbers. Array I/O reads or writes arrays to/from files based on consecutive array positions. But 
that's not to say you can't transpose or treat the array as a content addressable structure. This allows for 
highly efficient algorithms for solving certain kinds of problems. (Examples in this book of associative 
arrays are the "telephone code look-up" program in Chapter 4, and the "command help" program in 
Chapter 14.) 


Here are some advantages to array I/O: 


C1 Coding simplicity (one statement replaces an I/O read or write loop) 
1 Easily process a file as if it were an array 

C1 Takes advantage of fast memory speeds for processing file data 

| 


I/O may be more efficient for some platforms (as opposed to reading & processing one record at a time) 


C1 File locking may be minimized (locks need not be held during a loop that includes processing time) 


Let's explore those potential advantages for file locking and maximizing I/O operations. Traditionally, computer 
programs that process all the records in a file employ an algorithm something like this: 


Open the file to read from, and Open the file to write to 
While there is another record to process 
Read the record 
Process the record 
Write results for that record 
End 
Close the input and output files 
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Compare that algorithm to one that reads and writes an entire file in single statements using array I/O: 


Open the file to read 
Read all records into an array 
Close the read file 


Process all records in the array 


Open a file to write 
Write all records from the array to the file 
Close the output file 


You can see the potential advantages here. Both the input and output files are only used (and locked) for the 
minimal possible time. Any time required for processing records is excluded from that time period. 


Further, the operating system is free to optimize large I/O operations, instead of being told to (logically) operate on 
a single record at a time. Of course, the savings here -- if any -- are platform dependent. Different operating systems 
and their underlying hardware handle I/O blocking and buffering in different ways. But the fact remains that for 
some platforms, this second algorithm makes for faster I/O as well as minimizing file locking. 


Coding Array I/O 


So how do you code array I/O? There are several different ways to do this: 


RexxUtil -- Recall that Chapter 13 on "Writing Portable Rexx" on pages 206-207 described an external 
function package named RexxUtil. This cross-platform package runs on all major operating systems with 
most Rexx interpreters. 


RexxUtil includes a collection of ten stem manipulation routines. These enable reading and writing a file 
into/from a stem with a single function. 


Related functions support sorting, searching, and copying the array with single statements, as well as for 
inserting and deleting elements. There's even a RegStemDoOver function that simulates the construct do x 
over y. This makes it easy to code array processing. 


EXECIO -- On mainframe operating systems, the EXECIO instruction implements array I/O. 
Appendix N described EXECIO in detail and provided coding examples. EXECIO allows you 
to read or write any number of records in a single statement, from a single record all the way 
up to all those in the entire file. The size of memory is about the only limitation you'll face in 
using EXECIO. 
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The first example below reads 100 records into the array mydata. The second statement reads an 
entire file into the array myarray, and closes the file after the operation: 


"EXECIO 100 DISKR indd (STEM mydata. " 
"EXECIO * DISKR indd (FINIS STEM myarray. " 


Refer to Appendix N for more examples and more detailed discussion. 

Open Object Rexx -- ooRexx provides array I/O through built-in methods in its Stream Classes. Methods 
like arrayIn and arrayOut implement it. 

ooRexx also has specialized array processing features. For example, the do over construct makes 


array processing more convenient. And the Array Class itself includes a couple dozen supporting 
methods. 


BRexx -- As mentioned in Chapter 22 on BRexx, this interpreter ships with its files.r library. Pages 
374-375 discuss how this implements array I/O and include a sample program. 


These example lines show how to read or write an entire array in single lines: 


call readstem filename, "my array." /* read entire file to array */ 
call writestem 'filecopy.dat', "my array." /* copy file to new file */ 


Address Instruction -- Finally, recall that the address instruction allows coding stems for input, output, 
and error results from system commands. This feature was added in the ANSI-1996 standard. (See page 216 
for discussion.) 


Summary 


Whichever Rexx interpreter you use, and whatever platform you run it on, array I/O is available to 
you. Array I/O can potentially make better use of machine resources from the standpoint of I/O 
operations and resource locking. 


Perhaps more importantly, array I/O is easy to program, makes for more readable code, and in some 
cases can enable better algorithms and more efficient use of machine resources. 
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Overview 


This appendix offers two sets of questions for Rexx job interviews. The first test covers generic Rexx. 
The second specifically covers mainframe Rexx. 


You should be able to complete each test in about a half hour. This is a "from memory" test only — no 
cell phone or computer access allowed. The answers appear after the two tests. 


25 or more questions answered correctly (about 75%) indicate a credible job candidate. Less than 20 
questions correct indicate a candidate who may not be credible. 


Job Interview Questions - Generic Test 


1. What do these two Rexx statements accomplish? 


social security number = '499-55=1212" 
PARSE VAR social security number compl '-' comp2 '-' comp3 . 


2. What does TRACE A do? What does TRACE O do? 


Appendix W 
3. Name two of Rexx’s three special variables, and explain their purpose. 


4. How many characters does the CHARIN function return by default? Can it move the read pointer 
without reading any characters? 


5. Why do you code a SIGNAL instruction in a Rexx program? 

6. What is the function of the ADDRESS instruction? 

7. What is the function of the ADDRESS function? 

8. What two Rexx instructions can be used to implement a Case construct? 

9. How do you set the arithmetic precision — the number of significant digits for calculations ? 

10. What is the difference between the equal to (=) and strictly equal to (== ) operators? 

11. What is the remainder divide operator and why would you use it? 

12. What would you encode to uninitialize (or “unassign”) two variables named ONE and TWO? 
13. What is the difference between the PUSH and QUEUE instructions? 


14. What instruction could you code to leave an endless loop (a “do forever” loop) and proceed to the next 
statement following the DO loop? 


15. On a Windows server, you've been put in charge of project to migrate hundreds of classic Rexx programs to 
Open Object Rexx (ooRexx). All programs you will migrate strictly conform to the ANSI Rexx standard. Would 
you expect that: 


(A) Zero program changes will be necessary because ooRexx runs any classic Rexx program 

(B) The vast majority of programs will run without changes, but you could run into an exception 
(C) You'll have to rewrite most of the classic Rexx programs to run under ooRexx 

(D) ooRexx is not compatible with classic Rexx. You'll have to recode all the programs. 


16. What does the ARG function do when processing input(s) given by a Rexx command (that is, a Rexx 
script run from the command line) ? 


(A) Parses elements in the exact same as PARSE UPPER ARG 

(B) Returns the number of arguments passed from the command line into the program 

(C) Returns 1 if there were one or more arguments passed into the program from the command 
line, and 0 otherwise 

(D) Returns the entire command line as the user entered it 
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17. You're downloading a Rexx script from the web that you want to run on your computer. But you notice that your 
keyboard has no symbol for this one that occurs in the program: >. What symbol could you code instead of +? 


18. How do you code a binary string constant within a Rexx program? 

19. Between the Rexx comparison, arithmetic, and concatenation operators, which has highest priority? 

20. For the compound variable List.j what is the stem, and what is the tail (also called the subscript or index)? 
21. How can you override the default precedence order of operations in a Rexx statement? 

22. What are the OR and EXCLUSIVE OR operators, and what is the difference in how they operate? 

23. Why would you code the PROCEDURE EXPOSE instruction? 

24. When is the NOVALUE condition trap raised? 

25. When you code a Rexx statement in your program, how can you continue it to a second line? 

26. Why would you use the DIGITS function? 


27. When you issue a command to an external environment from your Rexx program, how do you know if that 
command worked? 


28. You have an error number (error code), and you want to find out what it means. How can you do this from 
within a Rexx program? 


29. Which of these is not one of the standard Rexx keywords for trapping errors: ERROR, FAILURE, HALT, 
NOTVALID, and SYNTAX? 


30. In this program, which statement will display output that differs from that of the other two statements? 


one - "one' ; two = "two! 

say (one) (two) /* statement A */ 
say one I | two /* statement B */ 
say one two /* statement C */ 
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31. Does the PULL instruction alter input data? Does PARSE PULL? 


32. What is the effect of the period in this statement? 


PARSE VAR my string item_one item two 


33. How do you initialize all elements of the compound variable stem (aka, an array) named MY_ARRAY. to 0? 


Job Interview Questions - Mainframe Rexx 


1. What do these two Rexx statements accomplish? 


social security number = '499-55-1212' 


PARSE VAR social security number compl '-' comp2 '-' comp3 


2. What command can you use to define a new disk dataset for output from a Rexx program running under 
TSO when you want to specify such parameters as record length, block size, and more? 


3. Why do you encode a FINIS operand on an EXECIO statement? 


4. You have a disk dataset consisting of 20 data elements. At a minimum, how many EXECIO statements do 
you need to read the entire dataset? 


5. Why do you code a SIGNAL instruction in a Rexx program? 

6. What is the function of the ADDRESS instruction? 

7. What is the function of the ADDRESS function? 

8. What two Rexx instructions can be used to implement a Case construct? 


9. How do you set the arithmetic precision — the number of significant digits for calculations — in a Rexx 
program? 


10. What is the difference between the equal to (=) and strictly equal to (== ) operators? 


11. What is the remainder divide operator and why would you use it? 
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12. What word is required in the first line of a Rexx program for some execution environments? 


13. What is the difference between the PUSH and QUEUE instructions? 


14. What instruction could you code to leave an endless loop (a “do forever” loop) and proceed to the next 
statement following the DO loop? 


15. What TSO external function would you code to get information about a dataset? 

16. What is the function of the SYSCPUS TSO external function? 

17. How can you enter an immediate command from within TSO? 

18. What does the immediate command HE do? 

19. Between the Rexx comparison, arithmetic, and concatenation operators, which has highest priority? 
20. For the compound variable List.j what is the stem, and what is the tail (also called the subscript or index)? 
21. How do you code a binary string constant within a Rexx program? 

22. What are the OR and EXCLUSIVE OR operators, and what is the difference in how they operate? 
23. What is DBCS and why would you use it? 

24. When is the NOVALUE condition trap raised? 

25. When you code a Rexx statement in your program, how can you continue it to a second line? 

26. Why would you use the DIGITS function? 


27. You want to speed up the execution of a TSO Rexx program you've just written — without changing the 
program code. What do you do? 


28. You have an error number (error code), and you want to find out what it means. How can you do this from 
within a Rexx program? 
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29. You’re writing a Rexx program that interfaces to a Db2 table. How can you process each row from the 
table, one at a time? 


30. Can you call Db2 database stored procedures from within a Rexx program? How? 
31. Does the PULL instruction alter input data? Does PARSE PULL? 


32. What is the effect of the period in this statement? 


PARSE VAR my string item_one item _two 


33. How do you initialize all elements of the compound variable stem (aka, an array) named MY_ARRAY. to 0? 


Answers -- Generic Test 


1. Answer: The first statement initializes the variable social_security_number to the character string value 499-555- 
1212. The second statement parses it into its three component pieces (as separated by the internal dashes) and 
places the components into the three variables comp1, comp2, and comp3, respectively. 


In other words, comp! will contain 499, comp2 will contain 555, and comp3 will contain 1212. 
2. Answer: TRACE A traces all clauses before execution. TRACE O turns off tracing. 


3. Answer: Three special variables are RC, RESULT, and SIGL. RC contains a return code from a command, 
or a syntax error code. RESULT contains a value passed back from a RETURN instruction in a subroutine. 
(If a RETURN is encoded without an operand, RESULT is set to unitialized.) SIGL identifies the line 
number of last instruction that caused a jump to a label. 


4. Answer: The CHARIN function reads one character by default. Yes, you can use CHARIN to position the 
read pointer without actually reading any characters. For example, CHARIN(‘TEXT_FILE’,1,0) positions the 
read pointer to the start of TEXT_FILE without reading any characters. 

5. Answer: To enable one of SIGNAL’s supported error conditions, and optionally specify its associated 
routine. Or to disable that error condition. (It’s not recommended, but some also use it to simulate the 
action of a GOTO statement.) 


6. Answer: To set the execution environment for command(s) sent out from a Rexx program. 


7. Answer: To tell your Rexx program what the current external command execution environment is. 
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8. Answer: IF and SELECT. (Note that WHEN is a keyword or clause within the SELECT statement; it is not a 
Rexx instruction.) 


9. Answer: Use the NUMERIC instruction. 


10. Answer: Strict comparison requires that two strings be identical (leading and trailing blanks count in the 
comparison.) 


11. Answer: The operator is: // . You use it when you want to obtain the remainder of a division operation. 


12. Answer: DROP ONE TWO 


Or you could encode a pair of DROP instructions: DROP ONE; DROP TWO ; 


13. Answer: PUSH adds an element to the queue or data stack in the order Last-In, First-Out (LIFO). QUEUE 
adds an element to the queue or data stack in the order First-In, First-Out (FIFO). 


14. Answer: The correct answer is the LEAVE instruction. It alters the flow of control from within a DO loop to 
the statement following its END clause. Instructions like EXIT and RETURN will break out of the endless loop, 
but do not direct execution to the code following the DO loop. (You could also use SIGNAL for this purpose but 
this is poor programming practice.) 


15. Answer: Generally speaking, ooRexx runs classic Rexx programs that conform to the ANSI-1996 Rexx 
standard without any changes. However, there are rare exceptions (ooRexx lacks a couple new items from that 
standard.) With “hundreds” of programs involved, you might well run into a few of the exceptions. The best 
answer is B. 


16. Answer: Answer (C) is correct. (A) is incorrect because it tells what the ARG instruction does, not the ARG 
function. (B) is incorrect because it tells what ARG does when encoded to parse arguments in a Rexx subroutine 
or function. It does not tell what happens when ARG processes command line arguments (parameters encoded 
when Rexx is invoked from the command line). (D) is just plain wrong. 


17. Answer: ~ is the “not” or negation symbol. If your system doesn’t support it, just use a backslash instead: \ . 
For example, instead of coding “not equal” as = you would code it as \=. 
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18. Answer: Code it as a string of 0’s and 1’s within single or double quote marks followed by the letter “b’ or 
‘B’. Examples: '0101'b or "0101"B . 


19. Answer: Arithmetic. 
20. Answer: The stem is List. (it includes the period), and the tail (or subscript or index) is j 


21. Answer: Use parentheses. Enclose the higher precedence operations you want executed first within the 
parentheses. 


22. Answer: OR is: | 


EXCLUSIVE OR is: && 
OR means “true if either term is true,” while EXCLUSIVE OR means “true if either but not both terms are true.” 


a 


23. Answer: You code PROCEDURE EXPOSE to ensure that only the specified list of variables is available (or 
“exposed”) to a subroutine. The subroutine can both read and update any variable(s) that are exposed to it. 


24. Answer: The NOVALUE condition is raised when the NOVALUE error condition is enabled, and a variable 
is referenced that has not yet been initialized. 


25. Answer: Encode a comma (, ) at the end of the line to be continued. 
26. Answer: It returns the setting of NUMERIC DIGITS (it returns the numeric precision). 
27. Answer: Inspect the value of the special variable RC. It contains the command’s return code. 


28. Answer: One way is to use the ERRORTEXT function. It returns the error text associated with a given error 
number. 


29. Answer: NOTVALID. For ANSI-standard classic Rexx the trap conditions are ERROR, FAILURE, HALT, 
NOTREADY, NOVALUE, SYNTAX, and LOSTDIGITS. 
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30. Answer: The outputs from the program will be: 


onetwo 
onetwo 
one two 


The answer is statement (C). It outputs the two variables with an intervening space (or blank). 
Statement (A) is concatenation by abuttal, while statement (B) uses the concatenation operator. Both 
output the two variables with no intervening space (or blank). 


31. Answer: PULL automatically translates characters to their uppercase equivalents. PARSE PULL does not 
alter the data by performing uppercase translation. 


32. Answer: The variable item_one contains the first data element parsed from the string called my_string, 
item_two contains the second, and the period ignores all subsequent data items. If the period were not encoded, 


item_two would contain the second and all subsequent input data elements concatenated together. 


33. Answer: MY_ARRAY. = 0 


Answers - Mainframe Test 
1. Answer: The first statement initializes the variable social_security_number to the character string value 499- 
555-1212. The second statement parses it into its three component pieces (as separated by the internal dashes) 


and places the components into the three variables comp1, comp2, and comp3, respectively. In other words, 
comp1 will contain 499, comp2 will contain 555, and comp3 will contain 1212. 


2. Answer: ALLOC (or ALLOCATE). BPXWDYN is also correct. 
3. Answer: To close the dataset (optionally after processing it). 


4. Answer: 1. One EXECIO statement can read the entire dataset into an array or table (more accurately called a 
compound variable), or onto the stack. 


5. Answer: To enable one of SIGNAL’s supported error conditions, and optionally specify its associated routine. 
Or to disable that error condition. (It’s not recommended, but some also use it to simulate the action of aGOTO 
statement.) 
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6. Answer: To set the execution environment for command(s) sent out from a Rexx program. 
7. Answer: To tell your Rexx program what the current external command execution environment is. 


8. Answer: IF and SELECT. (Note that WHEN is a keyword or clause within the SELECT statement; it is not 
a Rexx instruction.) 


9. Answer: Use the NUMERIC instruction. 


10. Answer: Strict comparison requires that two strings be identical (leading and trailing blanks count in the 
comparison.) 


11. Answer: The operator is: // . You use it when you want to obtain the remainder of a division operation. 
12. Answer: The word REXX placed inside a comment. Example: /* REXX */ 


13. Answer: PUSH adds an element to the queue or data stack in the order Last-In, First-Out (LIFO). QUEUE 
adds an element to the queue or data stack in the order First-In, First-Out (FIFO). 


14. Answer: The correct answer is the LEAVE instruction. It alters the flow of control from within a DO 
loop to the statement following its END clause. Instructions like EXIT and RETURN will break out of the 
endless loop, but do not direct execution to the code following the DO loop. (You could also use SIGNAL 
for this purpose but this is poor programming practice.) 


15. Answer: LISTDSI 
16. Answer: It returns information about the CPUs currently online. 


17. Answer: In TSO, you press the attention interrupt key to enter attention mode. Then you can enter your 
immediate command (such as HE, HT, HI, etc). 


18. Answer: Halts execution of the program. 
19. Answer: Arithmetic. 


20. Answer: The stem is List. (it includes the period), and the tail (or subscript or index) is j 
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21. Answer: Code it as a string of 0’s and 1’s within single or double quote marks followed by the letter “b’ or “B’. 
Examples: '0101'b or "0101"B 


22. Answer: OR is: | 

EXCLUSIVE OR is: && 

OR means “true if either term is true,” while EXCLUSIVE OR means “true if either but not both terms are true.” 
23. Answer: DBCS stands for the Double Byte Character Set. In DBCS, each character is represented by two bytes 
(instead of one). You might use it for working with languages that contain many unique characters, for example, 


Chinese or Japanese. 


24. Answer: The NOVALUE conditions is raised when the NOVALUE error condition is enabled, and a variable 
is referenced that has not yet been initialized. 


25. Answer: Encode a comma (, ) at the end of the line to be continued. 
26. Answer: It returns the setting of NUMERIC DIGITS (it returns the numeric precision). 
27. Answer: Use the Rexx compiler. 


28. Answer: One way is to use the ERRORTEXT function. It returns the error text associated with a given error 
number. 


29. Answer: Declare a cursor. Then use it to retrieve and process the rows one by one. 
30. Answer: Yes, just use the CALL command, addressed to Db2. 


31. Answer: PULL automatically translates characters to their uppercase equivalents. PARSE PULL does not alter 
the data by performing uppercase translation. 


32. Answer: The variable item_one contains the first data element parsed from the string called my_string, 
item_two contains the second, and the period ignores all subsequent data items. If the period were not encoded, 
item_two would contain the second and all subsequent input data elements concatenated together. 


33. Answer: MY_ARRAY. = 0 


Thank you to RexxLA members who helped design and debug these questions: Frank, Shmuel, David, Wayne, 
Rob, Mark, Chip, Walter, and others. 
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Rexx <--> Bash Translation 


These charts enumerate equivalences between Rexx and Bash (Bourne-Again Shell). 
They are for those who know one of these languages and wish to learn about the other. 


(These charts are not about “which language is better.”) 


The Basics 
Rexx Bash 
ey ea ene Yes No (unfriendly syntax) 
Very powerful Yes Yes 
Open source Yes Yes 
Portable Yes Yes 
Runs on all platforms Yes Yes, major platforms 
Runs as the OS Shell No * Yes 
Interfaces to tons of tools Yes Yes 
ANSI or ISO Standard Yes (ANSI-1996) Yes (POSIX compliant with extensions) 


*Regina Rexx can run in the same process as the Z shell (zsh) 
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Profiles 


Rexx 


Bash 


TRL-2, ANSI, Mainframe, ooRexx, 


i hell 

Dialects NoER ow Bash (a superset of the Bourne shell) 
* Default scripting language for 
fs Linux (including on 
* 
Dee Benpane language = Windows/Linux and Linux on Z 
. mainframes and several minor platforms . 

Unique Usage mainframes) 


* Interfaces to all mainframe environments 
and address spaces 


* Sometimes the default for BSD, 
Oracle Solaris, older Apples, other 
systems 


Programming paradigms 


Procedural, scripting, functional, object- 
oriented (ooRexx and NetRexx) 


Procedural, scripting, functional 


OOP: classes, objects, multi- 


inheritance, polymorphism, In ooRexx and NetRexx Unsupported 

encapsulation 

User Group Rexx Language Association Free Software Foundation 
Quick Online Lookup RexxInfo.org DevHints.io, LinuxTutorials.org 
Cheeses! LinuxSimply.com 

(printable PDF)vm/cms RexxInfo.org eicate be : ie 

handbook ci a 

Forum RexxLA forum LinuxQuestions.org, Linux.org 


Further Information 


RexxInfo.org 


Free Software Foundation: GNU 
Bash 
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Language Comparison 


Rexx <--> Bash 


ANSI Rexx 


Bash 


Formatting 


Free form 


Free form 


Case-sensitive 


No 


Yes 


Comments 


Enclose inside /* and */ 


Start comment with: # Or, use a Here 
document for commenting out multiple 
lines 


Line Continuation 


, (comma) 


\ (backslash) 


Statement Separator 


; (semi-colon) 


; (semi-colon) 


Arithmetic Operators 


+2" 1% If 


Code Blocks Define by do - end Define by do - done, if - fi, or case - esac 
. : Allowed. Use SYMBOL to determine if a | Allowed. To error on undefined variables, 
Undefined Variables . : 
variable has been defined code: set -u 
. a = t= -= * /= %= Compound 

Assignment Operators |= Bima: Ie es 
+. * / Of 
Compound: += -= *= /= %= 


Evaluate arithmetic expression: 
$(( expression )) 
Increment/decrement a value: 
i++ i- HH --i 


\== >> << p= \<< <<= |>> = \ 


Comparison <> >< >< >= \< — \> Integers: -eq -ne -gt -ge -It -le 

Operators ( \ can be replaced with >in any of th _|Strings: l= > >= < <= = 
comparison ese) 

Logical Operators & | && \ (prefix) + (prefix) && || ! (prefix) 

Concatenation || Or, concatenate with blank between 4= Or, use abuttal: VAR3~"$VARI$VAR2" 

Operators Or, concatenate by abuttal (no blank) 


Bitwise Operators 


Use built-in functions 


&|A< >> ~ 
Compound: &= |= <<= >>= “= 


Membership 
Operators 


Unsupported 


Unsupported 


Built-in Functions 


About 70 functions 


None in the traditional sense, designed to 
issue shell and line commands 


Data Types 


Everything's a string, types are reflected 
in usage 


By default, variables are untyped. Or use 
"declare" to explicitly type them as: -a, -A, -i, 
-1, -n, -1, -t, -u, -x 
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ANSI Rexx 


Bash 


Regular Expressions 


Use RexxRE Regular Expressions 
external Library 


Yes 


String Parsing 


PARSE instruction 


Use regular expressions 


Function to Check Data Type 


datatype 


declare -p 


Collections of Variables 


Use compound variables 


One-dimensional arrays: 
declare -a array_name 


Associative Arrays 


Use compound variables 


declare -A array_name 


Multidimensional Arrays 


Use compound variables 


Unsupported 


Stack & Queue Operations 


Yes (push, pull, parse pull, queue, 
queued) 


No generalized facility (offers a 
directory stack with pushd, popd, 
and dirs) 


Decimal Arithmetic 


Default 


Install and use: be 


Flow of Control 


if, do, select, call, exit, return, iterate, 
leave, signal, nop 


until, while, for, break, continue, 
return, exit 


Trace Script Execution 


trace (instruction), trace (function) 


Use the -x option. 
Run the script: bash -x 
or inside the script: set -x 


Terminate Process 


exit 


exit 


Get User Input 


say "Enter your name:" 
parse pull name 


echo -n "Enter your name: " 
read name 


Exception Handling 


signal 


trap 


Standard Exceptions 


novalue, error, failure, halt, notready, 
syntax, lostdigits 


trap covers 64 signal specs 
(list them by: trap -l) 


Run an Operating System 
Command 


Just issue the command string 
(Rexx passes unrecognized strings to the 
default active environment) 


Just issue the command string 


Sources: RexxInfo.org and Bash Reference Manual, v. 5.2. 
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Rexx <--> Python Translation 


These charts enumerate equivalences between the Rexx and Python languages. 


They are for those who know one of these languages and wish to learn about the other. 


(These charts are not about “which language is better.”) 


The Basics 
Rexx Python 
Easy to learn, use, and maintain Yes Yes 
Very powerful Yes Yes 
Open source Yes Yes 
Portable Yes Yes 
Runs on all platforms Yes Yes 
Interfaces to tons of tools Yes Yes 


ANSI or ISO Standard 


Yes (ANSI-1996) 


No (de facto standard by PEPs) 
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Profiles 


Rexx 


Python 


Version 2.x, Version 3.x, specialized 


Dialects TRL-2, ANSI, Mainframe, ooRexx, NetRexx : : 
implementations 
* Default scripting language for mainframes __|* Most popular programming 
Dane sas and several minor platforms language in the world 


* Interfaces to all mainframe environments 
and address spaces 


* Most widely taught language 
* Ships with many OS's 


Programming paradigms 


Procedural, object-oriented (ooRexx and 
NetRexx), functional, scripting 


Procedural, object-oriented, 
functional, scripting 


OOP: classes, objects, multi- 


inheritance, polymorphism, |Yes, in ooRexx and NetRexx Yes 

encapsulation 

User Group Rexx Language Association Python.org Community 
Quick Online Lookup RexxInfo.org QuickRef.me/python 
eee RexxInfo.org Cheatography.com 
Forum RexxLA forum Python.org forums 


Further information 


RexxInfo.org 


Python.org 
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Language Comparison 


ANSI Rexx 


Python 


Formatting 


Free form 


Based on indentation rules 


Case-sensitive 


No 


Yes 


Comments 


Enclose inside /* and */ 


Start line with # or enclose inside triple 
quotes (""") 


Line Continuation 


, (comma) 


\ (backslash) or implicit 


Statement Separator 


; (semi-colon) 


; (semi-colon) 


if a variable has been defined 


Code Blocks Define by do - end Define by : (colon) plus indentation 
. ; Allowed. Use SYMBOL to determine Undebned vanable pee esa — 
Undefined Variables Circumvent this by assigning special 


constant None. 


Assignment Operators 


toe t= fp %e |e 
Bitwise: &= |= *= >>= <<= 


Arithmetic Operators 


ee ae 


+-*/%*// 
Compound: t= -= *= /= %= //= ™ 


Comparison Operators 


== \== >> << >= \<< <<= |>> = \ 
=O >< > <> \< & \|> 

( \ can be replaced with 7 in any of 
these) 


s= l= >< de Se 
Object Identity: is is not 


Logical Operators 


& | && \ (prefix) - (prefix) 


and or not 


Concatenation Operators 


|| Or concatenate with blank 
between 
Or, concatenate by abuttal (no blank) 


+ += * (multiple copies of a string) 
Concatenate literal strings with blank 
between. Use f-strings. Use join or format 
methods 


Bitwise Operators 


Use built-in functions 


&|Na~ << >> 


Compound: &= |= “= <<= >>= 


Membership Operators 


Unsupported 


in notin 


Regular Expressions 


Use RexxRE Regular Expressions 
external Library 


Use the re module 


Built-in Functions 


About 70 functions 


About 70 functions 


Data Types 


Everything's a string, types are 
reflected in usage 


A dynamically typed language with these 
data types: text (str), numeric (int, float, 
complex), sequence (list, tuple, range), 
mapping (dict), set (set, frozenset), 
boolean (bool), binary (bytes, bytearray, 
memoryview) 
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ANSI Rexx 


Python 


Function to Check 
Data Type 


datatype 


type 


Collections of 
Variables 


Use compound variables 


list, tuple, range, set, frozenset, dict, 
bytearray 


Associative Arrays 


Use compound variables 


Use a dictionary (dict) 


ieeneneione Use compound variables Use NumPy library 

Arrays 

Stack & Queue Yes (queue module and deque from 
Y h, pull Il d 

Operations Son PUE Pir Base UN auEne dae yes) collections) 

String Parsing PARSE instruction String methods or regular expressions 


Decimal Arithmetic 


Default 


Use the decimal module 


Flow of Control 


if, do, select, call, exit, return, iterate, leave, 
signal, nop 


if, for, while, break, continue, pass, 
return, exit, quit, match-case 


Trace Script 
Execution 


trace (instruction), trace (function) 


Use the trace or pdb modules 


Terminate Process 


exit 


exit() 


Get User Input 


say "Enter your name:" 
parse pull name 


name = input("Enter your name: ") 


Exception Handling 


signal 


try-except-else-finally, raise, with 


Standard Exceptions 


novalue, error, failure, halt, notready, syntax, 
lostdigits 


SyntaxError, TypeError, NameError, 
IndexError, KeyError, ValueError, 
AttributeError, IOError, 
ZeroDivisionError, ImportError 


Run an Operating 
System Command 


Just issue the command string 
(Rexx passes unrecognized strings to the 
default active environment) 


Use the subprocess module (or older os 
module) 


This Language Comparison Chart maps equivalences between ANSI-1996 Rexx and Python 3.12. Some 


have suggested that a more appropriate comparison would be between Open Object Rexx and Python. 


Perhaps. But remember, this chart is not about "which language is better" or "which language has more 


features." It's meant simply as an aid to those (like myself) who have occasion to work in both these 


languages. 


Sources: RexxInfo.org. Python Tutorial and Python Language Reference (v 3.12.3) from docs.python.org. 
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BRexx/370 for Mainframe Emulation 


Overview 


BRexx/370 (or BREXX370) is a port of the BRexx interpreter to mainframe operating systems. It's a free 
and open source Rexx for IBM mainframe software based on the BRexx interpreter described in 
Chapter 22. 


BRexx/370 is an alternative to the IBM licensed REXX interpreter distributed with IBM operating 
systems in the mainframe OS, VM, and VSE families. 


The Hercules Emulator 


The main use for BRexx/370 is with the Hercules mainframe emulator. Hercules is an open source 
product that runs on a variety of host operating systems including Linux, Windows, macOS, BSD, 
and Solaris. Hercules mimics mainframe instruction sets, and also the channel programs that control 
and manage mainframe disk storage. 


The three mainframe architectures Hercules emulates are: System/370, ESA/390, and the latest 64- 
bit z/Architecture. These three designs underlie all of IBM's mainframe operating systems. 


So with Hercules, you could run almost any IBM mainframe operating system on your personal 
computer. You can "run your own personal mainframe" on your Windows or Linux PC. 


Appendix Z 


There is a fly in this magical ointment, however. IBM carefully controls how it licenses its mainframe 
operating systems. It does not make current ones available for equipment other than their mainframes. 


Thus Hercules users must choose from a set of older IBM operating systems that are either public 
domain or "copyrighted software provided without charge." Candidates include OS/360, DOS/360, 
DOS/VS, MVS, VM/370, TSS/370, MUSIC/SP, Multics, and MTS. Other public domain options 
include Linux on IBM Z and OpenSolaris for System z. 


Many Hercules users have settled upon two older but free and legal mainframe operating systems: CMS 
(VM/370) and MVS (OS/VS 3.8). These two operating systems are the direct ancestors of z/VM and z/OS, 
respectively. VM/370 dates from the 1970s. It was the last free version of VM, from the days when IBM 
gave the software away for free when you bought one of their mainframes. MVS 3.8 was in use until the 
mid-1980s. 


The diagram below suggest how the BRexx/370 stack might look running on Hercules. 


Running atop Hercules 


BRexx/370 


(CMS memory resident) 


BRexx/370 


Services like ADDRESS TSO / 
MVS / COMMAND / LINK; 
VSAM/KSDS, TCP/IP, NJE38, 
ISPF, the stack, and more 


MVS 
(OS/VS 3.8) 


Services like CMS commands, 
tracing, the stack, immediate 
commands, function packages, 
program calls, and more 


CMS 
(VM/370) 


Hercules Emulator 


Hercules Emulator 


Hardware Hardware 


Figure Z-1 


BRexx/3 70 


Both VM/370 and MVS 3.8 date from before IBM distributed Rexx. So, the question is: how does one 
obtain Rexx for them? The answer was obvious: port an open source Rexx. 
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BRexx/370 


The BRexx interpreter described in Chapter 22 was well-suited to the challenge. It required 
some adaptation, which is why it's called BRexx/370. That's also why it's distributed through 
separate BRexx/370 projects at GitHub (instead of with the main BRexx project). 


Several GitHub projects supply BRexx/370. Please read through the rest of this chapter before 
you decide how to install it. 


One approach uses CMS (VM/370). You can download the VM/370 operating system from any of 
several sources. Perhaps the place to start is the VM Community Edition website at 
http://www.vm370.org/. 


The BRexx/370 code for CMS resides in GitHub at https: //github.com/adesutherland/CMS- 
370-BREXX. This project features a native CMS runtime library and integrated BRexx/370 as memory- 


resident. Facilities include interfaces for tracing, the stack, CMS immediate commands, BRexx program 
calls and functions, function package support, the ability to run Rexx scripts as Xedit macros, and 
more. 


Another BRexx/370 GitHub project targets MVS (OS/VS 3.8). The home page for this BRexx/370 
distribution at GitHub is https: //github.com/mvslovers/brexx370. 


BRexx/370 for MVS is well documented. It comes with a User’s Guide, Installation Guide, and 
documentation for callable external functions, VSAM, array functions, and 3270 screen formatting. 


BRexx/370 for MVS interfaces to a long list of MVS facilities, including VSAM/KSDS, TCP/IP, NJE38, 
ISPF, ADDRESS TSO, ADDRESS MVS, ADDRESS COMMAND, ADDRESS LINK, 3270 screen 
formatting services, access to external functions, and more. 


The MVS BRexx/370 project is a part of a larger project called MVS 3.8 TK (the "TK" stands for 
TurnKey). This project includes the MVS 3.8 operating system, many OS subsystems, and BRexx/370. It 
all runs on the Hercules emulator. 


Both MVS 3.8 TK and BRexx/370 are distributed in a single download. This makes for a simple install 
of this complex software. The GitHub project home page for MVS 3.8 TK is at 
https://github.com/patrickraths/MVS-TKS. The driving website for this software is 
https://www.prince-webdesign.nl/tk5. You'll find much more detail there. There's also a 
GibHub project that supplies any of several Docker images for mainframe systems including 
BRexx/370 at https: //github.com/RattyDAVE/docker-ubuntu-hercules-mvs. 


Uses 


Most who script with BRexx/370 do it because they enjoy controlling their own personal mainframe. 
They're hobbyists exploring mainframe software in a way that once wasn't possible without buying a 
mainframe. 
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Beyond hobbyist interest, mainframe emulation with Rexx offers some practical uses as well. For 
example: training. One can become familiar with what it's like to work with 3270 style screens and 
consoles, and with a vast array of supporting systems. In addition to Rexx, there is Job Control 
Language, Assembler, VSAM data access, NJE38, and much more. The fact that the operating 
system is not current, or that some pieces may be missing (for example, Db2 or CICS) doesn't 
diminish the value of what is offered. 


Summary 


Using the Hercules emulator, individuals can host CMS VM/370 or MVS 3.8 on their personal 
computers. BRexx/370 fulfills the need for a free and open source Rexx interpreter for these systems. 


The CMS and MVS implementations of BRexx/370 differ in small ways from each other, as well as 
from IBM's mainframe Rexx. Chapter 29 and Appendices E and R discuss IBM mainframe Rexx. 


They enumerate exactly how IBM mainframe Rexx differs from ANSI-1996 standard Rexx. 


GitHub hosts the BRexx/370 projects: 


BRexx/370 for CMS at https://github.com/adesutherland/CMS-370-BREXX 


BRexx/370 for MVS at https: //github.com/mvslovers/brexx370 


MVS3.8TK at https://www.prince-webdesign.nl/tk5 


O 
O 
Oh MVS3.8 TK at https://github.com/patrickraths/MVS-TK5 
O 
O 


Docker containers for several mainframe operating system projects are at 
https://github.com/RattyDAVE/docker-ubuntu-hercules-mvs 


There is also a forum specifically on MVS TK at https: //groups.io/g/turnkey-mvs. 


Read more about Hercules in Wikipedia at 
https://en.wikipedia.org/wiki/Hercules (emulator). 

The home pages for Hercules are at http: //www.hercules-390.eu/ and 
https://sdl-hercules-390.github.io/html1/. 


You can find several active Hercules discussion groups at https: /groups. io. At that website, 
just click on "Find or Create a Group" and search for "Hercules". 


Thank you to the Rexx Language Association members who contributed to this appendix with their 
insights and documentation. 
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SYMBOLS 


&& (ampersand, double), logical EXCLUSIVE OR 
operator, 30 
& (ampersand), logical AND operator, 30 
angle brackets 
> (append to file), 76, 214 
> (greater than operator), 29 
>= (greater than or equal to operator), 29 
<> or >< (greater than or less than operator), 29 
< (less than operator), 29 
<= (less than or equal to operator), 29 
< (redirect input), 76, 214 
> (redirect output), 76, 214 
> (strictly greater than operator), 29 
>= (strictly greater than or equal to operator), 29 
<< (strictly less than operator), 29 
<<= (strictly less than or equal to operator), 29 
>.> in trace file, 139 
>> in trace file, 138 
>C> in trace file, 139 
>F> in trace file, 139 
>L> in trace file, 139 
>O> in trace file, 139 
>P> in trace file, 139 
>V> in trace file, 138, 139 
* (asterisk) multiplication operator, 27 
*-* in trace file, 138 
** (double asterisk), raise to a power, 27 
backslash 
as ANSI-standard “not” sign, 204, 496 
\ or = (logical NOT operator), 30 
\= or 3= (not equal operator), 29 


Index 


\> or +> (not greater than operator), 29 
\< or 3< (not less than operator), 29 
\== or .== (strictly not equal operator), 29 
\> or -> (strictly not greater than operator), 29 
\<< or 3<< (strictly not less than operator), 29 
{} (braces), vector class reference, 454 
[] (brackets) 
adding or retrieving from collection, 470 
in array indexes, 397 
arraylike reference, 453 
“ (caret), method invocation prefix, 453 
44 (caret, double), instance creation, 453 
:: (colon, double), preceding directives, 465, 470 
: (colon), following a label, 42 
, (comma), line continuation character, 111, 122, 173, 
186 
/*...*] (comment delimiters), 22 
= (equals sign) assignment, 26 
equal comparison operator, 29 
== (equals sign, double), strictly equal operator, 29 
! (exclamation), command identifier, 454 
- (minus sign) 
negative number prefix operator, 27 
subtraction operator, 27 
() (parentheses) 
affecting order of precedence,31-32 
enclosing function arguments,23 
% (percent), integer division operator, 27 
. (period), placeholder variable, 116 
+ (plus sign) 
addition operator, 27 
positive number prefix operator, 27 
+++ in trace file, 139 


Index 


A 


? (question mark), placeholder variable, 247, 252 


“_.. (quotes, double) 
enclosing character strings, 23, 26 
enclosing OS commands, 181-182 


‘... (quotes, single), enclosing character strings, 23, 26 


; (semicolon), line separation character, 59, 173 

| (slash), division operator, 27 

I! (Slash, double), remainder division operator, 27 

~~ (tilde, double), method invocation, 466, 470 

~ (tilde), method invocation, 453, 465, 466, 470 

_ (underscore), in variable names, 171 

|| (vertical bar, double), concatenation 
operator, 30-31, 80 

| (vertical bar), logical OR operator, 30 


A 


abbrev function, 89, 90-91, 547 
abs function, 103-104, 547-548 
abstract classes, Open Object Rexx, 467 
abstraction, roo!, 452 
abuttal concatenation, 80 
acos function 
BRexx, 364 
Rexx/imc, 349 
active environment, 211 
ActiveState Web site,258 
addition operator (+), 27 
address function, 196, 204, 220, 548 
address instruction 
for commands to other environments, 221 
definition of, 216-218, 535-536 
example using, 218-219, 222-225, 536-537 
mainframe Rexx, 504 
using stack for command I/O, 225-226 
Administration tool, 387, 399, 615 
Aggregate class, roo!, 455 
AIX, Rexx for, 321 
Alarm class, Open Object Rexx, 469, 620 
American National Standards Institute. See ANSI 
Amiga Forum, 532 
Amiga Rexx (ARexx), 323, 573 
ampersand, double (&&), logical EXCLUSIVE OR 
operator, 30 
ampersand (&), logical AND operator, 30 
Android 435-445 
angle brackets 
> (append to file), 76, 214 
> (greater than operator), 29 
>= (greater than or equal to operator), 29 
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<> or >< (greater than or less than operator), 29 
< (less than operator), 29 
<= (less than or equal to operator), 29 
< (redirect input), 76, 214 
> (redirect output), 76, 214 
> (strictly greater than operator), 29 
>= (strictly greater than or equal to operator), 29 
<< (strictly less than operator), 29 
<<= (strictly less than or equal to operator), 29 
>.> in trace file, 139 
>> in trace file, 138 
>C> in trace file, 139 
>F> in trace file, 139 
>L> in trace file, 139 
>O> in trace file, 139 
>P> in trace file, 139 
>V> in trace file, 138, 139 
ANSI (American National Standards Institute) ANSI 
standard, 8, 193, 194-195, 309, 310 
ANSI-standard “not” sign, 204, 496 
answers to study questions, 637-655 
ANY condition, 472 


Apache Web server, programming, 281-288, 624-5 


API, running Rexx as, 324 
APILOAD function, VM Rexx, 498 
APPCMVS interface, 505 
Apple iPhone and iPad, 445 
application interfaces, using Rexx for, 10 
ARexx (Amiga Rexx), 323, 573 
AREXX, functions supported by Regina, 336 
arg function, 117, 195, 548-549 
arg instruction, 81, 115-117, 537 
arguments of functions, 23, 25 
arithmetic operators, 27-28 
Array class, Open Object Rexx, 468, 619 
array names (stem variables), 55 
array references (compound symbols), 54-55 
arraylike reference operator ([]), 453 
arrays. See also do instruction 
addressing elements of, 54 
associative, 54, 60-62 
data structures based on, creating, 63-64 
declaration of, 53 
definition of, 53-54 
dense, 53 
dimensionality of, 53, 63 
example using, 58-60, 61-62 


first element of, as O or 1, 57 
indexing, Reginald features for, 397 
initializing, 55, 56-57 
NetRexx, 522 
number of elements in, storing,57 
processing all elements in, 56 
redirecting command I/O to and from, 216-7 
referencing uninitialized element of, 55 
sorting, in Reginald, 396 
sparse, 53 
array I/O 374-375, 705-708 
asin function 
BRexx, 364 
Rexx/imc, 349 
ask special name, NetRexx, 522, 524, 629 
assignment statements, 25, 26 
associative arrays, 54, 60-62 
Associative Arrays for Rexx package, 615 
associative memory, 54. See also arrays 
asterisk (*) 
multiplication operator, 27 
*-* in trace file, 138 


asterisk, double (**), raise to a power operator, 27 


atan function 
BRexx, 364 
Rexx/imc, 349 
attributes (variables), Open Object Rexx, 465 
a2u function, BRexx, 368 
AuroraWare! tool, r4 and roo! interpreters, 450 


B 


backslash 
as ANSI-standard “not” sign, 204, 496 
\ or = (logical NOT operator), 30 
\= or 3= (not equal operator), 29 
\> or +> (not greater than operator), 29 
\< or -< (not less than operator), 29 
\== or == (strictly not equal operator), 29 
\> or => (strictly not greater than operator), 29 
\<< or 3<< (strictly not less than operator), 29 
Bag class, Open Object Rexx, 468, 619 
balanced tree (B-tree), 63 
Barron, David (World of Scripting Languages), 11 
base reference, roo!,453 
Bash <--> Rexx, 721-724 
batch procedures, 210 
batch, run Rexx in, 671-676 
b2c function, Regina, 336, 573-574 
b2d function, Rexx/imc, 350 


beaming, 441 
Bean Scripting Framework, 615, 695-700 
beep function 
Regina, 338, 574 
Reginald, 399 
bifurcation, 79-80 
binary numbers, 26 
binding variables, 247, 249-250 
bit function, Reginald, 399 
bit manipulation functions, Regina,336—337 
bit map indexes, 97 
bit string functions, 96-97 
bitand function, 97, 106-107, 549 
bitchg function, Regina, 336, 574 
bitclr function, Regina, 336, 574-575 
bitcomp function, Regina, 336, 575 
bitor function, 97, 549 
bitset function, Regina, 337, 575 
bittst function, Regina, 337, 575-576 
BitVector class, roo!, 455 
bitxor function, 97, 549-550 
blank lines, 23 
Bochs emulator, 424 
books. See publications 
box style comments, 22 
braces ({}), vector class reference, 454 
brackets ([]) 
adding or retrieving from collection, 470 
in array indexes, 397 
arraylike reference, 453 
BRexx interpreter 359-383 
advantages of, 316, 318, 360 
command I/O, stack for, 368-369 
definition of, 13, 312, 359-360 
documentation for, 360, 361 
downloading, 360-361 
example using,array 1/0, 374-375 example 
using, C-language |/0, 369-371 example using, 
external function libraries, 366-367 
extra features in 363-366 
installing, 361-363 
I/O functions, 364-366 
mathematical functions, 364 
platforms supported by, 359 
stack functions, 363 
system functions, 363 
Windows CE functions, 367-368 
BRexx/370 729-732 
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BSD platforms, 8 


BSF40o0Rexx 695-700 
B-tree (balanced tree), 63 
buffers, relationship to stacks, 167-168 
buftype function 

Regina, 342, 576 

Reginald, 396, 398 
built-in functions, 110, 120. See also 
functions built-in subroutines, 41. See also 
subroutines 
b2x function, 105, 550 
byte-oriented I/O. See character-oriented I/O 


C 


C Developer’s Kit for Reginald, 388 
>C> in trace file,139 
CALL construct, 34 
call import function, BRexx, 363 
call instruction 
definition of, 41-43, 112, 185, 537-538 
error trapping with, 144-146, 152-154 
example using, 70 
as structured construct, 34 
when to use, 71 
call off instruction, 148 
call on instruction, 148 
Callable service library (CSL) routines, 505 
Callback class, roo!, 455 
callback function, roo!,454 
callbacks, Rexx/DW, 264 
call- level interface (CLI), 230 
camel case, 171 
capitalization, using effectively,170—-171 
caret,double (““), instance creation,453 
caret (‘), method invocation prefix, 453 
CASE construct, 34. See also select 
instruction case sensitivity 
automatic uppercase conversion, 186 
capitalization, using effectively, 170-171 
of Rexx language, 22-23 
catch...finally instructions 
NetRexx, 521 
roo!, 454 
c2b function, Regina, 337, 576 
c2d function, 105, 553 
cd function, Regina, 338, 576 
cell phones, 435-445 
center function, 89, 550 
centre function, 550 
CFLOW tool, r4 and roo! interpreters, 451 
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CGI (Common Gateway Interface) 

BRexx library for CGl-scripting functions, 367 

definition of, 273 

Internet/REXX HHNS WorkBench, 276-281, 616 

Reginald support for, 388 

Reginald tutorial for, 392 

Rexx/CGI library (cgi-lib.rxx), 274-276, 615 
cgidie function, CGI/Rexx, 274 
CgiEnd function, HHNS WorkBench, 278 
cgierror function, CGI/Rexx, 274 
CgiHref function, HHNS WorkBench, 278 
CgiImg function, HHNS WorkBench, 278 
CgiInit function, HHNS WorkBench, 277 
cgi-lib.rxx library (CGI/Rexx), 274-276, 615 
CgiRefr function, HHNS WorkBench, 278 
CGI/Rexx, 274-276, 615 
CGl-scripting functions, BRexx library for, 367 
CgiSetup function, HHNS WorkBench, 277 
CgiWebit function, HHNS WorkBench, 278 
changestr function 

definition of, 90, 550-551 

mainframe Rexx, 504 

Open Object Rexx,472 

roo!, 454 
character encoding stream, 96 
character folding, 97 
character map, 96 
character sets, affecting portability, 203 
character strings, 23.See also literals 
character-oriented I/O, 68, 72-75, 191 
CharacterVector class, roo!, 455 
charin function 

definition of, 72, 73, 551 

return string for, 180, 196 
charout function 

definition of, 73, 551 

example using, 74 

explicitly controlling file positions, 72 

return string for, 180, 196 
chars function 

definition of, 73, 552 

return string for, 180, 196-197, 205 
chdir function 

Regina, 338, 576 

Reginald, 391 

Rexx/imc, 348, 352 
Chill tool, r4 and roo! interpreters, 451 
chkpwd function, CGI/Rexx, 274 
Christensen, Anders (developer of Regina), 312, 331 


CICS (Customer Information Control System), 323 
C-language interface, for RexxXML,294 
C-language I/O functions 
BRexx, 364-365 
Rexx/imc, 351, 354-356 
Class class, Open Object Rexx, 469, 620 
::class directive, Open Object Rexx, 470 
class hierarchies, Open Object Rexx, 466—467 
class instruction 
NetRexx, 521, 630 
roo!, 453 
classes 
NetRexx, 520 
Open Object Rexx, 465-467, 468-469, 476, 619-2 
roo!, 452, 455-456 
cleanquery function, CGI/Rexx, 274 
clear command, Linux or Unix, 45 
CLI (call-level interface), 230 
Clist, 677-681 
Clipboard class, roo!, 455 
clipboard function, BRexx, 368 
close function 
BRexx, 365 
Regina, 339, 577 
Rexx/imc, 351 
clreol function, BRexx,368 
clrscr function, BRexx,367 
cls command, Windows,45 
CMD environment, Reginald, 393-394 
CMS assembler macros and functions, 505 
CMS commands, VM Rexx, 498, 499, 506-511 
CMS functions, HHNS WorkBench, 278 
CMSFLAG function, VM Rexx, 498 
Code Comments community, 531 
code pages (character sets), affecting portability, 203 
code reviews, 183-184 
collection classes, Open Object Rexx, 468, 481-485 
Collier, lan (developer of Rexx/imc), 312 
colon, double (::), preceding directives, 465, 470 
colon (:), following a label, 42 
column-position files, 86 
comma (,), line continuation character, 111, 122, 173, 
186 
comma-delimited files, 86, 691-2 
command identifier operator (!),454 
command line, passing parameters on, 115-6, 185 
command procedure language, Rexx as, 309 
command procedures 
definition of, 209-210 
example using, 222-225 
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commands in other environments, issuing, 220-221 
commands, OS 

affecting portability, 191-192, 201-202 

building string for, 212 

capturing output from, 213-215, 216-218 

directing input lines to, 214, 216-218 

environment for, 211, 216-217, 220 

environmental functions, Regina, 338 

environmental functions, 

Rexx/imc, 348, 352-354 

error trapping for, 213, 2146-218 

example using, 218-219, 222-225 

issuing, 211-212 

issuing, with Reginald, 393-394 

issuing, with VM Rexx, 496 

quotes enclosing, 181-182 

result of (return code), 154, 211, 213 
comment delimiters (/*...*/), 22 
comments 

guidelines for, 176-177 

in roo!, 454 

syntax for, 22, 175-176, 184 

in VM Rexx, 494 
commercial Rexx interpreters, 322-323 
Common Gateway Interface. See CGI Common 
Programming Interface (CPI), 505 
Comparator Class, roo!, 455 
compare function, 90, 552 
comparison operators, 28-30, 187 
compilers. See mainframe Rexx 

definition of, 323-324 

VM Rexx, 498-499 
compound comparisons, 30 
compound symbols (array references), 54-55 
compound variable name, 25 
compress function, Regina, 337, 577 
concatenation, 30-31, 79-80 
concatenation operator (||), 30-31, 80 
concurrency, Open Object Rexx, 468, 489-491 
condition function, 154, 155-156, 197, 552-3 
condition trapping. See error trapping 
conditions. See error conditions 
Console class, roo!,455 
CONSOLE interface,505 
console I/O, BRexx library for, 367 
constants, 54 
constructs (control structures), 33, 34, 47 
content-addressable (associative) arrays, 54, 60-62 
ContextVector class, roo!, 455 
control structures (constructs), 33, 34, 47 
conversational I/O, 75 
conversions between numeric representations, 105-7 
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convertdata function, Reginald, 399 


copies function, 90, 553 issuing SQL statements, 233, 250-1 

COPYFILE command, 510 relational, 229 

copyfile function tables, creating and loading, 239-241 
BRexx, 368 tables, selecting results from, 241-244, 245-247 
Reginald, 391 tables, updating, 243-244 

cos function transactions, 233 
BRexx, 364 datatype function, 88, 90-92, 105-106, 454, 554 
Rexx/ime, 349 date function, 196,555 


date functions BRexx library for, 367 HHNS WorkBench, 278 
da2b function, Rexx/imc, 350 

Db2 database, 248-249, 250-253 

Db2 SQL interfaces, 505 

bclose function, BRexx, 365 

bconnect function, BRexx, 365 

BCS (Double-Byte Character Set), 496-497 
berror function, BRexx, 365 
lbescstr function, BRexx, 365 

bfield function, BRexx, 365 
BForums Web site, 531 

bget function, BRexx, 365 

binfo function, BRexx, 365 

lbisnull function, BRexx, 365 


cosh function, BRexx, 364 
countstr function 
definition of, 90, 553 Open 
Object Rexx, 472 roo!, 454 
Cowlishaw, Michael (Rexx inventor) 
The Rexx Language: A Practical Approach to 
Programming (TRL-1), 193 
The Rexx Language (TRL-2), 8, 193, 310, 532 
role in Rexx language, 6, 308, 312 
CP assembler macros, 505 
CP commands, VM Rexx, 506—511 
CP DIAGNOSE instructions, 505 
CP system services, 505 
CPI (Common Programming Interface), 505 
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CPI Resource Recovery Routines, 505 DBMS (database management system). See database 
CPICOMM interface, 505 dbsql function, BRexx, 365 
crypt function, Regina, 337, 577 d2c function, 105, 556 
CSL (Callable service library) routines, 505 DDL (Data Definition Language), 230 
CSL function, VM Rexx, 498 debugging. See also error conditions; error trapping 
CUR for Rexx, 616 interactive, 4, 6, 140-142 
curses package, 111 methods of, 134 
cursor processing, 245-247, 252 say instruction for, 133-135 
Customer Information Control System (CICS), 323 trace function for, 139-140, 196, 197, 566-567 
c2x function, 97, 105, 554 trace instruction for, 135-139, 140-142, 545-546 
decimal (fixed-point) numbers, 26 
D dedicated devices, programming. See embedded 
programming 
data conversions, of variables, 24 default environment, 211, 636 
Data Definition Language (DDL), 230 delay function, HHNS WorkBench,277 
Data Manipulation Language (DML), 230 DeleteFile function, Reginald, 391 
data structures based on arrays, 63-64 delfile function, BRexx, 368 
data type, of variables, 24, 25 delquery function, CGI/Rexx, 274 
database. See also Rexx/SQL package DELSTACK command 
binding variables, 247, 249-250 mainframe Rexx, 167 
connections to, 233, 234-236, 248-250 OS/TSO Rexx, 502 
cursor processing, 245-247, 252 delstack function, roo!, 454 


information about, retrieving, 234-238 
interfaces to, 203, 250-253 
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delstr function, 90, 555 
delword function, 92, 556 


dense arrays, 53 DOS functions, BRexx library for, 367, 378-382 
DESBUF command DOS platforms 
CMS, 499 definition of, 8 
mainframe Rexx, 166 return codes for OS commands, 154 
desbuf function double quotes (“...”) 
BRexx, 363 enclosing character strings, 23, 26 
Regina, 167, 342, 577-578 enclosing OS commands, 181-182 
Reginald, 396, 398 Double-Byte Character Set (DBCS), 496-497 
deweb function, CGI/Rexx, 274 DO-WHILE construct, 34 
DIAG function, VM Rexx, 498 Dr. Dialog interface, 257 
DIAGRC function, VM Rexx, 498 DriveContext class, roo!, 455 
Dialog Editor, Reginald, 390 DriveInfo function, Reginald, 391, 401 
digits function, 196, 556 DriveMap function, Reginald, 391, 401 
digits special name, NetRexx, 522, 629 driver, 42 
dir function drop instruction, 115, 539 
BRexx, 368 DROPBUF command 
Reginald, 394 CMS, 499 
directives, Open Object Rexx, 465-466, 470 mainframe Rexx, 166 
Directory class, in ooRexx, 468, 619 OS/TSO Rexx, 502 
directory function dropbuf function 
Regina, 338, 578 BRexx, 363 
Reginald, 391 Regina, 167, 342, 578 
division operator (/), 27 Reginald, 396, 399 
DLLs, Reginald, 395-396 roo!, 454 
DML (Data Manipulation Language), 230 DW (Dynamic Windows), GUI package based on. See 
DO construct, 34 Rexx/DW package 
do forever instruction, 47-49 DW package, 111 
do instruction d2x function, 105, 556 
definition of, 37-38, 538 DYLD_ LIBRARY PATH variable, 340 
example using, 38-40, 43-46 Dynamic Windows (DW), GUI package based on. See 
NetRexx, 521, 630 Rexx/DW package 
as structured construct, 34 
subscripts for, 184 E 
a ee Fa a ear sa EBCDIC functions, BRexx library for, 367 
i edit macros, 665-670 


do while instruction, 37, 47-48 
document trees, 293, 294, 298 
documentation. 
See also publications 

for BRexx interpreter, 360-1 

IBM Rexx manuals, 533 

for NetRexx interpreter, 517 

for r4 interpreter, 447, 449 

for Regina interpreter, 14, 333 

for Reginald interpreter, 386, 387, 392-393 

for Rexx/imce interpreter, 346 

for roo! interpreter, 447, 449 
do-end pair, 35-36, 37-38 


edit macros, VM Rexx, 496 

EditName function, in 

Reginald,391 

editors, Rexx-aware, 183 

Emitter class, roo!, 455 

“Empirical Comparison of Seven Programming 
Languages” (Prechelt), 11 
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encapsulation 
Open Object Rexx,465 
roo!, 452 
endless loop, 47 
end-of-file (EOF) character, 73, 74 
environment 
active, 211 
default, 211, 636 
determining, 195-199 
other than OS, issuing commands to, 220 
specifying for OS commands, 216-217 
.environment object, Open Object Rexx, 470 
environmental functions 
Regina, 338 
Rexx/imc, 348, 352-354 
Rexx/SQL, 233 
environmental variables, Open Object Rexx, 464 
EOF (end-of-file) character, 73, 74 
eof function 
BRexx, 365 
Regina, 339, 579 
equals sign (=) 
assignment, 26 
equal comparison operator, 29 
equals sign, double (==), strictly equal operator, 29 
ERROR condition,144,148 
error conditions 
list of, 144 
in Open Object Rexx, 472 
in OS TSO/E Rexx, 504 in 
Reginald, 395 
in roo!, 454 
untrapped, default actions for, 148 
.error object, ooRexx, 470 
error trapping 
affecting portability, 204 
call instruction for, 144-146, 152-154 
condition function for, 154, 155-156, 197, 
552-553 
example using, 146-151 
generic routine for, 155-6 
guidelines for, 143-146, 179-180 
limitations of, 156 
for OS commands, 213 
Reginald features for, 395 
signal instruction for, 144-6, 147-8, 152-4 
special variables for, 151 
for SQL, 237-239 
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errors. See also debugging; error conditions 
insufficient storage error, 102 
overflow error, 28, 102 
underflow error, 28, 102 

errortext function, 153,197,557 

event handlers, Rexx/DW, 264 

event-driven scripts, 259, 265 

example programs 
address instruction, 218-219 
balanced parentheses, 118-120 
BRexx interpreter, Array 1/0, 374-375 
BRexx interpreter, C-language I/0, 369-371 
BRexx interpreter, direct data access, 376-8 
BRexx interpreter, DOS functions, 378-382 
command procedures, 222-225 
database information, retrieving, 234-239 
database input, 85-89 
database tables, creating and loading, 239-241 
database tables, selecting results from, 241-247 
database tables, updating, 243-244 
four letter words, identifying, 38-40 
interpreter for user input, 146-151 
key folding, 106-107 
mainframe Rexx, 506-511 
menu of transactions, 43-46 
NetRexx interpreter, 525-526 
NetRexx interpreter, squaring a number, 523-525 
Number Game (random numbers), 21-24 
Open Object Rexx, concurrency, 489-491 
Open Object Rexx, file 1/0, 476-477 
Open Object Rexx, squaring a number, 477-479 
Open Object Rexx, stack implementation, 481-485 
Open Object Rexx, user interaction, 479-481 
Open Object Rexx, video circulation, 485-489 
poetry scanner, 93-96 
Reginald interpreter, file & drive management, 400-4 
Reginald interpreter, MIDI files, 414-415 
Reginald interpreter, speech recognition, 412-414 
Reginald interpreter, Windows GUI, 404-412 
Reginald interpreter, Windows registry, 416-418 
Rexx Server Pages (RSPs), 287-288 
Rexx/gd library, 268-271 
Rexx/imc C-language I/O functions, 354-356 
Rexx/imc environmental functions,352-354 
Rexx/Tk package, 260-264 
RexxXML library, 299-302 
rightmost position of byte in string, 128-130 


script environment, 200-201 
stack for interroutine communication, 165-166 
stack, using, 162-165 
telephone area code lookup, 61-62 
weighted retrieval, 58-60 
Exception class, roo!, 455 
exception handling. See error trapping 
exclamation (!), command identifier, 454 
EXE Conversion Utility, r4 and roo! interpreters, 451 
EXEC interface, 505 
EXECDROP command, CMS, 499 
EXECIO command 657-664 
CMS, 499, 508, 510 
definition of, 504 
OS/TSO Rexx, 502 
EXECLOAD command, 499 
EXECMAP command, CMS, 499 
EXECs, VM Rexx, 496 
EXECSTAT command, CMS, 499 
EXECUTIL command, 502 
exists function 
Regina, 339, 579 
roo!, 454 
exit instruction 
definition of, 539 
example using, 43, 46 
NetRexx, 630 
placement of, 113-114, 115, 186 
as structured construct, 34 
exp function 
BRexx, 364 
Rexx/imc, 349 
expand function,Reginald,399 
explicit concatenation, 80 
exponential numbers, 25-26 
export function, Regina, 338, 579 
expose instruction, Open Object Rexx, 471, 481 
exposed variables, 124-128 
Extensible Markup Language (XML), 291-292. See 
also RexxXML library 
Extensible Stylesheet Language Transformations 
(XSLT), 292 
extensions, 110, 111 
external access functions, Reginald, 398 
external data queue. See stack 
external functions 
accessing from BRexx, 366 
accessing from Regina, 339-342 
definition of, 120 
external routines, 110 


external subroutine, 41 
ExternalClass class, roo!, 455 
externals function 

mainframe Rexx, 593 

VM Rexx, 497 
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>F> in trace file, 139 
FAILURE condition, 144, 148 
.false object, Open Object Rexx, 471 
fdopen function, Rexx/imc, 351 
FIFO (first-in, first-out) queue, 160-161 
file associations for Windows interpreters, 326-327 
File class, roo!, 455 
file functions 
BRexx library for, 367 
fileno function, Rexx/imc, 351 
FileRexx Function Library, 616 
files 
appending to, 76 
closing, explicit, 69, 71 
closing, implicit, 68 
encryption/decryption of, Open Object Rexx, 473 
end-of-file (EOF) character, 73, 74 
opening, implicit, 68 
positions of, moving explicitly, 72 
positions of, moving implicitly, 68 
redirecting command I/O to and from, 217 
filesize function, HHNS WorkBench, 277 
FileSpec function, 391 
FileUt package, 616 
finalize method, roo!,453 
find function 
mainframe Rexx, 594 
Regina, 337, 580 
VM Rexx, 497 
FINIS command, CMS, 499 
first-in, first-out (FIFO) queue, 160-161 
fixed-point (decimal) numbers, 26 
floating point numbers, 26 
flush function, BRexx, 365 
FolderContext class, roo!, 455 
fork function, Regina, 338, 580 
form function, 196, 557 
form special name, NetRexx, 522, 629 
FORMAT command, CMS, 510 
format function, 102-103, 557-558 
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formatdate function, CGI/Rexx, 274 
forums, 531-532 
forward instruction, Open Object Rexx, 471 
forward slash 

/ (division operator), 27 

// (remainder division operator), 27 
free-form (free-format) languages, 7, 23 
freespace function, Regina, 338, 
580 
French, Rexx forums, 532 
FrmHdr function, HHNS WorkBench, 278 
FrmInp function, HHNS WorkBench, 278 
ftell function, Rexx/imc, 351, 356 
fullurl function, CGI/Rexx, 274 
The FUNCDEF feature, Reginald, 388 
funcdef function, Reginald, 398 
functions. See also call instruction; specific 
functions 

arguments of, 23, 25 

bit string functions, 96-97 

for BRexx, 363-366, 367-368 

built-in functions, 110, 120 

calling, 111-112, 184 

external functions, 120 

HHNS WorkBench, 278 

internal functions, 120 

list of, 547-571 

for mainframe Rexx, 593-595 

for Mod_Rexx, 282, 623-625 

nesting, 111-112, 174-175 

for numbers, 103-106 

for Open Object Rexx, 472 

passing parameters to, 116-117, 128, 185 

placement of, 113-115, 123, 177 

recursive, 121-123, 128-130 

for Regina, 335-339, 573-591 

for Reginald, 387-392, 398-399 

result of, 25, 111, 184-185 

Rexx/imc, 348-356 

for Rexx/SQL, 233, 597-606 

for Rexx/Tk, 607-613 

for RexxXML, 293-294 

for roo!, 448 

scope of variables in, 123-128 

search order for, 120 

string functions, 89-90, 92-97 

syntax for, 23 

user-defined functions, 110 

for VM Rexx, 497-498 
fuzz function, 196, 558 
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Gargiulo, Gabriel (REXX in TSO Environment), 513 
GCS (Group Control System) interface, 505 

gd package, 111 

gdImageColorAllocate function, 267, 271 
gdImageCreate function, Rexx/gd, 271 
gdImageDestroy function, Rexx/gd, 267, 271 


gdImageFilledRectangle function, Rexx/gd, 267 


gdImageJpeg function, Rexx/gd, 267 
gdImageLine function, Rexx/gd, 267 
gdImageRectangle function, Rexx/gd, 267 
German, Rexx forums in, 532 
getch function, BRexx, 368 
GetCookie function, HHNS WorkBench, 278 
getcwd function, Rexx/imc, 348, 352 
getenv function 

HHNS WorkBench, 277 

Regina, 338, 581 

Reginald, 398 

Rexx/imc, 348, 352 
getfullhost function, CGI/Rexx, 274 
getkwd function, HHNS WorkBench, 277 
GETMSG function, OS/TSO Rexx, 501 
getowner function, CGI/Rexx, 274 
getpid function 

HHNS WorkBench, 277 

Regina, 338, 581 

Reginald, 398 
getspace function, Regina, 338, 581 
gettid function, Regina, 338, 582 
GetTitle function, MIDI interface, 443 
getwparm function, HHNS WorkBench, 277 
Gimp Toolkit, 256 
Glatt, Jeff (developer of Reginald), 312, 385 
global variables, 127-128, 172, 178, 185 
GLOBALV command, CMS, 499 
glue languages, 4, 9, 434 
gmImagePng function, Rexx/gd, 267 
Goldberg, Gabe (The Rexx Handbook), 513 
gotoxy function, BRexx, 368 


Graphical Applications w/ Tcl and Tk (Johnson), 264 
graphical user interface packages. See GUI packages 


greater than operator (>), 29 


greater than or equal to operator (>=), 29 greater 


than or less than operator (<> or ><), 29 


Group Control System (GCS) interface, 505 

GTK+ package, 616 

GTK toolkit, 256, 257 

guard instruction, Open Object Rexx, 471 

GUI packages. See also Windows GUI functions 
list of, 255-257 
Rexx/DW package, 256-257, 264-266, 616 
Rexx/gd library, 266-271 
Rexx/Tk package, 256, 258-264, 607-613, 617 

GUI trace panel, Reginald, 395 


H 


Hack package, 616 
HackMaster, 435 
HALT condition, 144, 148 
Handheld PC Magazine, 430 
handheld platforms. See also Android 
BRexx support for,435-440 
definition of, 8, 10 
hash function, Regina,337, 582 
HE command, OS/TSO Rexx,502 
help. See also documentation 
for BRexx, 361 
for Reginald, 387, 390 
user groups, 531 
for VM Rexx, 495 
Web forums, 531-532 
help command, example using, 222-225 
Henri Henault & Sons Web site, 277 
The Hessling Editor (THE), 183, 665 
Hessling, Mark (current developer for Regina), 312, 331 
hexadecimal numbers, 26 
HHNS WorkBench, 276-281, 616 
HI command 
OS/TSO Rexx, 502 
VM Rexx, 498 
high-level languages, 3 
HT command 
OS/TSO Rexx, 502 
VM Rexx, 498 
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HTML CGl-scripting functions, BRexx library for, 367 
HTML (Hypertext Markup Language), 292 
htmlbot function, CGI/Rexx, 274, 276 
htmlbreak function, CGI/Rexx, 274 
HtmIGadgets package, 616 

HtmlStrings package, 616 

HTMLToolBar package, 616 

htmltop function, CGI/Rexx,274 

httab function, CGI/Rexx, 274 

HX command, VM Rexx, 498 

Hypertext Markup Language (HTML), 292 


IBM. history of Rexx and, 308-9 
Rexx interpreters for, 321 
IBM DB2 UDB Admin. Reference API, 252 
IBM DB2 UDB Appl. Development Guide, 252 
IBM mainframe Rexx. See mainframe Rexx 
IBM Object REXX interpreter, 257. See also Open 
Object Rexx interpreter 
IBM Rexx Family Web site, 533 
IBM Rexx Language Web site, 533 
IDENTIFY command, CMS, 499, 508 
if instruction 
definition of, 35-37, 539 
example using, 23, 38-40 
NetRexx, 630 
as structured construct, 34 
if-else-if ladder, 36-37 
IF-THEN construct, 34 
IF-THEN-ELSE construct, 34 
implicit concatenation, 80 
import function 
BRexx, 363 
Regina, 338, 582 
import instruction, NetRexx, 521, 631 
IMS (Information Management System) interface, 505 
indentation, 172-173 
index function 
mainframe Rexx, 594 
Regina, 337, 582-583 
VM Rexx, 497 
indexed strings, NetRexx, 521-522 
Information Management System (IMS) interface, 505 
initialize method, roo!, 453 
inkey function, HHNS WorkBench, 277 
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InLineFile class, roo!, 455 
InOutLineFile class, roo!, 455 
input 
redirecting, 76 
standard, 68 
input instructions. See parse instruction; pull 
instruction 
.input object, ooRexx, 470 
input/output. See I/O 
insert function, 90, 558 
install scripts, 209 
instance creation operator (“4), 453 
instance methods, Open Object Rexx, 466 
instantiation, Open Object Rexx, 465, 478 
InStream class, roo!, 455 
instructions. See also specific instructions 
list of, 535-546 
multiple instructions on one line, 59 
for NetRexx, 521, 630-633 
for Open Object Rexx, 
471 operands of, 25 
for OS/TSO Rexx, 501 
for Reginald, 394, 396-397, 398 
for structured constructs, 34 
for unstructured constructs, 47 
for VM Rexx, 496-497 
insufficient storage error,102 
integer division operator (%), 27 
integers, 26. See also 
numbers interactive 
debugging, 4 
Interactive System Productivity Facility (ISPF), 183, 
505 
ISPF edit macros, 665-670 
internal functions, 120. See also functions 
internal routines, 110 
internal subroutines, 41, 110. See also subroutines 
international support, by Regina, 333 
Internet/REXX HHNS WorkBench, 276-281, 616 
interpret instruction 
definition of, 540 
example using, 146, 439 
Reginald, 398 
interpreted languages, 4 
interpreters. See also compilers; tokenizers; specific 
interpreters 
affecting portability, 203 
choosing, 13-14, 313-321 
commercial, 322-323 
for embedded programming, 321-322, 430 
free, 311-312 
for handheld platforms, 314, 321-322, 425 
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for IBM, 321 
information from, 202 
for Java environment, 320 
list of, 12-13 
location of, as first line of script, 204 
for mainframe platforms, 320 
multiple, on one computer, 325-327 
for new Rexx programmers, 13 object- 
oriented, 314, 319-320 
standardization of, 8 
thread-safe, 281-288, 333 

intr function,BRexx, 363 

/O (input/output) 
BRexx functions for, 364-366, 368-369 
character-oriented, 68, 72-75, 191 
command I/O, controlling,216-219 
command I/O, stack for, 225-226, 342, 368-369 
conversational, 75 
definition of, 67-69 
line-oriented, 68, 69-72, 191 
Open Object Rexx methods for, 476-477 
OS-specific features for, 76-77 
portability of, 76-77, 205 
redirected, 75-76, 213-215 
Regina functions for, 339, 342 
Reginald functions for, 390-392 
Rexx/imc functions for, 351, 354-356 
standard input, 68 
standard output, 68, 75 

interview questions, 709-720 

iPhone, 445 

IrDA communications, 441-442 

ISAM package, 111 

iSH, 445 

ISPEXEC interface, 505 

ISPF (Interactive System Productivity Facility), 183, 

505, 

ISPF edit macros, 665-670 

ISREDIT interface, 505 

iterate instruction 
definition of, 47, 50, 540 
NetRexx, 631 

iterateexe function, Reginald, 399 


J 


Java Native Interface, for roo!, 454 

Java, Rexx interpreter for. See NetRexx interpreter 
Java Runtime Environment (JRE), 517 

Java SDK (Software Development Toolkit), 517 
Jaxo. See Android 

JCL for batch Rexx, 671-676 


Johnson, Eric F. (Graphical Applications w Tcl & Tk), 
264 
JRE (Java Runtime Environment), 517 
justify function 
mainframe Rexx, 594 
Regina, 337, 583 
Reginald, 399 
Rexx/imc, 350 
VM Rexx, 497 
JSON, 689-694 


K 


kbhit function, BRexx, 368 

key folding, 97, 106-107 

key-value pairs, 60-61, 63 

Kiesel, P. (Rexx: Advanced Techniques...), 513 

Kilowatt Software. See r4 interpreter; roo! interpreter 


L 


>L> in trace file, 139 
labels. See also symbols 

for driver (main routine), 

123 for subroutine, 42-43 

as target of signal instruction,49-50 
last-in, first-out (LIFO) stack, 160 
lastpos function, 90, 558 
LD_LIBRARYN32_ PATH variable, 340 
LD_ LIBRARY PATH variable, 340 
leaf-node processing, 63 
Learn REXX Programming in 56,479 Easy Steps, 533 
leave instruction 

definition of, 47, 48-49, 540 

NetRexx, 631 
left function, 90, 559 
length function, 40, 90-92, 559 
length NefRexx special name, 522, 629 
less than operator (<), 29 
less than or equal to operator (<=), 29 
LIBPATH variable, 340 
LIFO (last-in, first-out) stack, 160 
line continuation character (,), 111, 122, 173, 186 
line separation character (;), 173 
linefeed character, 74 
linein function 

definition of, 69, 559 

example using, 70 


explicitly controlling file positions, 72 
return string for, 180, 196 
line-oriented I/O, 68, 69-72, 191 
lineout function 
closing file with, 71 
definition of, 69, 559-60 
example using, 70 
explicitly controlling file positions, 72 
return string for, 180, 196 
lines function 
definition of, 69, 71, 560 
example using, 70 
return string for, 180, 196-197, 205 
linesize function 
mainframe Rexx, 595 
VM Rexx,497 
Linux platforms 
definition of, 8 
embedded Linux, 430 
tiny Linux, 430 
List class 
Open Object Rexx, 468, 619 
roo!, 455 
list (one-dimensional array), 53, 63 
list processing, 79, 95 
LISTDSI function, OS/TSO Rexx, 501 
LISTFILE command, CMS, 499, 508 
literals 
case sensitivity in, 22-3 
definition of, 26 
errors in, 184 
quotes in, 23, 26 
1n function, Rexx/imc, 349 
load function 
BRexx, 363 
LoadText function, Reginald, 391, 404 
.local object, Open Object Rexx, 470 
local variable, roo!, 453 
log function, BRexx, 364 
log10 function, BRexx,364 
logical AND operator (&),30 
logical EXCLUSIVE OR operator (&&), 30 
logical NOT operator (\ or 7), 30 
logical operations on binary strings, 97 
logical operators, 30 
logical OR operator (|), 30 
loop instruction, NetRexx, 521, 524, 631 
loop over inrool!, 454 
loops. See do instruction 
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LOSTDIGITS condition, 102, 144, 148, 472, 504 
lower function 

Regina, 337 

roo!, 454 
LU62 interface, 505 


macOS platforms, 8 
macro language, 111, 324-325 
macro programming, 10 
MacroEd package, 616 
mainframe platforms 
definition of, 8 
interpreters for, 320 
stack implementation, 166-168 
emulation, 729-732 
mainframe Rexx 
advantages of, 320 
ANSI1-1996 and, 683-687 
Clist and, 677-681 
definition of, 493-494 
example using, 506-511 
extended functions for, 593-5 
interfaces to, 504-506 
migrating scripts to other platforms from, 542-513 
OS/TSO Rexx, 500-503 
platforms supported by, 493 
standards supported by, 503-504 
VM Rexx, 494-499 
maintenance, 5, 6 
MAKEBUF command 
CMS, 499 
mainframe Rexx, 166 
OS/TSO Rexx, 502 
makebuf function 
BRexx, 363 
Regina, 167, 342, 583 
Reginald, 396, 399 
roo!, 454 
Map class, roo!, 455 
MatchName function, Reginald, 391, 403-404, 411 
Math class, roo!, 455 
mathematical applications, using Rexx for, 11 
mathematical functions 
BRexx, 364 
HHNS WorkBench, 278 
Reginald, 387 
Rexx/imc, 349 
max function, 103-104, 560-561 
McPhee, Patrick T. J. (of RexxXML), 299 
MenuObject class, Open Object Rexx, 622 
Message class, Open Object Rexx, 469,620 
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methget function, CGI/Rexx, 274 
Method class, Open Object Rexx, 469, 620 
:imethod directive, Open Object Rexx, 470 
method instruction 

NetRexx, 521, 631 

roo!, 453 
method invocation infix operator (~), 453 
method invocation operator (~), 465,466, 470 
method invocation operator (~~), 466,470 
method prefix operator (“),453 
methods 

NetRexx, 520 

Open Object Rexx, 465, 466, 476, 619-622 

roo!, 452 
.methods object, Open Object Rexx, 471 
methpost function, CGI/Rexx, 274 
MIDI I/O Function Library, 616 
MIDI Rexx Function Library, 387, 414-415, 616 
DICt1Name function, MIDI Rexx, 415 
CtlNum function, MIDI Rexx, 415 
EventProp function, MIDI Rexx, 415 
GetEvent function, MIDI Rexx, 415 
GetGMDrum function, MIDI Rexx, 415 
GetInfo function, MIDI Rexx, 415 
GetVMPgm function, MIDI Rexx, 415 
NoteName function, MIDI Rexx, 415 
NoteNum function, MIDI Rexx, 415 
OpenFile function, MIDI Rexx, 415 
PortName function, MIDI Rexx, 415 
SaveFile function, MIDI Rexx, 415 
SetEvent function, MIDI Rexx, 415 
Sysex function, MIDI Rexx, 415 
MIDITrack function, MIDI Rexx, 415 
migration, using Rexx for, 10 
min function,103-4,561 
minus sign (-) 

negative number prefix operator, 27 

subtraction operator, 27 
mkdir function, BRexx, 368 
mobile phones, 435-445. See also Android 
platforms mod operator (remainder division operator) 
(//), 27 
Mod_Rexx interface 

definition of, 281-282, 616 

example using, 287-288 

functions and variables in, 282, 623-627 

installing, 282-283 

resources for, 288 

scripting with, 283-287 
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modularity 

definition of, 7, 33, 109 

example using, 118-120 

guidelines for, 177-178 
Monitor class, Open Object Rexx, 469, 620 
movefile function 

BRexx, 368 

Reginald, 391 
MQ-Series Rexx interface, 505 
MsG function, OS/TSO Rexx, 501 
msgbox function, BRexx, 368 
multiple inheritance, Open Object Rexx, 467 
multiplication operator (*), 27 
MutableBuffer class, ooRexx, 469 
MVS Forums, 532 MVS Help forum, 532 
MVSVAR function, OS/TSO Rexx,501 
MySQL database, 230, 249 
MySQL I/O functions, BRexx, 365-366 
myurl function, CGI/Rexx, 274 
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NAMEFIND command, CMS, 508 
nap function, roo!, 454 
Nash, Simon (developer of Object Rexx), 312 
native programming, for handhelds, 435-445 
natural language processing, 93-96 
negative number prefix operator (-), 27 
nesting functions,111-112, 174-175 
NetRexx interpreter 
advantages of, 317, 320, 515-516 
definition of, 13, 311, 312, 515 
documentation for, 517 
downloading and installing, 517-518 
example using, 523-526 
extra features in, 519-523 
instructions, 521, 630-633 
Java knowledge required for, 516-517 
Java software required for, 517 
running scripts, methods for, 518-9 
special methods, 523, 630 
special names, 522-523, 629 
Netview, 505 
Netware, Rexx for, 321 
new method, Open Object Rexx, 465 
newline character, 74 
NEWSTACK command 
mainframe Rexx, 167 
OS/TSO Rexx, 502 


newstack function, roo!, 454 
-nil object, Open Object Rexx, 470 


Nirmal, B. (REXX Tools and Techniques),513 
NOMETHOD condition, 472 
nonsparse arrays (dense arrays), 53 
nop instruction 
definition of, 37, 541 
NetRexx, 632 
NOSTRING condition, 472 
not equal operator (\= or 7=), 29 
not greater than operator (\> or 7>), 29 
not less than operator (\< or 7<), 29 
“not” sign, ANSI-standard, 204, 496 
NOTREADY condition, 144, 148 
NOVALUE condition, 144, 148 
null NetRexx special name,522,629 
numbers 
calculation results identical across platforms, 27, 
99 
calculation rules for, 100-101 
conversion functions for, 105-6 
definition of, 25-26, 100 
errors from calculations, 28, 102 
example using, 106-107 
exponential notation, 101-102, 103 
functions for, list of, 103-104 
parsing by, 83-84 
significant digits (precision), 28, 101-102 
numeric comparisons, 28 
numeric digits instruction,101-—102 
numeric form instruction, 102 
numeric fuzz instruction, 101-102 
numeric instruction 
definition of, 28, 5414 
NetRexx, 632 


O 


>O> in trace file, 139 

Object class 
Open Object Rexx, 469, 621 
roo!, 455 

Object REXX GTK+ Project, 257 


Object REXX interpreter, 257, 310, 460. See also Open 


Object Rexx interpreter 
ObjectCUR for Object REXX, 616 
OBJECTION condition, 454 


object-oriented interpreters, 314, 319-320. See also 
NetRexx interpreter; Open Object Rexx interpreter; 


r4 interpreter; roo! interpreter 
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object-oriented programming, learning, 475 
objects, Open Object Rexx, 465, 470-1 
ODBC API (Open Database Connectivity Application 
Programming Interface), 230, 232 
ODBC (Open Database Connectivity), 249 
ODBC drivers, 387, 391, 616 
OLEObject class, ooRexx, 622 
OODialog, 257 
ooRexx. See Open Object Rexx interpreter 
Open Database Connectivity Application Programming 
Interface (ODBC API), 230, 232 
Open Database Connectivity (ODBC), 249 
Open Database Connectivity (ODBC) drivers, 387, 391, 
616 
open function 
BRexx, 365 
Regina, 339, 583-584 
Rexx/imc, 351, 355 
Open Object Rexx interpreter (ooRexx) 
advantages of, 317, 319-320 
built-in objects, 470-471 
classes, 465-467, 468-469, 476, 619-622 
definition of, 13, 310, 312, 459 
directives, 470 
downloading and installing, 462-464 
environmental variables for, 464 error 
conditions, 472 
example using, concurrency, 489-491 
example using, file 1/0, 476-477 
example using, squaring a number, 477-479 
example using, stack implementation, 481-485 
example using, user interaction, 479-481 example 
using, video circulation, 485-489 features of, 460-2 
functions, 472 
history of, 460 
instructions, 471 
learning object-oriented programming with, 475 
object-oriented features of, 464-468 
operators, 469-470 
platforms supported by, 462, 472-473 
Rexx API, 472 
RexxUtil package, 472 
roo! interpreter as alternative to, 448 
special variables, 471 
Windows features, 472-473 
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OPENVM routines, 505 
operands, of instructions, 25 


operating system extensions, using Rexx for, 10 


operating systems. See platforms 
operatorless condition test, 120 
operators 

arithmetic, 27-28 

comparison, 28-30 

concatenation operator (||), 30-31, 80 

logical, 30 


object-oriented, in Open Object Rexx,469-470 


object-oriented, in roo!, 453-454 
order of precedence for, 31-32 
options instruction 
definition of, 203, 334-335, 541-542 
NetRexx, 521, 632 
portability and, 205 
Reginald, 394 
VM Rexx, 496-497 
Oracle database, connecting to, 248 
oraenv function, CGI/Rexx, 274 
order of precedence for operators, 31-32 
OrderedVector class, roo!, 455 
OS commands. See commands, OS 
OS platforms, 8 
OS simulation interface, 505 
OS/2 platforms, 8 
OS/2 Rexx 
functions supported by Regina, 336 
OS/400 platforms, 8 
OS/TSO Rexx, 500-503 


otherwise keyword, select instruction, 40-41 
Ousterhout, John (“Scripting: Higher Level Programming 


for the 21st Century”),11 

OutLineFile class, roo!,455 
output 

redirecting, 76 

standard, 68, 75 
output function, 73 
.output object, Open Object Rexx, 470 
OutStream class, roo!, 455 
OUTTRAP function, OS/TSO Rexx, 501 
overflow error, 28, 102 
overlay function, 90, 561 
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>P> in trace file, 139 
package instruction, NetRexx, 521, 632 


packages for Rexx, list of, 615-618. See also 
specific packages 
parameters 
example using, 118-120, 128-130 
passing, Reginald features for, 396 
passing to script on command line, 115-116 


passing to subroutines and functions, 116-117, 128, 


185 

parent classes, Open Object Rexx, 466-467 
parentheses (()) 

affecting order of precedence, 31-2 

enclosing function arguments,23 
parse arg instruction, 115-117, 185, 195 
parse instruction 

definition of, 26, 542 

NetRexx, 632 

parsing by template, 82-85 

system information strings returned by, 635 

VM Rexx, 496-497 
parse linein instruction, 165 
parse pull instruction 
affecting stack, 160-162, 164 
reading input, 39, 75 
parse source instruction, 198, 352 
parse value instruction, Rexx/imc, 350 
parse version instruction, 198-199, 352 
PARSECMD command, CMS, 499 
parsefid function, HHNS WorkBench, 277 
parsing, 79-80, 81-89, 701-704 
path function, Reginald, 391 
Pattern Class, roo!,455 
pattern matching, 80 
pattern, parsing by, 82, 83 
PatternMatch class rool, 
456 
pclose function, Rexx/imc, 351 
percent sign (%), integer division operator, 27 
performance 

of Apache Web server, 

281 of BRexx, 359, 360 

of database interface, 230, 247 

of DOS emulation, 426-427 

of 1/0, portability and, 76-77 

of Rexx/DW, 264 

of Rexx/Tk, 256 

of scripting language, 5-6, 11 


period (.), placeholder variable, 116 
persistent streams, 67-68 
Personal Rexx (Quercus Systems), 526 
PIPE command, CMS, 499 
placeholder variable (.), 116 
placeholder variable (?), 247, 252 
platforms. See also portability; specific platforms 
OS-specific editors, 183 
OS-specific |/O features, 99 retrieving 
information from, 202 
supported by BRexx interpreter, 359 
supported by mainframe Rexx, 493 
supported by Open Object Rexx, 462, 472-473 
supported by r4 and roo!, 447 
supported by Regina, 14, 332 
supported by Reginald, 385 
supported by Rexx, 8-9, 309 
supported by 
Rexx/imc, 345 
PlayASong function, MIDI interface, 443 
plus sign 
+ (addition operator), 27 
+ (positive number prefix operator), 27 
+++ (in trace file), 139 
polymorphism 
NetRexx, 520 
Open Object Rexx, 
467 roo!, 452 
Poof! tool, r4 and roo! interpreters, 451 
poolid function, Regina, 584 
popen function 
HHNS WorkBench, 277 
Regina, 338, 584 
Reginald, 394 
Rexx/imc, 351 
portability. See also platforms 
calculation results identical across platforms, 27, 
99 
command procedures and, 210 
definition of, 190 
example using, 200-201 
factors affecting, 190-192, 202-205 
I/O and, 76-77, 205 
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portability (continued) 

migrating mainframe scripts to other platforms, 

512-513 

OS commands and, 191-192, 201-202 

Rexx for, 10 

RexxUtil package for, 206-207 

script environment and, 195-199 

standards and, 191, 192-195 
pos function, 87, 90-92, 561 
positive number prefix operator (+), 27 
pow function, BRexx, 364 
powl0 function, BRexx, 364 
Prechelt, Lutz (“An Empirical Comparison of Seven 

Programming Languages”), 11 

precision. See numeric 
instruction prefix operators, 27 
preinitialize method, 453 
printheader function, CGI/Rexx, 274, 276 
printvariables function, CGI/Rexx, 274, 276 
private methods, Open Object Rexx, 466 
procedure expose instruction, 124-128, 177 
procedure hide instruction, Rexx/imc, 350 
procedure instruction, 124-128, 543 
PROCESS construct, 34 
program maintenance, 5, 6 
Programming Language Rexx Standard, 532 
programming style 

capitalization and, 170-171 

code reviews, 183-184 

comments, 175-177 

common coding errors, avoiding, 184-187 

error handling, 179-180 

global variables, 178 

methods of, 169-170 

modularity, 177-178 

nesting, 174-175 

Rexx-aware editors, 183 

site standards for, 183 

structured code, 178-179 

subscripts, 181 

variable naming, 171-172 

variables, declaring, 182 

white space (spacing and indentation), 172-173 
Programming with REXX Dialog, 392 
PROMPT function, OS/TSO Rexx, 501 
properties instruction, NetRexx, 521, 632 
properties, NetRexx, 520 
protect instruction, NetRexx, 521 
prototyping, using Rexx for, 10 
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public methods, Open Object Rexx, 466 
publications. See also documentation; standards 
“An Empirical Comparison of Seven Programming 
Languages” (Prechelt), 11 
ANSI-1996, 8 
Embedded Systems Programming Magazine, 430 
Graphical Applications w Tcl & Tk (Johnson), 264 
Handheld PC Magazine, 430 
IBM DB2 UDB Administrative Reference API, 252 
IBM DB2 UDB Application Development Guide, 252 


Learn REXX Programming in 56,479 Easy Steps, 386, 


392 

Pocket PC Magazine, 430 

Programming Language Rexx Standard, 532 

Programming with REXX Dialog, 392 

Rexx: Advanced Techniques... (Kiesel), 513 

The Rexx Handbook (Goldberg), 513 

REXxX in the TSO Environment (Gargiulo), 513 

The Rexx Language: Practical Approach to 
Programming (TRL-1) (Cowlishaw), 193 

The Rexx Language (TRL-2), 8, 193, 310, 532 

REXX Tools and Techniques (Nirmal), 513 

REXX/VM Reference, 494, 593 

REXX/VM User’s Guide, 511 

RexxXML Usage and Reference, 299 

“Scripting: Higher Level Programming for the 21st 
Century” (Ousterhout), 11 

Systems Application Architecture Common 
Programming Reference, 494 

Tcl/Tk in a Nutshell (Raines, Tranter), 264 

TSO/E REXX Reference, 500, 593 

TSO/E REXxX User’s Guide, 511 

Using Mailslots, Reginald, 392 

Using Reginald to Access the Internet, 392 

Using Reginald w CG), 392 

Web sites listing, 531-2 

The World of Scripting Languages (Barron), 14 


pull instruction 


affecting stack, 160-162, 164 
compared to parse pull instruction, 39 
definition of, 23, 26, 81, 543 


push instruction, 160-162, 163, 543 
putenv function, Rexx/imc, 348 


Python <--> Rexx, 725-728 
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QBUF command 
mainframe Rexx, 166 
OS/TSO Rexx, 502 
QELEM command, OS/TSO Rexx, 502 
QSTACK command 
mainframe Rexx, 167 
OS/TSO Rexx, 502 
qualify function 
definition of, 562 
Reginald, 391 
Quercus Systems, Personal Rexx, 526 
QUERY command, CMS, 499, 508 
querymacro function, Reginald, 398 
question mark (?), placeholder variable, 247, 252 
questions at end of chapter, answers for, 637-655 
queue. See stack 
Queue class 
Open Object Rexx, 468, 620 
roo!, 456 
queue instruction, 160-162, 163-164, 543-544 
queued function 
definition of, 160, 163, 164, 562 
Reginald, 399 
quotes, double (“...”) 
enclosing character strings, 23, 26 
enclosing OS commands, 181-182 
quotes, single (‘...’), enclosing character strings, 23, 26 
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r4 interpreter 
advantages of, 316, 319, 447-448 
definition of, 13, 312, 447 
documentation for, 447, 449 
downloading and installing, 448-449 
support for, 448 
tools for, 450-451 
Windows GUI functions, 448 
Raines, Paul (Tcl/Tk in a Nutshell), 264 
raise instruction 
Open Object Rexx, 471, 472 
Reginald, 395 
raise to a power operator (**), 27 
raiseObjection function, 454 
random function 
definition of, 23, 25, 103-104, 562 
Reginald, 399 


Q-R 


random numbers, example program using, 21-24 
randu function, Regina, 338, 585 
rc variable, 147, 151, 197, 211, 213 
read function, BRexx, 365 
read position, 68 
readch function, Regina, 339, 585 
readform function, CGI/Rexx, 274, 276 
readin function, Regina,339, 585 
readpost function, CGI/Rexx,274 
real numbers, 26 
real-time operating system (RTOS), 430 
record-oriented files, 86 
recursion, 121-123, 128-130 
redirected I/O, 75-76, 213-215 
Regina interpreter 
advantages of, 332-333 
benefits of, 13-14 
bit manipulation functions, 336-337 
command I/O, stack for, 342 
definition of, 12,312, 317-318 
documentation for, 14, 333 
downloading, 14-15 
environmental functions, 338 
example using, 343 
extended functions for, 335-339, 573-591 
external function libraries, accessing, 339-342 
extra features in, 316, 334 
for handheld platforms, 425 
history of, 334 
installing, 15-19 
international support, 333 
interpreter options for, 334-5 
1/0 functions, 339 
open source, 333 
platforms supported by, 14,332 
Rexx API support, 333 
SAA API, 343 
stack functions, 342 
standards supported by, 332 
string manipulation functions, 337 
supercompatibility with other interpreters, 333 
superstacks, 333 support community for, 332 
thread-safe, 333 
Regina Rexx language project, 531 
Reginald interpreter 
Administration tool, 387, 399, 615 
advantages of, 316, 318, 385-386 
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Reginald interpreter (continued) 
array indexing, 397 
definition of, 13, 312, 385 
do over instruction, 396-397 
documentation for, 386, 387, 392-393 
downloading and installing, 386 
error conditions, defining and raising, 395 
example using, file and drive management, 400-404 
example using, MIDI files, 414-415 
example using, speech recognition, 412-414 
example using, Windows GUI, 404-412 
example using, Windows registry, 416-418 
extended functions, 387-388 
external access functions, 398 
GUI trace panel, 395 
interpret instruction, 398 
I/O functions, 390-392 
MIDI Rexx function library, 387, 414-415, 616 
miscellaneous functions, 399 
ODBC drivers, 391 
options instruction, 394 
OS commands, issuing, 393-394 
parameter passing, 396 
platforms supported by, 385 
REXX Dialog, 387, 388-390, 404-409 
REXX Dialog IDE, 390, 400 
Rexx Text Editor (RexxEd), 183, 398, 399 
Script Launcher, 399, 618 
scripting with, 399-400 
sorting array items, 396 
speech function library, 412-4 
SQLite driver, 387, 392 
stack functions, 396, 398-399 
standards supported by, 386 
system information functions, 398 
tools for, 386-387 
Windows DLLs, 395-396 
Windows GUI functions (REXX Dialog), 388-90, 404-12 
Windows registry, accessing, 395, 416-418 
Reginald Rexx Forum, 532 
regular expressions library, Reginald, 388 
Regular Expressions package, 616 
RegUtil package, 617 
Relation class, Open Object Rexx, 468, 620 
relational database, 229. See also database 
remainder division operator (//), 27 
reply instruction, Open Object Rexx, 471 
request record pointer, 286 
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::requires directive, Open Object Rexx, 470 
resources. See also publications; Web sites 
standards for Rexx, 8, 191, 192-195, 532 
user groups, 531 
Web forums, 531-532 
response handlers, 284 
REstructured eXtended eXecutor. See Rexx language 
result variable 
definition of, 41, 110, 111, 151, 197 
example using, 112-113 
signal instruction and, 152 
return code. See rc variable 
return instruction 
definition of, 41, 43, 110, 115, 544 
nesting, 111-112 
NetRexx, 632 
placement of, 186 
signal instruction and, 152 
as structured construct, 34 
reverse function, 90, 123, 562 
Revu tool, r4 and roo! interpreters, 451 
REXREF3 package, 616 
REXX. See mainframe Rexx 
Rexx 2 Exe utility, 387, 616 
Rexx: Advanced Techniques... (Kiesel), 513 
Rexx API, 324, 333, 472 
REXX Dialog IDE (RxDIgIDE), 390, 400 
Rexx Dialog package, 257, 616 
REXX Dialog, Reginald, 387, 388-390, 404—409 
Rexx Exits interface, 505 
Rexx for CICS, 320 
The Rexx Handbook (Goldberg), 513 
Rexx home page, 532 
REXX in the TSO Environment (Gargiulo), 513 
Rexx interpreters. See interpreters 
Rexx LA (Rexx Language Association), 460, 531 


Rexx language 
benefits of, 6-7 
elements of, 24-26 
features of, 7-8 
free implementations of, 310, 311-312 
future of, 327 
history of, 6, 189-190, 192-193, 308-311 
interpreter for, choosing, 13-14, 313-321 
limitations of, 11 
packages and tools supported by, 615-618 
platforms supported by, 8-9, 309 
standards for, 8 
uses of, 9-11, 12 
The Rexx Language: A Practical Approach to 
Programming (TRL-1) (Cowlishaw), 193 
Rexx Language Association (Rexx LA), 460 
The Rexx Language (TRL-2) 8, 193, 310, 532 
Rexx Math Bumper Pack, 616 
Rexx newsgroup forum, 531 
Rexx Server Pages (RSPs), 287-288 
Rexx Sockets, 505 
Rexx Speech library, 412-414 
Rexx Text Editor (RexxEd), 183, 387, 399, 617 
REXX Tools and Techniques (Nirmal), 513 
Rexx2Nrx package, 617 
Rexx-aware editors, 183 
Rexx/CGI library (cgi-lib.rxx), 274-276, 615 
Rexx/CURL package, 616 
Rexx/Curses package, 616 
Rexx/DB2 package, 250-253 
Rexx/DW package, 256-257, 264-266, 616 
RexxEd (Rexx Text Editor), 183, 387, 399, 617 
Rexx/gd library, 266-271, 617 
Rexx/imc interpreter 
advantages of, 316, 318, 345-346 
Clanguage I/O functions, 351, 354-356 
definition of, 12, 312, 345 
documentation for, 346 
environmental functions, 348, 352-354 
example using, 352-356 
extra features in, 348- 
351 installing, 346-348 
miscellaneous functions, 350 
packages and tools supported by, 351-352 
platforms supported by, 345 
SAA interface functions, 350 
stack functions, 350 
standards supported by, 345 
transcendental mathematical functions, 349 
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Rexx/ISAM package, 617 
Rexxlets, 434 
RexxMail package, 617 
RexxRE package, 617 
rexxSMLFini function, RexxXML, 294 
Rexx/SQL package 
alternatives to, 250-253 
binding variables, 247, 249-250 
cursor processing, 245-247 
database connections, 233, 234-236, 248-250 
databases supported by, 229-230, 248-250 
definition of, 111, 617 
downloading, 231-232 
environmental control, 233 
environmental functions, 233 
error trapping in, 237-239 
features of, 230 
functions in, list of, 233, 597-606 
installing, 232 
issuing SQL statements, 233, 250 
tables, creating and loading, 239-241 
tables, selecting results from, 241-244, 245-247 
tables, updating, 243-244 
transactions, 233 
RexxTags package,617 
Rexx/Tk package 
definition of, 256, 258, 617 
downloading and installing, 258-259 
example using, 260-264 
functions in, list of, 607-613 
resources for, 264 
scripting with, 259, 264 
Rexx/Trans package, 617 
RexxUtil package, 206-207, 387, 472, 617 
REXX/VM Reference, 494,593 
REXX/VM User’s Guide, 511 
Rexx/Wrapper package, 617 
RexxXML library 
applying stylesheet to document, 299 
definition of, 111, 292, 617 
downloading and installing, 295 
example using, 299-302 
features of, 292 
functions for, list of, 293-294 
licensing, 295 
loading, 296 
processing XML documents, 296-297, 298 updating 
XML documents, 297 
validating documents against schemas, 298 
RexxXML Usage and Reference, 299 
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rexxXMLInit function, RexxXML, 294 
right function,90,122,563 
rmdir function, BRexx, 368 
roo! interpreter 
advantages of, 317, 319, 447-448 
definition of, 13, 310, 312, 447 
documentation for, 447, 449 
downloading and installing, 448-449 
object-oriented programming with, 452-456 
support for, 448 
tools for, 450-451 
Windows GUI functions, 448 
::routine directive, ooRexx, 470 
routines. See functions; subroutines 
.rs object, Open Object Rexx, 471 
r4Sh function, HHNS WorkBench, 278 
RSPs (Rexx Server Pages), 287-288 
RT command 
OS/TSO Rexx, 502 
VM Rexx, 498 
RTOS (real-time operating system), 430 
RxAcc package, 617 
RxBlowFish package, 617 
RxCalibur package, 617 
RxComm Serial Add-on package, 388, 617 
RxCreate function, REXX Dialog, 389, 407 
RXDDE package, 617 
RxDlgDropFuncs function, REXX Dialog, 389 
RxDIgIDE package, 617 
RxDIgIDE (REXX Dialog IDE), 390, 400 
RxDlgLoadFuncs function, REXX Dialog, 389 
RxErr function, REXX Dialog, 389, 407 
RxFile function, REXX Dialog, 389 
rxfuncadd function 
Regina, 585-586 
Reginald, 398 
REXX Dialog, 389 
Rexx/DW, 265 
Rexx/gd, 267 
Rexx/Tk, 261 
SAA, 341, 350 
rxfuncdrop function 
Regina, 586 
Reginald, 398 
SAA, 341, 350 
rxfuncerrmsg function 
Regina, 586 
Reginald, 398 
SAA, 341 
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rxfuncquery function 

Regina, 586-587 

Reginald, 398 

SAA, 341, 350 
RxInfo function, REXX Dialog,389 
rxJava package, 617 
RxMakeShortcut function, REXX Dialog, 389 
RxMsg_ function, REXX Dialog, 389, 408 
RxProject package, 618 
RxQuery function, REXX Dialog, 389 
rxqueue executable, Regina, 342 
rxqueue function 

Regina, 168, 338, 342, 587 

Reginald, 396, 399 
RxRSync package, 618 
RxRunRamScript function, REXX Dialog,389 
RxRunScript function, REXX Dialog, 389 
RxSay function, REXX Dialog, 408 
RxSet function, REXX Dialog,389 
RxSock package, 111, 388, 618 
rxstack executable, Regina,342 
RxWav package, 618 
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SAA API 
definition of, 324 
Regina, 336, 343 
Reginald, 386 
Rexx/imc, 350 


SAA (Systems Application Architecture) standard, 193, 


309, 532 

say instruction 

debugging with, 133-135 

default environment, determining, 636 

definition of, 45, 75, 544 

NetRexx, 633 

system information strings returned by, 635 
sayn instruction, Rexx/imc, 350 
scheduled tasks, 210 
schema validation, with RexxXML, 294, 298 
scoping, 123-130 
screen interfaces, affecting portability, 203 
Script Launcher, 399, 618 


“Scripting: Higher Level Programming for the 21st Cen- 


tury” (Ousterhout), 11 
scripting language, 311-315 
definition of, 3-4 
performance of, 5-6, 11 
Rexx as, 308 


SearchPath function, Reginald, 391 
seek function 
BRexx, 365 
Regina, 339, 587 
select instruction 
as CASE construct, 34, 37 
definition of, 40-41, 544-545 
example using, 43-46 
NetRexx, 521, 633 
Rexx/imc, 350 
self reference, roo!, 453 
self variable, Open Object Rexx, 471 
semicolon (;), line separation character, 59, 173 
SENTRIES command, CMS, 499 
Set class 
Open Object Rexx, 468, 620 
roo!, 456 
SET command, CMS, 499 
SETLANG function, OS/TSO Rexx, 501 
SHARE users group, 531 
shared variable, roo!, 453 
shell language scripts, running Rexx as, 326 
shell scripts. See command procedures 
SHLIB PATH variable, 340 
show function, Regina, 338, 587-588 
sigl variable, 151, 197 
sign function, 103-104, 563 
signal instruction 
compared to call instruction, 152-154 
definition of, 47, 49-50, 545 
error trapping with, 144-146, 147-148 
mainframe Rexx, 504 
NetRexx, 633 
signal off instruction, 148 
signal on instruction, 148 
signatures, NetRexx, 520 
significant digits. See numeric instruction 
simple symbols (variable names), 25, 54, 171-2 
simple variable name, 25 
sin function 
BRexx, 364 
Rexx/imc, 349 
single board computers, 421-433 
single quotes (‘...’), enclosing character strings, 23, 26 
sinh function, BRexx, 364 
skewed tree, 63 
SLAC (Stanford Linear Accelerator Laboratory), 274 
slacfnok function, CGI/Rexx, 275 
slash 
/ (division operator), 27 
// (remainder division operator), 27 


sleep function 

Regina, 338, 588 

Reginald, 399 
smart phones See Android 
Socket Class, roo!, 456 
SOCKET function, VM Rexx, 498 
SORT command, CMS, 510 
Sort statement, Reginald, 396 
source special name, NetRexx, 522, 629 
sourceline function, 150, 153, 196, 197, 563 
space function, 92, 563-564 
spacing and indentation, 172-173 
sparse arrays, 53 
special characters, I/O and, 74-75 
special methods, NetRexx, 523, 630 
special names, NetRexx, 522-523, 629 
special variables 

for Mod_Rexx, 626-627 

for Open Object Rexx,471 

rc variable, 147, 151, 197, 211, 213 

result variable, 41, 151, 197 

sigl variable, 151, 197 
Speech Function Library, 387, 412-414, 618 
SpeechClose function, Rexx Speech, 414 
SpeechOpen function, Rexx Speech, 413 
SpeechPitch function, Rexx Speech, 414 
SpeechSpeak function, Rexx Speech, 413 
SpeechSpeed function, Rexx Speech, 414 
SpeechVoiceDlg function, Rexx Speech, 414 
SpeechVolume function, Rexx Speech, 414 
split function, roo!, 454 
SQL Communications Area (SQLCA), 230, 238 SQL 
statements. See also Rexx/SQL package 

binding variables, 247, 249-250 

issuing, 233, 250, 251 

support for, 230 

tables, creating and loading, 239-241 

tables, selecting results from, 241-244, 245-247 

tables, updating, 243-244 
SQLCA (SQL Communications Area), 230, 238 
SqlClose function, Rexx/SQL, 233, 245, 597 
SqlCommand function, Rexx/SQL, 233, 597-598 
SqlCommit function, Rexx/SQL, 233, 598 
SqlConnect function, Rexx/SQL, 233, 598-599 
SqlDefault function, Rexx/SQL, 233, 599 
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SqlDescribe function, Rexx/SQL, 233, 245, 599-600 


SqlDisconnect function, Rexx/SQL, 233, 600 
SqlDispose function, Rexx/SQL, 233, 601 
SqlDropFuncs function, Rexx/SQL, 601 
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SqlExecute function, Rexx/SQL, 233, 601 
SqlFetch function, Rexx/SQL, 233, 245, 602 
SqlGetData function, Rexx/SQL, 233, 602-603 
SqlGetInfo function, Rexx/SQL, 233, 603 
SQLite driver, Reginald, 387, 392, 
SQLite for BRexx, 371-373 
SqlLoadFuncs function, Rexx/SQL, 603-604 
SqlOpen function, Rexx/SQL, 233, 245, 604 
SqlPrepare function, Rexx/SQL, 233, 245, 604 
SqlRollback function, Rexx/SQL, 233, 605 
SqlVariable function, Rexx/SQL, 233, 605-606 
sqrt function 

BRexx, 364 

Rexx/imc, 349 
squareRoot function, roo!, 454 
S/Rexx (Treehouse Software Inc.), 323 
stack 

affecting portability, 205 

BRexx functions for, 363 

buffers and, 167-168 

for command I/0, 225-226, 342 

definition of, 159-162 

example using, 162-166 

instructions affecting, 160 

maximum size of, 162 multiple, 

in Reginald, 396 number of 

items in, 160 

object-oriented, in Open Object Rexx, 481-5 

portability of, 166-168 

Regina functions for, 342 

Reginald functions for, 396, 398- 

399 Rexx/imc functions for, 350 

superstacks, in Regina, 333 
Stack class, 456 
standard input, 68 
standard output, 68, 75 
standards 

history of, 192-195 

list of, 8, 532 

for mainframe Rexx, 503-504 

portability and, 191, 195 
Standord Linear Accelerator Laboratory (SLAC), 274 
state function 

Regina, 338, 588 

Reginald, 391 
statements. See instructions 
static variable, roo!, 453 
.stderr object, Open Object Rexx, 471 
.stdin object, Open Object Rexx, 471 
.stdout object, Open Object Rexx, 471 
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Stem class, Open Object Rexx, 469, 621 
stem variables (array names), 55 
stemdelete function, Reginald, 399 
steminsert function, Reginald, 399 
storage function 

BRexx, 363 

OS/TSO Rexx, 501 

Regina, 338, 589 

VM Rexx, 498 
Stream class, Open Object Rexx, 469, 621 
stream function 

BRexx, 365 

definition of, 71-72, 196, 564 

portability and, 205 

Regina, 339, 589 

Rexx/imc, 351 

VM Rexx, 497 
stream instance, 477 
streams, I/O, 67-68, 216, 217 
strict comparison operators, 29-30, 187 
strictly equal operator (==), 29 
strictly greater than operator (>), 29 
strictly greater than or equal to operator (>=), 29 
strictly less than operator (<<), 29 
strictly less than or equal to operator (<<=),29 
strictly not equal operator (\== or 7==), 29 
strictly not greater than operator (\> or +>), 
29 
strictly not less than operator (\<< or 7<<), 
29 
String class, Open Object Rexx, 469, 621 
string comparisons,28 
string delimiters, 26 
string manipulation, 79-80, 337 
string processing, 79 
strings 

bit string functions, 96-97 

concatenating, 79-80 

example using, 85-89, 93-96 

functions for, list of, 89-90 

in literals, 23 

parsing, 79-80, 81-85 

word-oriented functions for, 92-96 
strip function, 87-88, 90, 564 
striphtml function, CGI/Rexx, 275 
structured programming, 7, 33-34, 178-179 
study question answers, 637-655 
style. See programming style 


stylesheets. See XSLT (Extensible Stylesheet Language 


Transformations) 
subclasses, Open Object Rexx, 466-467 


SUBCOM command, OS/TSO Rexx, 502 
subroutines. See also call instruction 

calling, 112 

definition of, 41 

error handling using, 144-146 

example using, 43-46 

label for, 42-43 

passing parameters to, 116-117, 128, 185 

placement of, 113-115, 123, 177 

recursive, 121-123 

result of, 112-113 

scope of variables in, 123-128 

types of, 41 
subscripts, 181 
substr function, 88-89, 90, 565 
subtraction operator (-), 27 
subword function, 93, 565 
super special method, NetRexx, 523, 630 
super special name, NetRexx, 522, 629 
super variable, Open Object Rexx, 471 
superclasses, Open Object Rexx, 466-467 
superstacks, Regina support for, 333 
Supplier class, Open Object Rexx, 469, 621 
suspect function, CGI/Rexx, 275 
symbol function, 112, 565 
symbolic pointers, 63 symbols. 
See also labels 

compound (array names), 54-55 

simple (variable names), 25, 54 
SYNTAX condition, 144, 148 
SYSCPUS function, OS/TSO Rexx,501 
SYSDSN function, OS/TSO Rexx,501 
System class, roo!, 456 
system function, Rexx/imc, 348, 352 
system functions 

BRexx, 363 

Reginald, 398 

Rexx/imc, 348, 352 
system information strings, 635 
SystemPropertyMap Class, roo!, 456 
systems administration, using Rexx for, 10 
Systems Application Architecture Common 

Programming Reference, 494 
Systems Application Architecture (SAA) standard, 
193, 309, 532 

systems programming languages, 11 
SYSVAR function, OS/TSO Rexx, 501 
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Table class 
Open Object Rexx, 468, 620 
roo!, 456 
tables (arrays). See arrays 
tables (database) 
creating and loading, 239-241 
selecting results from, 241-244, 245-247 
updating, 243-244 
Tags function, HHNS WorkBench,278 
tail of compound symbol, 55 
Talkabout Network, 531 
tan function 
BRexx, 364 
Rexx/ime, 349 
tanh function, BRexx, 364 
Tb1Hdr function, HHNS WorkBench, 278 
Tcl Developer Exchange Web site, 258 
Tcl/Tk in a Nutshell (Raines, Tranter), 264 
Tcl/Tk scripting language, GUI package using. See 
Rexx/Tk package 
TE command 
OS/TSO Rexx, 502 
VM Rexx, 498 
Tek-Tips Rexx Forum, 532 
template, parsing by, 82-85 
testing. See debugging 
text processing, 10. See also string manipulation; 
strings 
textual analysis, 93-96 
THE (The Hessling Editor), 183, 618 
this special method, NetRexx, 523, 630 
this special name, NetRexx, 523, 629 
thread-safe interpreter, 281-288, 333 
tilde, double (~~), method invocation, 466-70 
tilde (~), method invocation, 453, 465-6, 470 
time function 
definition of, 196, 566 
mainframe Rexx, 504 
tiny Linux, 430 
Tk, GUI package using. See Rexx/Tk package TK 
package, 111 
TkActivate function, Rexx/Tk, 607 
TkAdd function, Rexx/Tk, 262-263, 607 
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TkAfter function, Rexx/Tk, 607 

TkBbox function, Rexx/Tk, 607 
TkButton function, Rexx/Tk, 607 
TkCanvas functions, Rexx/Tk, 607-608 
TkCget function, Rexx/Tk, 608 
TkCheckButton function, Rexx/Tk,608 
TkChooseColor function, Rexx/Tk,608 
TkChooseDirectory function, Rexx/Tk, 608 
TkCombobox functions, Rexx/Tk, 612 
TkConfig function, Rexx/Tk, 608 
TkCurSelection function, Rexx/Tk, 608 
[kDelete function, Rexx/Tk, 608 
[kDestroy function, Rexx/Tk, 608 
TkDropFuncs function, Rexx/Tk, 263, 611 
[kEntry function, Rexx/Tk, 608 

[kError function, Rexx/Tk, 258, 608 
[kEvent function, Rexx/Tk, 608 

Focus function, Rexx/Tk, 608 

[kFont functions, Rexx/Tk, 608-609 
Frame function, Rexx/Tk, 609 

TkGet function, Rexx/Tk, 609 
TkGetOpenFile function, Rexx/Tk, 263, 609 
TkGetSaveFile function, Rexx/Tk, 609 
TkGrab function, Rexx/Tk, 609 

TkGrid functions, Rexx/Tk, 609 
[kImageBitmap function, Rexx/Tk, 609 
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kImagePhoto function, Rexx/Tk, 609 
kIndex function, Rexx/Tk, 609 

kInsert function, Rexx/Tk, 609 
TkItemConfig function, Rexx/Tk, 609 
[kLabel function, Rexx/Tk, 609 
[kListbox function, Rexx/Tk, 609 
[kLoadFuncs function, Rexx/Tk, 261, 611 
[kLower function, Rexx/Tk, 610 
TkMCListbox functions, Rexx/Tk, 612-613 
TkMenu functions, Rexx/Tk, 610 
TkMessageBox function, Rexx/Tk, 263, 610 
TkNearest function, Rexx/Tk, 610 
TkPack function, Rexx/Tk, 610 

TkPopup function, Rexx/Tk, 610 
TkRadioButton function, Rexx/Tk,610 
TkRaise function, Rexx/Tk, 610 

TkScale function, Rexx/Tk, 610 

TkScan function, Rexx/Tk, 610 
TkScrollbar function, Rexx/Tk, 610 
TkSee function, Rexx/Tk, 610 
TkSelection function, Rexx/Tk, 610 
TkSet function, Rexx/Tk, 610 
TkSetFileType function, Rexx/Tk,610 
TkTcl function, Rexx/Tk, 610 
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TkText function, Rexx/Tk, 610 
TkTextTagBind function, Rexx/Tk, 611 
TkTextTagConfig function, Rexx/Tk, 611 
TkTopLevel function, Rexx/Tk, 611 
TkTree functions, Rexx/Tk, 611-612 
TkVar function, Rexx/Tk, 611 
TkVariable function, Rexx/Tk, 611 
TkWait function, Rexx/Tk, 611 
TkWinfo function, Rexx/Tk, 611 
TkWm function, Rexx/Tk, 611 
TkxXView function, Rexx/Tk, 611 
TkYView function, Rexx/Tk, 611 
tokenized scripts, Open Object Rexx, 473 
tokenizers, 324 
tools, list of, 615-618 
TopHat tools, r4 and roo! interpreters, 451 
topower function, Rexx/imc, 349 
trace function, 139-140, 196, 197, 566—567 
trace instruction 

definition of, 135-139, 140-142, 545-546 

NetRexx, 521, 633 
trace panel, Reginald, 395 
trace special name, NetRexx, 523, 629 
trailing comments, 22 
transactions, Rexx/SQL, 233 transcendental 
mathematical functions. See 

mathematical functions 
transient streams, 67 
translate function, 90-92, 95, 567 
Tranter,Jeff (Tcl/Tk in a Nutshell), 264 
Tree Class, roo!, 456 
Treehouse Soft. S/Rexx, 323, 63-4 
trim function, Regina, 337, 589 
TRL-1 standard, 193 
TRL-1 (The Rexx Language: A Practical Approach to 
Programming) (Cowlishaw), 193 

TRL-2 standard, 193-195 
TRL-2 (The Rexx Language), 8, 193, 310, 532 
.true object, Open Object Rexx, 471 
trunc function, 103-104, 567-568 
TS command 

OS/TSO Rexx, 502 

VM Rexx, 498 
TSO/E Rexx, 500-503 
TSO/E REXX Reference, 500,593 
TSO/E REXX User’s Guide, 511 
typeless variables, 4, 25 


U 


u2a function, BRexx, 368 


uname function 

Regina, 338, 590 

Reginald, 398 
unbalanced tree, 63 
underflow error, 28, 102 
underscore (_), in variable names, 171 
Unicode support, Open Object Rexx, 473 
Uniform Resource Identifier (URI), 436 
uninitialized variables, 26 
uni-Rexx (The Workstation Group), 275, 323 
universal languages, 8-9 
Unix platforms, 8 
unixerror function 

Regina, 338, 590 

Reginald, 398 
unstructured programming, 47-50, 179 
upper camel case, 171 
upper function 

Regina, 337, 590-591 

roo!, 454 
upper instruction, VM Rexx, 496-7 
uppercase. See case sensitivity 
URI (Uniform Resource Identifier), 436 
URLs, retrieving data from, with RexxXML, 294 
Use Arg function, Reginald, 396 
use arg instruction, ooRexx, 466 
use instruction, ooRexx, 471 
USER condition, 472 
user groups, 531 
user-defined functions, 110 
userid function 

mainframe Rexx, 595 

Regina, 338, 591 

Reginald, 398 

Rexx/imc, 348, 352 

VM Rexx, 497 
Using Mailslots with Reginald, 392 
Using Reginald to Access the Internet, 392 
Using Reginald with a Common Gateway Interface 

(CGI), 392 


V 


>V> in trace file, 138, 139 
value function 

definition of, 568 

Reginald, 395, 416-418 
ValuelIn function, Reginald, 391 


ValueOut function, Reginald, 391 
vardump function, BRexx, 363 
variable management, 4 


variable names (simple symbols), 25, 54, 171-172 
variables 

assigning, 25, 26 

binding, for SQL, 247, 249-250 

data type of, 23, 25 

declaration of, 23, 25, 172, 182 

definition of, 25 

exposed, 124-128 

global, 127-128 

placeholder variable (.),116 

scope of, 123-128 

typeless, 4, 25 

uninitialized, 26 

uninitializing, 115 
variables (attributes), Open Object Rexx, 465 
vector class reference operator ({}), 454 
Vector class, roo!, 456 
verify function, 88, 90-92, 568 
version special name, NetRexx, 523, 629 
vertical applications, r4 and roo! interpreters, 451 
vertical bar, double (||), concatenation operator, 

30-31, 80 

vertical bar (|), logical OR operator, 30 
VisPro Rexx interface, 257 
Vlachoudis, Vasilis (inventor of BRexx), 312, 359 
VM GUI interface, 505 
VM platforms, 8 
VM Rexx 

ANSI-standard “not” sign,496 

CMS commands, 499 

CMS immediate commands, 498 

comment on first line of script,494 

compilers, 498-499 

enabling buffer functions for,573 

file types, 496 

functions, 497-498 

instructions, 496-497 

online help, 495 

OS commands, 496 
VSAMIO interface, 505 
VSE platforms, 8 
VSE simulation interface, 505 
VX*Rexx interface, 257 


W 


W32 Funcs package, 618 
WAVV Forum, 532 


759 


W. 


Web forums, 531—532 

Web servers, programming 
Apache Web server, 281-288 
with CGI, 273-281 
methods for, 273 

Web sites 
Amiga Forum, 532 
AROS, 323 
Bochs emulator, 424 
BRexx interpreter, 360-361 
Code Comments community,531 
DBForums, 531 
embedded programming, 430 
handheld devices, 430 
Henri Henault & Sons Web site, 277 
IBM DeveloperWorks, 288 
IBM Rexx Family, 533 IBM 
Rexx Language, 533 IBM 
Rexx manuals, 533 
Mod_Rexx interface, 282, 288 
MVS Forums, 532 MVS 
Help forum, 532 
NetRexx interpreter, 517 
Open Object Rexx interpreter, 460, 462 
PocketConsole emulator, 424 
Quercus Systems, 323 
r4 interpreter, 448 
Regina interpreter, 14 
Regina Rexx language project, 531 
Reginald interpreter, 386 
Reginald Rexx Forum, 532 
Rexx home page, 532 
Rexx LA, 531 
Rexx/DW package, 257, 265 
Rexx/gd library, 267 
Rexx/imc interpreter, 346, 352 
Rexx/Tk package, 256, 258 
roo! interpreter, 448 
SHARE users group,531 
SLAC (Stanford Linear Accelerator Laboratory), 274 
SQLite, 392 
Talkabout Network, 531 
Tek-Tips Rexx Forum, 532 
Treehouse Software Inc., 
323 WAVV Forum, 532 
The Workstation Group, 323 
X-Master, 435 
XTM emulator, 428 


760 


webify function, CGI/Rexx,275 
Wegina package, 618 
wherex function, BRexx,368 
wherey function, BRexx,368 
white space, 23, 172-173 
whole numbers (integers),26 
WideCharacterVector Class, roo!, 456 
widgets, Rexx/DW, 256, 264 
WindowObject class, Open Object Rexx, 622 
Windows CE platforms. 
BRexx functions for, 363-364 
Windows DLLs, Reginald, 395-396 
Windows GUI functions. See also GUI packages 
r4 and roo! interpreters, 448 
Reginald, 388-390, 404-412 
Windows Internet API, Reginald, 388 
Windows platforms 
definition of, 8 
installing Regina interpreter on, 15-16 
I/O redirection on, 76 
multiple interpreters running on, 326-327 
Open Object Rexx classes for, 621-622 
Open Object Rexx support for, 472-473 
Reginald support for, 385-386 
return codes for OS commands, 154 
Windows registry, accessing with Reginald, 395, 416-8 
WindowsClipBoard class, ooRexx, 622 
WindowsEventLog class, ooRexx, 622 
WindowsManager Class, ooRexx, 622 
WindowsProgramManager class, ooRexx, 621 
WindowsRegistry class, ooRexx, 621 
windowtitle function, BRexx, 368 
word function, 93, 569 
wordindex function, 93, 569 
wordlength function, 93, 95, 569 
word-oriented functions, 92-96 
wordpos function,93, 95, 569 
words 
definition of, 92 
parsing by, 82-83 
words function, 93, 95, 570 
The Workstation Group, uni-Rexx, 326 
The World of Scripting Languages (Barron), 11 
wraplines function, CGI/Rexx, 275 
write function, BRexx, 365 
write position, 68 


writech function, Regina, 339, 591 

writeln function, Regina, 339, 591 

WWWAddCookie function, Mod_Rexx, 623 

WWWARGS special variable, Mod_Rexx, 626 
WWWAUTH_TYPE special variable, Mod_Rexx, 626 
WwWWCnxRecAborted function, Mod_Rexx, 625 
WwWwWConstruct_URL function, Mod_Rexx, 623 
WWWCONTENT LENGTH special variable, Mod_Rexx, 626 
WWWCONTENT TYPE special variable, Mod_Rexx, 626 
WWWCOOKIES special variable, Mod_Rexx, 626 
WWWDEFAULT TYPE special variable, Mod_Rexx, 626 
WWWEscape Path function, Mod_Rexx, 623 
WWWFILENAME special variable, Mod_Rexx, 626 
WWWENAMETEMPLATE special variable, Mod_Rexx, 626 
WWWGATEWAY INTERFACE special variable, 626 
WWWGetArgs function, Mod_Rexx, 286, 623 
WWWGetCookies function, Mod_Rexx, 623 
WwWWGetVersion function, Mod_Rexx, 286, 623 
WWWHOSTNAME special variable, Mod_Rexx, 626 
WWWHTTP time function, Mod_Rexx, 623 
WWWHTTP USER ACCEPT special variable, 626 
WWWHTTP USER AGENT special variable, 626 
WWWInternal Redirect function, Mod_Rexx, 623 
WWWIS MAIN REQUEST special variable, 626 
WWWLogError function, Mod_Rexx, 623 
WWWLogInfo function, Mod_Rexx, 623 
WWWLogWarning function, Mod_Rexx, 624 

WWWPATH INFO special variable, Mod_Rexx, 626 
WWWPATH TRANSLATED special variable, 626 
WWWPOST STRING special variable, Mod_Rexx, 626 
WWWQUERY STRING special variable, Mod_Rexx, 627 
WWWREMOTE ADDR special variable, Mod_Rexx, 627 
WWWREMOTE HOST special variable, Mod_Rexx, 627 
WWWREMOTE IDENT special variable, Mod_Rexx, 627 
WWWREMOTE USER special variable, Mod_Rexx, 627 
WWWReqRec functions, Mod_Rexx, 624-625 
WWWREQUEST METHOD special variable, Mod_Rexx, 627 
WWWRSPCOMPILER special variable, Mod_Rexx, 627 
WWWRun_Sub_ Req function, Mod_Rexx, 624 
WWWSCRIPT NAME special variable, Mod_Rexx, 627 
WwWWSendHTTPHeader function, Mod_Rexx, 286, 624 
WWWSERVER_NAME special variable, Mod_Rexx, 627 
WWWSERVER_ PORT special variable, Mod_Rexx, 627 


W -X 


WWWSERVER_ PROTOCOL special variable, 627 
WWWSERVER_ ROOT special variable, Mod_Rexx, 627 
WWWSERVER SOFTWARE special variable, 627 
WWWSetHeaderValue function, Mod_Rexx,624 
WWWSrvRec functions, Mod_Rexx, 625 
WWWSub_ Req Lookup File function, 624 
WWWSub_ Req Lookup URI function, Mod_Rexx, 624 
WWWUNPARSEDURI special variable, Mod_Rexx, 627 
WWWURI special variable, Mod_Rexx, 627 


X 


x2b function, 97, 105, 570 
x2c function, 105, 570-571 
x2d function, 105, 571 
XEDIT command, CMS,499 
XEDIT editor, 183, 505 
XEDIT macros, VM Rexx, 496 
X- Master, 435 
XML (Extensible Markup Language), 291-292. See also 
RexxXML library 
xmlAddAttribute function, RexxXML, 293, 297 
xmlAddComment function, RexxXML, 293, 297 
xmlAddElement function, RexxXML, 293, 297 
xmlAddNode function, RexxXML, 293, 297 
xmlAddPI function, RexxXML, 293, 297 
xmlAddText function, RexxXML, 293, 297 
xmlApplyStylesheet function, RexxXML,294, 299 
xmlCompileExpression function, RexxXML, 294 
xmlCopyNode function, RexxXML, 293, 297 
xmlDropFuncs function, RexxXML, 293 
xmlDumpSchema function, RexxXML, 294, 298 
xmlError function, RexxXML, 293, 298, 301 
xmlEvalExpression function, RexxXML, 294, 302 
xmlExpandNode function, RexxXML, 293, 297 
xmlFindNode function, RexxXML, 294, 298, 302 
xmlFree function, RexxXML, 293 
xmlFreeContext function, RexxXML, 294 
xmlFreeDoc function, RexxXML, 293, 296 
xmlFreeExpression function, RexxXML, 294 
xmlFreeSchema function, RexxXML, 294, 298 
xmlFreeStylesheet function, RexxXML,294, 299 
XMLGenie! tool, r4 and roo! interpreters, 451 
xmlGet function, RexxXML, 294 
xmlLoadFuncs function, RexxXML, 293, 296 
xmlNewContext function, RexxXML, 294 
xmlNewDoc function, RexxXML, 293 


761 


X-Z 


xmlNewHTML function, RexxXML, 293 
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